| blob | d093a39506798c750cc838f0085f6721e0f733a9 |
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 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 }
380 }
383 global commfd leftover
386 catch {
393 }
394 }
396 nukefile $fd
399 }
401 proc stop_backends {} {
402 global commfd
405 stop_instance $inst
406 }
407 }
410 global viewinstances
413 stop_instance $inst
414 }
416 }
419 global pending_select mainheadid
425 }
426 }
429 global canv curview need_redisplay viewactive
431 initlayout
433 reset_pending_select $selid
438 }
439 }
441 proc updatecommits {} {
442 global curview vcanopt vorigargs vfilelimit viewinstances
443 global viewactive viewcomplete tclencoding
444 global startmsecs showneartags showlocalchanges
445 global mainheadid pending_select
446 global isworktree
447 global varcid vposids vnegids vflags vrevs
451 rereadrefs
454 dohidelocalchanges
455 }
457 dodiffindex
458 }
459 }
466 return
467 }
468 # note: getting the delta when negative refs change is hard,
469 # and could require multiple git log invocations, so in that
470 # case we ask git log for all the commits (not just the delta)
474 # take out positive refs that we asked for before or
475 # that we have already seen
480 lappend newrevs $rev
481 incr npos
482 }
484 lappend $newrevs $rev
485 }
486 }
490 }
494 }
500 return
501 }
504 }
510 }
514 reset_pending_select {}
517 getallcommits
518 }
519 }
521 proc reloadcommits {} {
522 global curview viewcomplete selectedline currentid thickerline
523 global showneartags treediffs commitinterest cached_commitrow
524 global targetid
529 }
532 stop_rev_list $curview
533 }
534 resetvarcs $curview
539 readrefs
540 changedrefs
542 getallcommits
543 }
544 clear_display
548 setcanvscroll
549 getcommits $selid
551 }
553 # This makes a string representation of a positive integer which
554 # sorts as a string in numerical order
562 }
564 }
566 # Procedures used in reordering commits from git log (without
567 # --topo-order) into the order for display.
570 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
571 global vtokmod varcmod vrowmod varcix vlastins
585 }
588 global varcid varccommits parents children vseedcount ordertok
594 }
595 # some commits might have children but haven't been seen yet
598 }
601 }
604 }
606 }
608 # returns a list of the commits with no children
610 global vdownptr vleftptr varcstart
617 }
619 }
622 global varcid varctok parents children vdatemode
623 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
624 global commitdata commitinfo vseedcount varccommits vlastins
631 }
635 }
638 }
644 }
653 }
654 }
659 }
666 }
670 }
677 }
683 }
692 }
695 global varcid varcstart varccommits varctok
696 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
703 # "%" sorts before "0"...
713 }
723 }
724 }
727 global parents children varctok varcstart varccommits
728 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
737 lappend todo $a
742 }
743 }
744 }
745 incr ntot
752 }
753 }
755 }
762 }
768 }
777 }
778 }
783 }
785 continue
786 }
793 }
794 }
799 modify_arc $v $ka
800 }
802 modify_arc $v $b
803 }
810 }
813 }
816 }
825 }
830 }
837 }
841 }
843 }
844 }
849 }
850 }
852 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
853 }
855 # Fix up the graph after we have found out that in view $v,
856 # $p (a commit that we have already seen) is actually the parent
857 # of the last commit in arc $a.
859 global varcid varcstart varctok vupptr
863 splitvarc $p $v
865 }
866 # seeds always need to be renumbered
870 renumbervarc $pa $v
871 }
872 }
875 global cmitlisted children parents varcid varctok vtokmod
876 global varccommits ordertok commitidx numcommits curview
877 global targetid targetrow
879 readcommit $id
887 modify_arc $v $a
888 }
894 }
895 fix_reversal $p $a $v
899 setcanvscroll
902 incr targetrow
903 }
904 }
905 }
906 }
909 global varcid varccommits parents children cmitlisted
910 global commitidx varctok vtokmod targetid targetrow curview numcommits
917 return
918 }
925 # note we deliberately don't update varcstart($v) even if $i == 0
927 modify_arc $v $a $i
930 incr targetrow
931 }
932 }
933 setcanvscroll
934 drawvisible
935 }
938 global varcid varccommits parents children commitidx
939 global varctok vtokmod cmitlisted currentid selectedline
940 global targetid curview numcommits
945 return
946 }
952 return
953 }
963 }
964 modify_arc $v $a $i
966 unset currentid
968 }
971 }
972 setcanvscroll
973 drawvisible
974 }
977 global children nullid nullid2
982 }
983 }
985 }
988 global children nullid nullid2
995 }
996 }
998 }
1001 global varctok varcid
1005 }
1007 # This assumes that if lim is not given, the caller has checked that
1008 # arc a's token is less than $vtokmod($v)
1010 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1018 }
1019 }
1026 }
1031 }
1033 }
1035 undolayout $r
1036 }
1037 }
1040 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1041 global varcid vrownum varcorder varcix varccommits
1042 global vupptr vdownptr vleftptr varctok
1043 global displayorder parentlist curview cached_commitrow
1050 }
1052 }
1056 # go up the tree until we find something that has a row number,
1057 # or we get to a seed
1059 }
1074 }
1076 }
1080 # go down if possible
1083 # if not, go left, or go up until we can go left
1088 }
1090 }
1092 incr arcn
1097 }
1103 }
1104 }
1106 # Test whether view $v contains commit $id
1108 global varcid
1111 }
1113 # Return the row number for commit $id in the current view
1115 global varcid varccommits varcrow curview cached_commitrow
1116 global varctok vtokmod
1122 }
1125 update_arcrows $v
1126 }
1129 }
1134 }
1138 }
1140 # Returns 1 if a is on an earlier row than b, otherwise 0
1142 global varcid varctok curview
1148 }
1152 }
1154 }
1159 }
1171 }
1172 }
1174 }
1176 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1178 global vrownum curview commitidx displayorder parentlist
1179 global varccommits varcorder parents vrowmod varcrow
1180 global d_valid_start d_valid_end
1183 update_arcrows $curview
1184 }
1200 }
1202 lappend displayorder $id
1204 }
1208 lset displayorder $i $id
1210 incr i
1211 }
1212 }
1213 incr r $al
1214 }
1215 }
1218 global displayorder
1224 }
1226 }
1229 global varctok varccommits varcid parents children
1230 global cmitlisted commitidx commitinterest vtokmod
1239 # add p as a new commit
1240 incr missing_parents
1248 }
1251 modify_arc $v $b
1252 }
1258 }
1260 }
1261 }
1262 }
1266 }
1267 }
1268 }
1270 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1271 # Assumes we already have an arc for $rwid.
1273 global children parents varcid varctok vtokmod varccommits
1276 # make $rwid be $ch's parent in place of $id
1280 }
1282 # add $ch to $rwid's children and sort the list if necessary
1286 }
1287 # fix the graph after joining $id to $rwid
1289 fix_reversal $rwid $a $v
1290 # parentlist is wrong for the last element of arc $a
1291 # even if displayorder is right, hence the 3rd arg here
1293 }
1294 }
1297 global cmitlisted commitinterest leftover
1298 global commitidx commitdata vdatemode
1299 global parents children curview hlview
1300 global idpending ordertok
1301 global varccommits varcid varctok vtokmod vfilelimit
1304 # git log doesn't terminate the last commit with a null...
1307 }
1311 }
1312 global commfd viewcomplete viewactive viewname
1313 global viewinstances
1318 }
1319 # set it blocking so we wait for the process to terminate
1325 }
1328 bad arguments to git log."
1330 append err \
1331 " (Note: arguments to gitk are passed to git log\
1332 to allow selection of commits to be displayed.)"
1333 }
1336 }
1337 error_popup $err
1338 }
1341 # Check if we have seen any ids listed as parents that haven't
1342 # appeared in the list
1343 closevarcs $view
1344 notbusy $view
1345 }
1347 run chewcommits
1348 }
1350 }
1358 break
1359 }
1366 }
1379 }
1381 }
1386 break
1387 }
1388 }
1389 }
1394 }
1396 exit 1
1397 }
1404 # when doing path limiting, so work around that here
1405 # by working out the rewritten parent with git rev-list
1406 # and if we already know about it, using the rewritten
1407 # parent as a substitute parent for $id's children.
1411 }]} {
1413 # use $rwid in place of $id
1414 rewrite_commit $view $id $rwid
1415 continue
1416 }
1417 }
1418 }
1424 }
1429 }
1441 }
1442 }
1444 # new arc
1446 }
1448 modify_arc $view $a
1449 }
1454 }
1465 }
1467 fix_reversal $p $a $view
1468 }
1469 }
1470 incr i
1471 }
1476 }
1478 }
1480 }
1482 global numcommits hlview
1486 run chewcommits
1487 }
1489 # we never actually get here...
1490 run vhighlightmore
1491 }
1494 }
1495 }
1497 }
1499 proc chewcommits {} {
1500 global curview hlview viewcomplete
1501 global pending_select
1503 layoutmore
1505 global commitidx varctok
1506 global numcommits startmsecs
1509 update
1510 reset_pending_select {}
1517 }
1518 }
1520 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1521 #puts "overall $ms ms for $numcommits commits"
1522 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1525 }
1526 notbusy layout
1527 }
1529 }
1534 }
1537 global commitinfo cdate
1548 # should never happen...
1550 }
1561 }
1562 }
1564 # take the first non-blank line of the comment as the headline
1569 }
1574 }
1576 # git log indents the comment by 4 spaces;
1577 # if we got this via git cat-file, add the indentation
1580 append newcomment " "
1581 append newcomment $line
1583 }
1585 }
1588 }
1591 }
1594 global commitdata commitinfo
1599 readcommit $id
1602 }
1603 }
1605 }
1607 proc readrefs {} {
1608 global tagids idtags headids idheads tagobjid
1609 global otherrefids idotherrefs mainhead mainheadid
1613 }
1625 }
1631 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1632 # which is what we want since the former is the commit ID
1638 }
1644 }
1645 }
1649 catch {
1654 }
1655 }
1656 }
1658 # skip over fake commits
1659 proc first_real_row {} {
1660 global nullid nullid2 numcommits
1665 break
1666 }
1667 }
1669 }
1671 # update things for a head moved to a child of its previous location
1673 global headids idheads
1678 }
1680 # update things when a head has been removed
1682 global headids idheads
1690 }
1691 }
1693 }
1702 tkwait window $top
1703 }
1705 proc error_popup msg {
1706 set w .error
1707 toplevel $w
1708 wm transient $w .
1709 show_error $w $w $msg
1710 }
1712 proc confirm_popup msg {
1713 global confirm_ok
1715 set w .confirm
1716 toplevel $w
1717 wm transient $w .
1725 tkwait window $w
1727 }
1729 proc setoptions {} {
1731 option add *Panedwindow.sashRelief raised startupFile
1732 option add *Button.font uifont startupFile
1733 option add *Checkbutton.font uifont startupFile
1734 option add *Radiobutton.font uifont startupFile
1735 option add *Menu.font uifont startupFile
1736 option add *Menubutton.font uifont startupFile
1737 option add *Label.font uifont startupFile
1738 option add *Message.font uifont startupFile
1739 option add *Entry.font uifont startupFile
1740 }
1742 proc makewindow {} {
1743 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1744 global tabstop
1745 global findtype findtypemenu findloc findstring fstring geometry
1746 global entries sha1entry sha1string sha1but
1747 global diffcontextstring diffcontext
1748 global ignorespace
1749 global maincursor textcursor curtextcursor
1750 global rowctxmenu fakerowmenu mergemax wrapcomment
1751 global highlight_files gdttype
1752 global searchstring sstring
1753 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1754 global headctxmenu progresscanv progressitem progresscoords statusw
1755 global fprogitem fprogcoord lastprogupdate progupdatepending
1756 global rprogitem rprogcoord rownumsel numcommits
1757 global have_tk85
1759 menu .bar
1761 menu .bar.file
1767 menu .bar.edit
1771 menu .bar.view
1775 -state disabled
1777 .bar.view add separator
1781 menu .bar.help
1785 .bar.help configure
1786 . configure -menu .bar
1788 # the gui has upper and lower half, parts of a paned window.
1789 panedwindow .ctop -orient vertical
1791 # possibly use assumed geometry
1799 }
1801 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1803 frame .tf.histframe
1806 # create three canvases
1807 set cscroll .tf.histframe.csb
1808 set canv .tf.histframe.pwclist.canv
1809 canvas $canv \
1813 .tf.histframe.pwclist add $canv
1814 set canv2 .tf.histframe.pwclist.canv2
1815 canvas $canv2 \
1818 .tf.histframe.pwclist add $canv2
1819 set canv3 .tf.histframe.pwclist.canv3
1820 canvas $canv3 \
1823 .tf.histframe.pwclist add $canv3
1827 # a scroll bar to rule them
1831 lappend bglist $canv $canv2 $canv3
1834 # we have two button bars at bottom of top frame. Bar 1
1835 frame .tf.bar
1838 set sha1entry .tf.bar.sha1
1840 set sha1but .tf.bar.sha1label
1844 pack .tf.bar.sha1label -side left
1846 trace add variable sha1string write sha1change
1850 #define left_width 16
1851 #define left_height 16
1852 static unsigned char left_bits[] = {
1856 }
1858 #define right_width 16
1859 #define right_height 16
1860 static unsigned char right_bits[] = {
1864 }
1879 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1880 -side left
1881 global selectedline
1882 trace add variable selectedline write selectedline_change
1884 # Status label and progress bar
1885 set statusw .tf.bar.status
1889 set progresscanv .tf.bar.progress
1902 # build up the bottom bar of upper window
1907 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1914 trace add variable gdttype write gdttype_change
1918 set fstring .tf.lbar.findstring
1919 lappend entries $fstring
1921 trace add variable findstring write find_change
1925 trace add variable findtype write findcom_change
1929 trace add variable findloc write find_change
1930 pack .tf.lbar.findloc -side right
1931 pack .tf.lbar.findtype -side right
1934 # Finish putting the upper half of the viewer together
1938 .ctop add .tf
1942 # now build up the bottom
1943 panedwindow .pwbottom -orient horizontal
1945 # lower left, a text box over search bar, scroll bar to the right
1946 # if we know window height, then that will set the lower text height, otherwise
1947 # we set lower text height which will drive window height
1952 }
1953 frame .bleft.top
1954 frame .bleft.mid
1955 frame .bleft.bottom
1959 set sstring .bleft.top.sstring
1961 lappend entries $sstring
1962 trace add variable searchstring write incrsearch
1975 -textvariable diffcontextstring
1977 trace add variable diffcontextstring write diffcontextchange
1978 lappend entries .bleft.mid.diffcontext
1979 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
1983 set ctext .bleft.bottom.ctext
1990 }
1997 grid .bleft.bottom.sbhorizontal -sticky ew
2002 lappend bglist $ctext
2003 lappend fglist $ctext
2032 .pwbottom add .bleft
2035 # lower right
2036 frame .bright
2037 frame .bright.mode
2044 set cflist .bright.cfiles
2046 text $cflist \
2049 -font mainfont \
2054 lappend bglist $cflist
2055 lappend fglist $cflist
2059 $cflist tag configure highlight \
2063 .pwbottom add .bright
2064 .ctop add .pwbottom
2066 # restore window width & height if known
2071 }
2074 }
2076 }
2077 }
2080 set M1B M1
2082 set M1B Control
2083 }
2088 #bindall <B1-Motion> {selcanvline %W %x %y}
2098 allcanvs yview scroll $delta units
2099 }
2100 }
2101 }
2123 bindkey p "selnextline -1"
2124 bindkey n "selnextline 1"
2125 bindkey z "goback"
2126 bindkey x "goforw"
2127 bindkey i "selnextline -1"
2128 bindkey k "selnextline 1"
2129 bindkey j "goback"
2130 bindkey l "goforw"
2131 bindkey b prevfile
2137 bindkey f nextfile
2149 wm protocol . WM_DELETE_WINDOW doquit
2160 set maincursor [. cget -cursor]
2164 set rowctxmenu .rowctxmenu
2167 -command {diffvssel 0}
2169 -command {diffvssel 1}
2175 -command cherrypick
2177 -command resethead
2179 set fakerowmenu .fakerowmenu
2182 -command {diffvssel 0}
2184 -command {diffvssel 1}
2190 set headctxmenu .headctxmenu
2193 -command cobranch
2195 -command rmbranch
2197 global flist_menu
2198 set flist_menu .flistctxmenu
2201 -command {flist_hl 0}
2203 -command {flist_hl 1}
2205 -command {external_diff}
2206 }
2208 # Windows sends all mouse wheel events to the current focused window, not
2209 # the one where the mouse hovers, so bind those events here and redirect
2210 # to the correct window
2211 proc windows_mousewheel_redirector {W X Y D} {
2212 global canv canv2 canv3
2218 } else {
2219 catch {
2221 }
2222 }
2223 }
2224 }
2226 # Update row number label when selectedline changes
2227 proc selectedline_change {n1 n2 op} {
2228 global selectedline rownumsel
2231 set rownumsel {}
2232 } else {
2234 }
2235 }
2237 # mouse-2 makes all windows scan vertically, but only the one
2238 # the cursor is in scans horizontally
2239 proc canvscan {op w x y} {
2240 global canv canv2 canv3
2244 } else {
2246 }
2247 }
2248 }
2250 proc scrollcanv {cscroll f0 f1} {
2252 drawvisible
2253 flushhighlights
2254 }
2256 # when we make a key binding for the toplevel, make sure
2257 # it doesn't get triggered when that key is pressed in the
2258 # find string entry widget.
2259 proc bindkey {ev script} {
2260 global entries
2264 set escript [bind Entry <Key>]
2265 }
2268 }
2269 }
2271 # set the focus back to the toplevel for any click outside
2272 # the entry widgets
2273 proc click {w} {
2274 global ctext entries
2277 }
2278 focus .
2279 }
2281 # Adjust the progress bar for a change in requested extent or canvas size
2282 proc adjustprogress {} {
2283 global progresscanv progressitem progresscoords
2284 global fprogitem fprogcoord lastprogupdate progupdatepending
2285 global rprogitem rprogcoord
2294 set now [clock clicks -milliseconds]
2296 set progupdatepending 0
2297 update
2299 set progupdatepending 1
2301 }
2302 }
2304 proc doprogupdate {} {
2305 global lastprogupdate progupdatepending
2308 set progupdatepending 0
2309 set lastprogupdate [clock clicks -milliseconds]
2310 update
2311 }
2312 }
2314 proc savestuff {w} {
2315 global canv canv2 canv3 mainfont textfont uifont tabstop
2316 global stuffsaved findmergefiles maxgraphpct
2317 global maxwidth showneartags showlocalchanges
2318 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2319 global cmitmode wrapcomment datetimeformat limitdiffs
2320 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2321 global autoselect extdifftool
2324 if {![winfo viewable .]} return
2325 catch {
2326 set f [open "~/.gitk-new" w]
2361 }
2362 }
2365 file rename -force "~/.gitk-new" "~/.gitk"
2366 }
2367 set stuffsaved 1
2368 }
2370 proc resizeclistpanes {win w} {
2371 global oldwidth
2378 } else {
2383 set sash0 30
2384 }
2387 }
2392 }
2393 }
2394 }
2397 }
2399 }
2401 proc resizecdetpanes {win w} {
2402 global oldwidth
2407 } else {
2411 set sash0 45
2412 }
2415 }
2416 }
2418 }
2420 }
2422 proc allcanvs args {
2423 global canv canv2 canv3
2427 }
2429 proc bindall {event action} {
2430 global canv canv2 canv3
2434 }
2436 proc about {} {
2437 global uifont
2438 set w .about
2441 return
2442 }
2446 Gitk - a commit viewer for git
2448 Copyright © 2005-2008 Paul Mackerras
2450 Use and redistribute under the terms of the GNU General Public License"] \
2451 -justify center -aspect 400 -border 2 -bg white -relief groove
2458 }
2460 proc keys {} {
2461 set w .keys
2464 return
2465 }
2466 if {[tk windowingsystem] eq {aqua}} {
2467 set M1T Cmd
2468 } else {
2469 set M1T Ctrl
2470 }
2474 [mc "Gitk key bindings:"]
2477 [mc "<Home> Move to first commit"]
2478 [mc "<End> Move to last commit"]
2479 [mc "<Up>, p, i Move up one commit"]
2480 [mc "<Down>, n, k Move down one commit"]
2481 [mc "<Left>, z, j Go back in history list"]
2482 [mc "<Right>, x, l Go forward in history list"]
2483 [mc "<PageUp> Move up one page in commit list"]
2484 [mc "<PageDown> Move down one page in commit list"]
2491 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2492 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2493 [mc "<Delete>, b Scroll diff view up one page"]
2494 [mc "<Backspace> Scroll diff view up one page"]
2495 [mc "<Space> Scroll diff view down one page"]
2496 [mc "u Scroll diff view up 18 lines"]
2497 [mc "d Scroll diff view down 18 lines"]
2500 [mc "<Return> Move to next find hit"]
2501 [mc "/ Move to next find hit, or redo find"]
2502 [mc "? Move to previous find hit"]
2503 [mc "f Scroll diff view to next file"]
2510 [mc "<F5> Update"]
2511 " \
2512 -justify left -bg white -border 2 -relief groove
2519 }
2521 # Procedures for manipulating the file list window at the
2522 # bottom right of the overall window.
2524 proc treeview {w l openlevs} {
2525 global treecontents treediropen treeheight treeparent treeindex
2527 set ix 0
2528 set treeindex() 0
2529 set lev 0
2530 set prefix {}
2531 set prefixend -1
2532 set prefendstack {}
2533 set htstack {}
2534 set ht 0
2535 set treecontents() {}
2542 }
2549 incr lev -1
2550 }
2554 set ht 0
2566 set ht 1
2571 set str "\n"
2579 }
2580 incr lev
2581 }
2584 incr ht
2585 set str "\n"
2589 }
2591 }
2592 }
2600 }
2602 }
2604 proc linetoelt {l} {
2605 global treeheight treecontents
2607 set y 2
2608 set prefix {}
2609 while {1} {
2613 }
2614 set n 1
2619 incr y
2620 break
2621 }
2622 }
2624 }
2625 }
2626 }
2628 proc highlight_tree {y prefix} {
2629 global treeheight treecontents cflist
2635 }
2636 incr y
2639 }
2640 }
2642 }
2644 proc treeclosedir {w dir} {
2645 global treediropen treeheight treeparent treeindex
2657 }
2658 }
2660 proc treeopendir {w dir} {
2661 global treediropen treeheight treeparent treecontents treeindex
2668 set lev 0
2669 set str "\n"
2672 incr lev
2673 append str "\t"
2675 }
2690 } else {
2693 }
2694 }
2707 }
2709 }
2710 }
2712 proc treeclick {w x y} {
2713 global treediropen cmitmode ctext cflist cflist_top
2716 if {![info exists cflist_top]} return
2723 return
2724 }
2730 } else {
2732 }
2733 }
2735 proc setfilelist {id} {
2736 global treefilelist cflist
2739 }
2741 image create bitmap tri-rt -background black -foreground blue -data {
2742 #define tri-rt_width 13
2743 #define tri-rt_height 13
2744 static unsigned char tri-rt_bits[] = {
2745 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2746 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2747 0x00, 0x00};
2748 } -maskdata {
2749 #define tri-rt-mask_width 13
2750 #define tri-rt-mask_height 13
2751 static unsigned char tri-rt-mask_bits[] = {
2752 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2753 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2754 0x08, 0x00};
2755 }
2756 image create bitmap tri-dn -background black -foreground blue -data {
2757 #define tri-dn_width 13
2758 #define tri-dn_height 13
2759 static unsigned char tri-dn_bits[] = {
2760 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2761 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2762 0x00, 0x00};
2763 } -maskdata {
2764 #define tri-dn-mask_width 13
2765 #define tri-dn-mask_height 13
2766 static unsigned char tri-dn-mask_bits[] = {
2767 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2768 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2769 0x00, 0x00};
2770 }
2772 image create bitmap reficon-T -background black -foreground yellow -data {
2773 #define tagicon_width 13
2774 #define tagicon_height 9
2775 static unsigned char tagicon_bits[] = {
2776 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2777 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2778 } -maskdata {
2779 #define tagicon-mask_width 13
2780 #define tagicon-mask_height 9
2781 static unsigned char tagicon-mask_bits[] = {
2782 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2783 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2784 }
2785 set rectdata {
2786 #define headicon_width 13
2787 #define headicon_height 9
2788 static unsigned char headicon_bits[] = {
2789 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2790 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2791 }
2792 set rectmask {
2793 #define headicon-mask_width 13
2794 #define headicon-mask_height 9
2795 static unsigned char headicon-mask_bits[] = {
2796 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2797 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2798 }
2799 image create bitmap reficon-H -background black -foreground green \
2801 image create bitmap reficon-o -background black -foreground "#ddddff" \
2804 proc init_flist {first} {
2805 global cflist cflist_top difffilestart
2811 set cflist_top 1
2813 } else {
2814 catch {unset cflist_top}
2815 }
2817 set difffilestart {}
2818 }
2820 proc highlight_tag {f} {
2821 global highlight_paths
2825 return "bold"
2826 }
2827 }
2828 return {}
2829 }
2831 proc highlight_filelist {} {
2832 global cmitmode cflist
2841 }
2842 }
2843 } else {
2844 highlight_tree 2 {}
2845 }
2847 }
2849 proc unhighlight_filelist {} {
2850 global cflist
2855 }
2857 proc add_flist {fl} {
2858 global cflist
2864 }
2866 }
2868 proc sel_flist {w x y} {
2869 global ctext difffilestart cflist cflist_top cmitmode
2872 if {![info exists cflist_top]} return
2879 } else {
2881 }
2882 }
2884 proc pop_flist_menu {w X Y x y} {
2885 global ctext cflist cmitmode flist_menu flist_menu_file
2886 global treediffs diffids
2888 stopfinding
2894 } else {
2896 }
2898 set xdiffstate "normal"
2900 set xdiffstate "disabled"
2901 }
2902 # Disable "External diff" item in tree mode
2905 }
2907 proc flist_hl {only} {
2908 global flist_menu_file findstring gdttype
2913 } else {
2915 }
2916 set gdttype [mc "touching paths:"]
2917 }
2919 proc save_file_from_commit {filename output what} {
2920 global nullfile
2925 }
2927 return {}
2928 }
2930 }
2932 proc external_diff_get_one_file {diffid filename diffdir} {
2933 global nullid nullid2 nullfile
2934 global gitdir
2940 }
2942 }
2946 }
2950 }
2952 proc external_diff {} {
2953 global gitktmpdir nullid nullid2
2954 global flist_menu_file
2955 global diffids
2956 global diffnum
2957 global gitdir extdifftool
2960 # no reference commit given
2963 # diffing working copy with index
2966 # diffing index with HEAD
2967 set diffidfrom "HEAD"
2968 } else {
2969 # use first parent commit
2970 global parentlist selectedline
2972 }
2973 } else {
2976 }
2978 # make sure that several diffs wont collide
2979 if {![info exists gitktmpdir]} {
2981 [format ".gitk-tmp.%s" [pid]]]
2984 unset gitktmpdir
2985 return
2986 }
2987 set diffnum 0
2988 }
2989 incr diffnum
2993 return
2994 }
2996 # gather files to diff
3006 } else {
3009 }
3010 }
3011 }
3014 proc delete_at_eof {f dir} {
3019 }
3021 return 0
3022 }
3023 return 1
3024 }
3026 # Functions for adding and removing shell-type quoting
3028 proc shellquote {str} {
3031 }
3034 }
3037 }
3039 }
3041 proc shellarglist {l} {
3042 set str {}
3045 append str " "
3046 }
3048 }
3050 }
3052 proc shelldequote {str} {
3053 set ret {}
3054 set used -1
3055 while {1} {
3056 incr used
3060 break
3061 }
3067 }
3069 incr used
3073 error "unmatched single-quote"
3074 }
3077 continue
3078 }
3081 error "trailing backslash"
3082 }
3084 continue
3085 }
3086 # here ch == "\""
3087 while {1} {
3089 error "unmatched double-quote"
3090 }
3096 }
3098 incr used
3100 incr used
3101 }
3102 }
3104 }
3106 proc shellsplit {str} {
3107 set l {}
3108 while {1} {
3116 }
3118 }
3120 # Code to implement multiple views
3122 proc newview {ishighlight} {
3123 global nextviewnum newviewname newviewperm newishighlight
3124 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3127 set top .gitkview
3130 return
3131 }
3137 }
3139 proc editview {} {
3140 global curview
3141 global viewname viewperm newviewname newviewperm
3142 global viewargs newviewargs viewargscmd newviewargscmd
3147 return
3148 }
3154 }
3156 proc vieweditor {top n title} {
3157 global newviewname newviewperm viewfiles bgcolor
3168 -text [mc "Commits to include (arguments to git log):"]
3175 -text [mc "Command to generate more commits to include:"]
3178 -background white
3182 -text [mc "Enter files and directories to include, one per line:"]
3189 }
3192 }
3202 }
3204 proc doviewmenu {m first cmd op argv} {
3209 break
3210 }
3211 }
3212 }
3214 proc allviewmenus {n op args} {
3215 # global viewhlmenu
3219 }
3221 proc newviewok {top n} {
3222 global nextviewnum newviewperm newviewname newishighlight
3223 global viewname viewfiles viewperm selectedview curview
3224 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3226 if {[catch {
3228 } err]} {
3232 return
3233 }
3234 set files {}
3239 }
3240 }
3242 # creating a new view
3243 incr nextviewnum
3252 } else {
3254 }
3255 } else {
3256 # editing an existing view
3264 }
3271 run reloadcommits
3272 }
3273 }
3274 }
3276 }
3278 proc delview {} {
3279 global curview viewperm hlview selectedhlview
3283 set selectedhlview [mc "None"]
3284 unset hlview
3285 }
3288 showview 0
3289 }
3291 proc addviewmenu {n} {
3292 global viewname viewhlmenu
3298 }
3300 proc showview {n} {
3301 global curview cached_commitrow ordertok
3302 global displayorder parentlist rowidlist rowisopt rowfinal
3303 global colormap rowtextx nextcolor canvxmax
3304 global numcommits viewcomplete
3305 global selectedline currentid canv canvy0
3306 global treediffs
3307 global pending_select mainheadid
3308 global commitidx
3309 global selectedview
3310 global hlview selectedhlview commitinterest
3313 set selid {}
3324 }
3325 } elseif {[info exists pending_select]} {
3327 unset pending_select
3328 }
3329 unselectline
3330 normalline
3331 catch {unset treediffs}
3332 clear_display
3334 unset hlview
3335 set selectedhlview [mc "None"]
3336 }
3337 catch {unset commitinterest}
3338 catch {unset cached_commitrow}
3339 catch {unset ordertok}
3346 run refill_reflist
3349 return
3350 }
3352 set displayorder {}
3353 set parentlist {}
3354 set rowidlist {}
3355 set rowisopt {}
3356 set rowfinal {}
3359 catch {unset colormap}
3360 catch {unset rowtextx}
3361 set nextcolor 0
3364 set row 0
3365 setcanvscroll
3366 set yf 0
3367 set row {}
3370 # try to get the selected row in the same position on the screen
3374 set ytop 0
3375 }
3377 }
3379 drawvisible
3384 } else {
3385 reset_pending_select {}
3389 } else {
3390 set row [first_real_row]
3393 }
3394 }
3395 }
3398 show_status [mc "Reading commits..."]
3399 }
3401 show_status [mc "No commits selected"]
3402 }
3403 }
3405 # Stuff relating to the highlighting facility
3407 proc ishighlighted {id} {
3408 global vhighlights fhighlights nhighlights rhighlights
3412 }
3415 }
3418 }
3421 }
3422 return 0
3423 }
3425 proc bolden {row font} {
3426 global canv linehtag selectedline boldrows
3433 -outline {{}} -tags secsel \
3436 }
3437 }
3439 proc bolden_name {row font} {
3440 global canv2 linentag selectedline boldnamerows
3447 -outline {{}} -tags secsel \
3450 }
3451 }
3453 proc unbolden {} {
3454 global boldrows
3456 set stillbold {}
3460 } else {
3462 }
3463 }
3465 }
3467 proc addvhighlight {n} {
3468 global hlview viewcomplete curview vhl_done commitidx
3470 if {[info exists hlview]} {
3471 delvhighlight
3472 }
3476 }
3479 drawvisible
3480 }
3481 }
3483 proc delvhighlight {} {
3484 global hlview vhighlights
3486 if {![info exists hlview]} return
3487 unset hlview
3488 catch {unset vhighlights}
3489 unbolden
3490 }
3492 proc vhighlightmore {} {
3493 global hlview vhl_done commitidx vhighlights curview
3496 set vr [visiblerows]
3506 }
3508 }
3509 }
3510 }
3512 return 0
3513 }
3515 proc askvhighlight {row id} {
3516 global hlview vhighlights iddrawn
3521 }
3523 } else {
3525 }
3526 }
3528 proc hfiles_change {} {
3529 global highlight_files filehighlight fhighlights fh_serial
3530 global highlight_paths gdttype
3532 if {[info exists filehighlight]} {
3533 # delete previous highlights
3535 unset filehighlight
3536 catch {unset fhighlights}
3537 unbolden
3538 unhighlight_filelist
3539 }
3540 set highlight_paths {}
3542 incr fh_serial
3545 }
3546 }
3548 proc gdttype_change {name ix op} {
3549 global gdttype highlight_files findstring findpattern
3551 stopfinding
3555 set highlight_files {}
3556 hfiles_change
3557 }
3558 findcom_change
3559 } else {
3561 set findpattern {}
3562 findcom_change
3563 }
3565 hfiles_change
3566 }
3567 drawvisible
3568 }
3569 # enable/disable findtype/findloc menus too
3570 }
3572 proc find_change {name ix op} {
3573 global gdttype findstring highlight_files
3575 stopfinding
3577 findcom_change
3578 } else {
3581 hfiles_change
3582 }
3583 }
3584 drawvisible
3585 }
3587 proc findcom_change args {
3588 global nhighlights boldnamerows
3589 global findpattern findtype findstring gdttype
3591 stopfinding
3592 # delete previous highlights, if any
3595 }
3596 set boldnamerows {}
3597 catch {unset nhighlights}
3598 unbolden
3599 unmarkmatches
3601 set findpattern {}
3604 } else {
3605 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3608 }
3609 }
3611 proc makepatterns {l} {
3612 set ret {}
3617 } else {
3620 }
3621 }
3623 }
3625 proc do_file_hl {serial} {
3626 global highlight_files filehighlight highlight_paths gdttype fhl_list
3631 highlight_filelist
3635 } else {
3636 # must be "containing:", i.e. we're searching commit info
3637 return
3638 }
3643 set fhl_list {}
3644 drawvisible
3645 flushhighlights
3646 }
3648 proc flushhighlights {} {
3649 global filehighlight fhl_list
3651 if {[info exists filehighlight]} {
3652 lappend fhl_list {}
3655 }
3656 }
3658 proc askfilehighlight {row id} {
3659 global filehighlight fhighlights fhl_list
3664 }
3666 proc readfhighlight {} {
3667 global filehighlight fhighlights curview iddrawn
3668 global fhl_list find_dirn
3670 if {![info exists filehighlight]} {
3671 return 0
3672 }
3673 set nr 0
3681 }
3688 }
3690 }
3692 # strange...
3693 puts "oops, git diff-tree died"
3695 unset filehighlight
3696 return 0
3697 }
3698 if {[info exists find_dirn]} {
3699 run findmore
3700 }
3701 return 1
3702 }
3704 proc doesmatch {f} {
3705 global findtype findpattern
3711 } else {
3713 }
3714 }
3716 proc askfindhighlight {row id} {
3717 global nhighlights commitinfo iddrawn
3718 global findloc
3719 global markingmatches
3723 }
3725 set isbold 0
3726 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3731 set isbold 2
3732 break
3733 }
3734 set isbold 1
3735 }
3736 }
3742 }
3743 }
3746 }
3747 }
3749 }
3751 proc markrowmatches {row id} {
3752 global canv canv2 linehtag linentag commitinfo findloc
3763 }
3764 }
3770 }
3771 }
3772 }
3774 proc vrel_change {name ix op} {
3775 global highlight_related
3777 rhighlight_none
3779 run drawvisible
3780 }
3781 }
3783 # prepare for testing whether commits are descendents or ancestors of a
3784 proc rhighlight_sel {a} {
3785 global descendent desc_todo ancestor anc_todo
3786 global highlight_related
3788 catch {unset descendent}
3790 catch {unset ancestor}
3793 rhighlight_none
3794 run drawvisible
3795 }
3796 }
3798 proc rhighlight_none {} {
3799 global rhighlights
3801 catch {unset rhighlights}
3802 unbolden
3803 }
3805 proc is_descendent {a} {
3806 global curview children descendent desc_todo
3811 set leftover {}
3812 set done 0
3817 continue
3818 }
3824 set done 1
3825 }
3826 }
3827 }
3830 return
3831 }
3832 }
3835 }
3837 proc is_ancestor {a} {
3838 global curview parents ancestor anc_todo
3843 set leftover {}
3844 set done 0
3849 continue
3850 }
3856 set done 1
3857 }
3858 }
3859 }
3862 return
3863 }
3864 }
3867 }
3869 proc askrelhighlight {row id} {
3870 global descendent highlight_related iddrawn rhighlights
3871 global selectedline ancestor
3874 set isbold 0
3879 }
3881 set isbold 1
3882 }
3887 }
3889 set isbold 1
3890 }
3891 }
3895 }
3896 }
3898 }
3900 # Graph layout functions
3902 proc shortids {ids} {
3903 set res {}
3909 } else {
3911 }
3912 }
3914 }
3916 proc ntimes {n o} {
3917 set ret {}
3922 }
3924 }
3926 }
3928 proc ordertoken {id} {
3929 global ordertok curview varcid varcstart varctok curview parents children
3930 global nullid nullid2
3934 }
3936 set todo {}
3937 while {1} {
3941 } else {
3943 }
3946 break
3947 }
3950 # it's a root
3952 break
3953 }
3956 } else {
3960 }
3962 }
3963 }
3968 }
3971 }
3973 # Work out where id should go in idlist so that order-token
3974 # values increase from left to right
3975 proc idcol {idlist id {i 0}} {
3978 set i 0
3979 }
3983 }
3985 incr i
3986 } else {
3990 }
3991 }
3993 }
3995 proc initlayout {} {
3996 global rowidlist rowisopt rowfinal displayorder parentlist
3997 global numcommits canvxmax canv
3998 global nextcolor
3999 global colormap rowtextx
4001 set numcommits 0
4002 set displayorder {}
4003 set parentlist {}
4004 set nextcolor 0
4005 set rowidlist {}
4006 set rowisopt {}
4007 set rowfinal {}
4009 catch {unset colormap}
4010 catch {unset rowtextx}
4011 setcanvscroll
4012 }
4014 proc setcanvscroll {} {
4015 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4016 global lastscrollset lastscrollrows
4022 set lastscrollset [clock clicks -milliseconds]
4024 }
4026 proc visiblerows {} {
4027 global canv numcommits linespc
4035 set r0 0
4036 }
4041 }
4043 }
4045 proc layoutmore {} {
4046 global commitidx viewcomplete curview
4047 global numcommits pending_select curview
4048 global lastscrollset lastscrollrows commitinterest
4052 setcanvscroll
4053 }
4054 if {[info exists pending_select] &&
4056 update
4058 }
4059 drawvisible
4060 }
4062 proc doshowlocalchanges {} {
4063 global curview mainheadid
4067 dodiffindex
4068 } else {
4070 }
4071 }
4073 proc dohidelocalchanges {} {
4074 global nullid nullid2 lserial curview
4078 }
4081 }
4082 incr lserial
4083 }
4085 # spawn off a process to do git diff-index --cached HEAD
4086 proc dodiffindex {} {
4087 global lserial showlocalchanges
4088 global isworktree
4091 incr lserial
4092 set fd [open "|git diff-index --cached HEAD" r]
4096 }
4098 proc readdiffindex {fd serial inst} {
4099 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4101 set isdiff 1
4104 return 1
4105 }
4106 set isdiff 0
4107 }
4108 # we only need to see one line and we don't really care what it says...
4112 return 0
4113 }
4115 # now see if there are any local changes not checked in to the index
4116 set fd [open "|git diff-files" r]
4122 # add the line for the changes in the index to the graph
4123 set hl [mc "Local changes checked in to index but not committed"]
4128 }
4132 }
4133 return 0
4134 }
4136 proc readdifffiles {fd serial inst} {
4137 global mainheadid nullid nullid2 curview
4138 global commitinfo commitdata lserial
4140 set isdiff 1
4143 return 1
4144 }
4145 set isdiff 0
4146 }
4147 # we only need to see one line and we don't really care what it says...
4151 return 0
4152 }
4155 # add the line for the local diff to the graph
4156 set hl [mc "Local uncommitted changes, not checked in to index"]
4161 } else {
4163 }
4167 }
4168 return 0
4169 }
4171 proc nextuse {id row} {
4172 global curview children
4177 return -1
4178 }
4181 }
4182 }
4183 }
4186 }
4187 return -1
4188 }
4190 proc prevuse {id row} {
4191 global curview children
4193 set ret -1
4199 }
4200 }
4201 }
4203 }
4205 proc make_idlist {row} {
4206 global displayorder parentlist uparrowlen downarrowlen mingaplen
4207 global commitidx curview children
4211 set r 0
4212 }
4215 set ra 0
4216 }
4220 }
4222 set ids {}
4231 }
4232 }
4233 }
4241 }
4242 }
4243 }
4251 }
4252 }
4253 incr r
4259 }
4260 }
4261 }
4262 set idlist {}
4265 }
4267 }
4269 proc rowsequal {a b} {
4272 }
4275 }
4277 }
4279 proc makeupline {id row rend col} {
4280 global rowidlist uparrowlen downarrowlen mingaplen
4286 }
4289 }
4296 }
4297 }
4298 }
4300 proc layoutrows {row endrow} {
4301 global rowidlist rowisopt rowfinal displayorder
4302 global uparrowlen downarrowlen maxwidth mingaplen
4303 global children parentlist
4304 global commitidx viewcomplete curview
4307 set idlist {}
4313 }
4314 }
4316 }
4321 set final 1
4322 } else {
4330 # if not the first child, we have to insert a line going up
4333 }
4334 }
4335 }
4345 }
4346 }
4347 }
4354 }
4355 }
4365 }
4366 }
4374 }
4375 }
4376 }
4377 }
4378 }
4382 set final 0
4383 }
4387 lappend rowisopt 0
4393 }
4395 } else {
4402 }
4403 }
4405 }
4407 proc changedrow {row} {
4408 global displayorder iddrawn rowisopt need_redisplay
4417 }
4418 }
4419 }
4422 set need_redisplay 1
4423 }
4424 }
4426 proc insert_pad {row col npad} {
4427 global rowidlist
4436 }
4439 }
4441 proc optimize_rows {row col endrow} {
4442 global rowidlist rowisopt displayorder curview children
4445 set row 1
4446 }
4449 set haspad 0
4458 } else {
4459 set pprevidlist {}
4460 }
4461 set x0 -1
4462 set xm -1
4467 set haspad 1
4468 continue
4469 }
4473 set isarrow 0
4474 set z0 {}
4479 }
4480 }
4485 set isarrow 1
4486 }
4487 }
4490 set isarrow 1
4491 }
4492 # Looking at lines from this row to the previous row,
4493 # make them go straight up if they end in an arrow on
4494 # the previous row; otherwise make them go straight up
4495 # or at 45 degrees.
4497 # Line currently goes left too much;
4498 # insert pads in the previous row, then optimize it
4503 }
4511 }
4513 # Line currently goes right too much;
4514 # insert pads in this line
4520 set haspad 1
4521 }
4528 }
4529 }
4530 # avoid lines jigging left then immediately right
4533 incr x0
4536 }
4537 }
4539 # Find the first column that doesn't have a line going right
4545 # check if this is the link to the first child
4548 # it is, work out offset to child
4550 }
4551 }
4553 }
4554 # Insert a pad at that column as long as it has a line and
4555 # isn't the last column
4560 }
4561 }
4562 }
4563 }
4565 proc xc {row col} {
4566 global canvx0 linespc
4568 }
4570 proc yc {row} {
4571 global canvy0 linespc
4573 }
4575 proc linewidth {id} {
4576 global thickerline lthickness
4581 }
4583 }
4585 proc rowranges {id} {
4586 global curview children uparrowlen downarrowlen
4587 global rowidlist
4591 return {}
4592 }
4593 set ret {}
4598 if {![info exists prev]} {
4600 } else {
4602 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4603 }
4604 # see if the line extends the whole way from prevrow to row
4608 # it doesn't, see where it ends
4613 } else {
4616 incr r -1
4617 }
4619 # see where it starts up again
4624 } else {
4627 incr r
4628 }
4630 }
4631 }
4634 }
4637 }
4639 }
4641 proc drawlineseg {id row endrow arrowlow} {
4642 global rowidlist displayorder iddrawn linesegs
4643 global canv colormap linespc curview maxlinelen parentlist
4647 set arrowhigh 1
4648 while {1} {
4651 incr le -1
4652 break
4653 }
4657 set arrowhigh 0
4658 break
4659 }
4664 set arrowhigh 0
4665 }
4666 break
4667 }
4668 incr le
4669 }
4672 }
4674 set lines {}
4675 set i 0
4676 set joinhigh 0
4683 set joinhigh 1
4684 }
4685 break
4686 }
4687 incr i
4688 }
4689 }
4690 set joinlow 0
4695 set joinlow 1
4696 }
4697 }
4710 }
4711 } else {
4713 }
4721 set arrowlow 0
4722 }
4723 }
4731 }
4733 }
4736 # join parent line to first child
4747 } else {
4749 }
4757 }
4759 }
4761 } else {
4765 }
4773 } else {
4777 }
4779 }
4780 } else {
4786 }
4790 } else {
4791 # coalesce two pieces
4796 }
4800 }
4801 }
4805 }
4807 proc drawparentlinks {id row} {
4808 global rowidlist canv colormap curview parentlist
4809 global idpos linespc
4822 # rmx = right-most X coord used
4823 set rmx 0
4828 continue
4829 }
4833 }
4836 # drawlineseg will do this one for us
4837 continue
4838 }
4840 # should handle duplicated parents here...
4843 # if attaching to a vertical segment, draw a smaller
4844 # slant for visual distinctness
4848 } else {
4850 }
4852 # segment slants towards us already
4854 } else {
4859 }
4861 }
4862 } else {
4864 }
4869 }
4873 }
4874 }
4876 proc drawlines {id} {
4877 global canv
4880 }
4882 proc drawcmittext {id row col} {
4883 global linespc canv canv2 canv3 fgcolor curview
4884 global cmitlisted commitinfo rowidlist parentlist
4885 global rowtextx idpos idtags idheads idotherrefs
4886 global linehtag linentag linedtag selectedline
4887 global canvxmax boldrows boldnamerows fgcolor
4888 global mainheadid nullid nullid2 circleitem circlecolors
4890 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4893 set ofill red
4895 set ofill green
4897 set ofill yellow
4898 } else {
4900 }
4909 # triangle pointing left for left-side commits
4915 } else {
4916 # triangle pointing right for right-side commits
4922 }
4934 }
4935 }
4936 }
4943 }
4948 set font mainfont
4949 set nfont mainfont
4953 set font mainfontbold
4956 set nfont mainfontbold
4957 }
4958 }
4968 }
4972 setcanvscroll
4973 }
4974 }
4976 proc drawcmitrow {row} {
4977 global displayorder rowidlist nrows_drawn
4978 global iddrawn markingmatches
4979 global commitinfo numcommits
4980 global filehighlight fhighlights findpattern nhighlights
4981 global hlview vhighlights
4982 global highlight_related rhighlights
4989 }
4992 }
4995 }
4998 }
5003 return
5004 }
5007 }
5011 incr nrows_drawn
5012 }
5015 }
5016 }
5018 proc drawcommits {row {endrow {}}} {
5019 global numcommits iddrawn displayorder curview need_redisplay
5020 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5023 set row 0
5024 }
5027 }
5030 }
5034 set rl1 0
5035 }
5038 set ro1 0
5039 }
5043 }
5048 }
5050 }
5051 }
5054 }
5057 clear_display
5058 drawvisible
5059 }
5061 # make the lines join to already-drawn rows either side
5065 }
5070 }
5085 # see if this is the first child of any of its parents
5088 # make this line extend up to the child
5090 }
5091 }
5092 } else {
5094 }
5095 }
5096 }
5097 }
5099 proc undolayout {row} {
5100 global uparrowlen mingaplen downarrowlen
5101 global rowidlist rowisopt rowfinal need_redisplay
5105 set r 0
5106 }
5108 incr r -1
5112 set need_redisplay 1
5113 run drawvisible
5114 }
5115 }
5117 proc drawvisible {} {
5118 global canv linespc curview vrowmod selectedline targetrow targetid
5119 global need_redisplay cscroll numcommits
5129 if {[info exists targetid]} {
5133 # Fix up the scrollregion and change the scrolling position
5134 # now that our target row has moved.
5137 setcanvscroll
5145 set need_redisplay 1
5146 }
5147 } else {
5148 unset targetid
5149 }
5150 }
5156 }
5160 } elseif {[info exists targetid]} {
5162 }
5163 if {[info exists targetrow]} {
5166 }
5168 }
5170 }
5172 proc clear_display {} {
5173 global iddrawn linesegs need_redisplay nrows_drawn
5174 global vhighlights fhighlights nhighlights rhighlights
5175 global linehtag linentag linedtag boldrows boldnamerows
5177 allcanvs delete all
5178 catch {unset iddrawn}
5179 catch {unset linesegs}
5180 catch {unset linehtag}
5181 catch {unset linentag}
5182 catch {unset linedtag}
5183 set boldrows {}
5184 set boldnamerows {}
5185 catch {unset vhighlights}
5186 catch {unset fhighlights}
5187 catch {unset nhighlights}
5188 catch {unset rhighlights}
5189 set need_redisplay 0
5190 set nrows_drawn 0
5191 }
5193 proc findcrossings {id} {
5194 global rowidlist parentlist numcommits displayorder
5196 set cross {}
5197 set ccross {}
5201 }
5220 }
5221 }
5222 }
5223 }
5224 }
5226 }
5228 proc assigncolor {id} {
5229 global colormap colors nextcolor
5230 global parents children children curview
5236 } else {
5237 set kids {}
5238 }
5244 return
5245 }
5246 }
5247 set badcolors {}
5248 set origbad {}
5251 # delimiter between corner crossings and other crossings
5254 }
5258 }
5259 }
5262 }
5269 }
5274 }
5275 }
5276 }
5279 }
5280 }
5284 set nextcolor 0
5285 }
5287 }
5289 }
5291 proc bindline {t id} {
5292 global canv
5298 }
5300 proc drawtags {id x xt y1} {
5301 global idtags idheads idotherrefs mainhead
5302 global linespc lthickness
5303 global canv rowtextx curview fgcolor bgcolor
5305 set marks {}
5306 set ntags 0
5307 set nheads 0
5311 }
5315 }
5318 }
5321 }
5326 set xvals {}
5327 set wvals {}
5328 set i -1
5330 incr i
5333 } else {
5335 }
5339 }
5346 set font mainfont
5347 if {[incr ntags -1] >= 0} {
5348 # draw a tag
5354 } else {
5355 # draw a head or other ref
5356 if {[incr nheads -1] >= 0} {
5357 set col green
5359 set font mainfontbold
5360 }
5361 } else {
5362 set col "#ddddff"
5363 }
5374 }
5375 }
5382 }
5383 }
5385 }
5387 proc xcoord {i level ln} {
5388 global canvx0 xspc1 xspc2
5395 }
5397 }
5399 proc show_status {msg} {
5400 global canv fgcolor
5402 clear_display
5405 }
5407 # Don't change the text pane cursor if it is currently the hand cursor,
5408 # showing that we are over a sha1 ID link.
5409 proc settextcursor {c} {
5410 global ctext curtextcursor
5414 }
5416 }
5418 proc nowbusy {what {name {}}} {
5419 global isbusy busyname statusw
5421 if {[array names isbusy] eq {}} {
5422 . config -cursor watch
5423 settextcursor watch
5424 }
5429 }
5430 }
5432 proc notbusy {what} {
5433 global isbusy maincursor textcursor busyname statusw
5435 catch {
5440 }
5441 }
5442 if {[array names isbusy] eq {}} {
5445 }
5446 }
5448 proc findmatches {f} {
5449 global findtype findstring
5452 } else {
5457 }
5458 set matches {}
5459 set i 0
5464 }
5465 }
5467 }
5469 proc dofind {{dirn 1} {wrap 1}} {
5470 global findstring findstartline findcurline selectedline numcommits
5471 global gdttype filehighlight fh_serial find_dirn findallowwrap
5473 if {[info exists find_dirn]} {
5475 stopfinding
5476 }
5477 focus .
5481 } else {
5483 }
5485 nowbusy finding [mc "Searching"]
5489 }
5492 run findmore
5493 }
5495 proc stopfinding {} {
5496 global find_dirn findcurline fprogcoord
5498 if {[info exists find_dirn]} {
5499 unset find_dirn
5500 unset findcurline
5501 notbusy finding
5502 set fprogcoord 0
5503 adjustprogress
5504 }
5505 }
5507 proc findmore {} {
5508 global commitdata commitinfo numcommits findpattern findloc
5509 global findstartline findcurline findallowwrap
5510 global find_dirn gdttype fhighlights fprogcoord
5511 global curview varcorder vrownum varccommits vrowmod
5513 if {![info exists find_dirn]} {
5514 return 0
5515 }
5516 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5518 set moretodo 0
5520 incr l
5522 set l 0
5523 }
5526 } else {
5529 }
5530 } else {
5533 }
5534 incr l -1
5537 } else {
5538 set lim -1
5540 }
5541 }
5544 set n 500
5545 set moretodo 1
5546 }
5549 }
5550 set found 0
5551 set domore 1
5565 }
5567 # shouldn't happen unless git log doesn't give all the commits...
5570 continue
5571 }
5574 }
5579 set found 1
5580 break
5581 }
5582 }
5584 }
5585 } else {
5593 }
5598 }
5601 break
5602 }
5605 set domore 0
5607 }
5608 }
5609 }
5610 }
5612 unset findcurline
5613 unset find_dirn
5614 notbusy finding
5615 set fprogcoord 0
5616 adjustprogress
5619 } else {
5620 bell
5621 }
5622 return 0
5623 }
5625 flushhighlights
5626 } else {
5628 }
5632 }
5634 adjustprogress
5636 }
5638 proc findselectline {l} {
5639 global findloc commentend ctext findcurline markingmatches gdttype
5641 set markingmatches 1
5645 # highlight the matches in the comments
5652 }
5653 }
5654 drawvisible
5655 }
5657 # mark the bits of a headline or author that match a find string
5658 proc markmatches {canv l str tag matches font row} {
5659 global selectedline
5677 }
5678 }
5679 }
5681 proc unmarkmatches {} {
5682 global markingmatches
5684 allcanvs delete matches
5685 set markingmatches 0
5686 stopfinding
5687 }
5689 proc selcanvline {w x y} {
5690 global canv canvy0 ctext linespc
5691 global rowtextx
5698 set l 0
5699 }
5704 }
5705 unmarkmatches
5707 }
5709 proc commit_descriptor {p} {
5710 global commitinfo
5713 }
5714 set l "..."
5717 }
5719 }
5721 # append some text to the ctext widget, and make any SHA1 ID
5722 # that we know about be a clickable link.
5723 proc appendwithlinks {text tags} {
5724 global ctext linknum curview pendinglinks
5733 incr e
5737 incr linknum
5738 }
5739 }
5741 proc setlink {id lk} {
5742 global curview ctext pendinglinks commitinterest
5749 } else {
5752 }
5753 }
5755 proc makelink {id} {
5756 global pendinglinks
5761 }
5763 }
5765 proc linkcursor {w inc} {
5766 global linkentercount curtextcursor
5770 } else {
5773 set linkentercount 0
5774 }
5775 }
5776 }
5778 proc viewnextline {dir} {
5779 global canv linespc
5787 set newtop 0
5790 }
5792 }
5794 # add a list of tag or branch names at position pos
5795 # returns the number of names inserted
5796 proc appendrefs {pos ids var} {
5800 return 0
5801 }
5804 set tags {}
5808 }
5809 }
5812 } else {
5814 set sep {}
5818 incr linknum
5823 set sep ", "
5824 }
5825 }
5828 }
5830 # called when we have finished computing the nearby tags
5831 proc dispneartags {delay} {
5832 global selectedline currentid showneartags tagphase
5835 after cancel dispnexttag
5837 after 200 dispnexttag
5838 set tagphase -1
5839 } else {
5840 after idle dispnexttag
5841 set tagphase 0
5842 }
5843 }
5845 proc dispnexttag {} {
5846 global selectedline currentid showneartags tagphase ctext
5850 0 {
5854 }
5855 }
5856 1 {
5860 }
5861 }
5862 2 {
5867 # turn "Branch" into "Branches"
5871 }
5872 }
5873 }
5874 }
5875 if {[incr tagphase] <= 2} {
5876 after idle dispnexttag
5877 }
5878 }
5880 proc make_secsel {l} {
5881 global linehtag linentag linedtag canv canv2 canv3
5896 }
5898 proc selectline {l isnew} {
5899 global canv ctext commitinfo selectedline
5900 global canvy0 linespc parents children curview
5901 global currentid sha1entry
5902 global commentend idtags linknum
5903 global mergemax numcommits pending_select
5904 global cmitmode showneartags allcommits
5905 global targetrow targetid lastscrollrows
5906 global autoselect
5908 catch {unset pending_select}
5910 normalline
5911 unsel_reflist
5912 stopfinding
5920 setcanvscroll
5921 }
5935 } else {
5939 }
5940 }
5944 } else {
5948 }
5949 }
5950 }
5953 set newtop 0
5954 }
5956 drawvisible
5957 }
5963 }
5970 }
5974 clear_ctext
5975 set linknum 0
5978 }
5988 }
5990 }
5992 set headers {}
5995 set np 0
5998 set tag mmax
5999 } else {
6001 }
6004 incr np
6005 }
6006 } else {
6009 }
6010 }
6014 }
6016 # make anything that looks like a SHA1 ID be a clickable link
6019 if {![info exists allcommits]} {
6020 getallcommits
6021 }
6032 dispneartags 1
6033 }
6038 }
6045 init_flist [mc "Comments"]
6050 } else {
6052 }
6053 }
6055 proc selfirstline {} {
6056 unmarkmatches
6057 selectline 0 1
6058 }
6060 proc sellastline {} {
6061 global numcommits
6062 unmarkmatches
6065 }
6067 proc selnextline {dir} {
6068 global selectedline
6069 focus .
6072 unmarkmatches
6074 }
6076 proc selnextpage {dir} {
6077 global canv linespc selectedline numcommits
6081 set lpp 1
6082 }
6084 drawvisible
6088 set l 0
6091 }
6092 unmarkmatches
6094 }
6096 proc unselectline {} {
6097 global selectedline currentid
6099 set selectedline {}
6100 catch {unset currentid}
6101 allcanvs delete secsel
6102 rhighlight_none
6103 }
6105 proc reselectline {} {
6106 global selectedline
6110 }
6111 }
6113 proc addtohistory {cmd} {
6114 global history historyindex curview
6119 return
6120 }
6124 } else {
6126 }
6127 incr historyindex
6129 .tf.bar.leftbut conf -state normal
6130 } else {
6131 .tf.bar.leftbut conf -state disabled
6132 }
6133 .tf.bar.rightbut conf -state disabled
6134 }
6136 proc godo {elt} {
6137 global curview
6143 }
6145 }
6147 proc goback {} {
6148 global history historyindex
6149 focus .
6152 incr historyindex -1
6154 .tf.bar.rightbut conf -state normal
6155 }
6157 .tf.bar.leftbut conf -state disabled
6158 }
6159 }
6161 proc goforw {} {
6162 global history historyindex
6163 focus .
6167 incr historyindex
6169 .tf.bar.leftbut conf -state normal
6170 }
6172 .tf.bar.rightbut conf -state disabled
6173 }
6174 }
6176 proc gettree {id} {
6177 global treefilelist treeidlist diffids diffmergeid treepending
6178 global nullid nullid2
6181 catch {unset diffmergeid}
6183 if {![info exists treepending]} {
6185 set cmd [list | git ls-files]
6187 set cmd [list | git ls-files --stage -t]
6188 } else {
6190 }
6192 return
6193 }
6199 }
6200 } else {
6202 }
6203 }
6205 proc gettreeline {gtf id} {
6206 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6208 set nl 0
6212 } else {
6221 }
6223 }
6225 }
6228 }
6230 unset treepending
6232 if {![info exists diffmergeid]} {
6234 }
6237 } else {
6239 }
6240 return 0
6241 }
6243 proc showfile {f} {
6244 global treefilelist treeidlist diffids nullid nullid2
6245 global ctext commentend
6250 return
6251 }
6255 return
6256 }
6257 } else {
6261 return
6262 }
6263 }
6272 settabs 0
6273 }
6275 proc getblobline {bf id} {
6276 global diffids cmitmode ctext
6280 return 0
6281 }
6283 set nl 0
6286 }
6288 # delete last newline
6291 return 0
6292 }
6295 }
6297 proc mergediff {id} {
6298 global diffmergeid mdifffd
6299 global diffids
6300 global parents
6301 global diffcontext
6302 global limitdiffs vfilelimit curview
6306 # this doesn't seem to actually affect anything...
6310 }
6313 return
6314 }
6320 }
6322 proc getmergediffline {mdf id np} {
6323 global diffmergeid ctext cflist mergemax
6324 global difffilestart mdifffd
6327 set nr 0
6332 return 0
6333 }
6335 # start of a new file
6346 # do nothing
6347 } else {
6348 # parse the prefix - one ' ', '-' or '+' for each parent
6349 set spaces {}
6350 set minuses {}
6351 set pluses {}
6352 set isbad 0
6361 } else {
6362 set isbad 1
6363 break
6364 }
6365 }
6366 set tags {}
6367 set num {}
6373 lappend tags mresult
6375 }
6378 set num "max"
6379 }
6381 }
6383 }
6384 }
6388 return 0
6389 }
6391 }
6393 proc startdiff {ids} {
6394 global treediffs diffids treepending diffmergeid nullid nullid2
6396 settabs 1
6398 catch {unset diffmergeid}
6402 if {![info exists treepending]} {
6404 }
6405 } else {
6407 }
6408 }
6410 proc path_filter {filter name} {
6415 return 1
6416 }
6417 } else {
6421 return 1
6422 }
6423 }
6424 }
6425 return 0
6426 }
6428 proc addtocflist {ids} {
6429 global treediffs
6433 }
6435 proc diffcmd {ids flags} {
6436 global nullid nullid2
6442 # comparing working directory with some specific revision
6446 } else {
6448 }
6449 } else {
6450 # comparing working directory with index
6453 lappend cmd -R
6454 }
6455 }
6459 # comparing index with specific revision
6462 } else {
6464 }
6465 } else {
6466 # comparing index with HEAD
6467 lappend cmd HEAD
6468 }
6469 } else {
6471 }
6473 }
6475 proc gettreediffs {ids} {
6476 global treediff treepending
6481 set treediff {}
6484 }
6486 proc gettreediffline {gdtf ids} {
6487 global treediff treediffs treepending diffids diffmergeid
6488 global cmitmode vfilelimit curview limitdiffs
6490 set nr 0
6497 }
6499 }
6500 }
6503 }
6506 set flist {}
6510 }
6511 }
6513 } else {
6515 }
6516 unset treepending
6520 if {![info exists diffmergeid]} {
6522 }
6523 } else {
6525 }
6526 return 0
6527 }
6529 # empty string or positive integer
6530 proc diffcontextvalidate {v} {
6532 }
6534 proc diffcontextchange {n1 n2 op} {
6535 global diffcontextstring diffcontext
6540 reselectline
6541 }
6542 }
6543 }
6545 proc changeignorespace {} {
6546 reselectline
6547 }
6549 proc getblobdiffs {ids} {
6550 global blobdifffd diffids env
6551 global diffinhdr treediffs
6552 global diffcontext
6553 global ignorespace
6554 global limitdiffs vfilelimit curview
6558 append cmd " -w"
6559 }
6562 }
6565 return
6566 }
6567 set diffinhdr 0
6571 }
6573 proc setinlist {var i val} {
6578 }
6581 } else {
6583 }
6584 }
6586 proc makediffhdr {fname ids} {
6587 global ctext curdiffstart treediffs
6592 }
6596 }
6598 proc getblobdiffline {bdf ids} {
6599 global diffids blobdifffd ctext curdiffstart
6600 global diffnexthead diffnextnote difffilestart
6601 global diffinhdr treediffs
6603 set nr 0
6608 return 0
6609 }
6611 # trim off "diff --git "
6613 set diffinhdr 1
6614 # start of a new file
6618 # If the name hasn't changed the length will be odd,
6619 # the middle char will be a space, and the two bits either
6620 # side will be a/name and b/name, or "a/name" and "b/name".
6621 # If the name has changed we'll get "rename from" and
6622 # "rename to" or "copy from" and "copy to" lines following this,
6623 # and we'll use them to get the filenames.
6624 # This complexity is necessary because spaces in the filename(s)
6625 # don't get escaped.
6631 continue
6632 }
6633 # unescape if quoted and chop off the a/ from the front
6636 } else {
6638 }
6641 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6644 set diffinhdr 0
6651 }
6655 }
6661 }
6664 # do nothing
6665 continue
6667 set diffinhdr 0
6668 continue
6669 }
6672 } else {
6679 } else {
6680 # "\ No newline at end of file",
6681 # or something else we don't recognize
6683 }
6684 }
6685 }
6689 return 0
6690 }
6692 }
6694 proc changediffdisp {} {
6695 global ctext diffelide
6699 }
6701 proc highlightfile {loc cline} {
6702 global ctext cflist cflist_top
6709 }
6711 proc prevfile {} {
6712 global difffilestart ctext cmitmode
6715 set prev 0.0
6716 set prevline 1
6721 return
6722 }
6724 incr prevline
6725 }
6727 }
6729 proc nextfile {} {
6730 global difffilestart ctext cmitmode
6734 set line 1
6736 incr line
6739 return
6740 }
6741 }
6742 }
6744 proc clear_ctext {{first 1.0}} {
6745 global ctext smarktop smarkbot
6746 global pendinglinks
6751 }
6754 }
6757 catch {unset pendinglinks}
6758 }
6759 }
6761 proc settabs {{firstab {}}} {
6762 global firsttabstop tabstop ctext have_tk85
6766 }
6767 set w [font measure textfont "0"]
6773 } else {
6775 }
6776 }
6778 proc incrsearch {name ix op} {
6779 global ctext searchstring searchdirn
6783 # no anchor set, use start of selection, or of visible area
6789 } else {
6791 }
6792 }
6797 }
6798 searchmarkvisible 1
6799 }
6800 }
6802 proc dosearch {} {
6803 global sstring ctext searchstring searchdirn
6807 set searchdirn -forwards
6813 set start "@0,0"
6814 }
6818 bell
6819 return
6820 }
6825 }
6826 }
6828 proc dosearchback {} {
6829 global sstring ctext searchstring searchdirn
6833 set searchdirn -backwards
6840 }
6844 bell
6845 return
6846 }
6851 }
6852 }
6854 proc searchmark {first last} {
6855 global ctext searchstring
6858 while {1} {
6863 }
6864 }
6866 proc searchmarkvisible {doall} {
6867 global ctext smarktop smarkbot
6872 # no overlap with previous
6876 } else {
6880 }
6884 }
6885 }
6886 }
6888 proc scrolltext {f0 f1} {
6889 global searchstring
6893 searchmarkvisible 0
6894 }
6895 }
6897 proc setcoords {} {
6898 global linespc charspc canvx0 canvy0
6899 global xspc1 xspc2 lthickness
6901 set linespc [font metrics mainfont -linespace]
6902 set charspc [font measure mainfont "m"]
6908 }
6910 proc redisplay {} {
6911 global canv
6912 global selectedline
6917 clear_display
6918 setcanvscroll
6920 drawvisible
6924 }
6925 }
6927 proc parsefont {f n} {
6928 global fontattr
6933 set s 10
6936 }
6942 "normal" -
6944 "roman" -
6946 }
6947 }
6948 }
6950 proc fontflags {f {isbold 0}} {
6951 global fontattr
6956 }
6958 proc fontname {f} {
6959 global fontattr
6963 lappend n "bold"
6964 }
6966 lappend n "italic"
6967 }
6969 }
6971 proc incrfont {inc} {
6972 global mainfont textfont ctext canv cflist showrefstop
6973 global stopped entries fontattr
6975 unmarkmatches
6979 set s 1
6980 }
6984 set mainfont [fontname mainfont]
6988 set s 1
6989 }
6993 set textfont [fontname textfont]
6994 setcoords
6995 settabs
6996 redisplay
6997 }
6999 proc clearsha1 {} {
7000 global sha1entry sha1string
7003 }
7004 }
7006 proc sha1change {n1 n2 op} {
7007 global sha1string currentid sha1but
7010 set state disabled
7011 } else {
7012 set state normal
7013 }
7017 } else {
7019 }
7020 }
7022 proc gotocommit {} {
7023 global sha1string tagids headids curview varcid
7031 } else {
7038 return
7039 }
7041 }
7042 }
7043 }
7046 return
7047 }
7050 } else {
7052 }
7054 }
7056 proc lineenter {x y id} {
7057 global hoverx hovery hoverid hovertimer
7058 global commitinfo canv
7064 if {[info exists hovertimer]} {
7066 }
7067 set hovertimer [after 500 linehover]
7069 }
7071 proc linemotion {x y id} {
7072 global hoverx hovery hoverid hovertimer
7077 if {[info exists hovertimer]} {
7079 }
7080 set hovertimer [after 500 linehover]
7081 }
7082 }
7084 proc lineleave {id} {
7085 global hoverid hovertimer canv
7089 if {[info exists hovertimer]} {
7091 unset hovertimer
7092 }
7093 unset hoverid
7094 }
7095 }
7097 proc linehover {} {
7098 global hoverx hovery hoverid hovertimer
7099 global canv linespc lthickness
7100 global commitinfo
7113 -fill \#ffff80 -outline black -width 1 -tags hover]
7116 -font mainfont]
7118 }
7120 proc clickisonarrow {id y} {
7121 global lthickness
7130 }
7131 }
7132 return {}
7133 }
7135 proc arrowjump {id n y} {
7136 global canv
7138 # 1 <-> 2, 3 <-> 4, etc...
7148 set yfrac 0
7149 }
7151 }
7153 proc lineclick {x y id isnew} {
7154 global ctext commitinfo children canv thickerline curview
7157 unmarkmatches
7158 unselectline
7159 normalline
7161 # draw this line thicker than normal
7169 }
7173 return
7174 }
7178 }
7179 # fill the details pane with info about this line
7181 clear_ctext
7182 settabs 0
7194 set i 0
7196 incr i
7206 }
7207 }
7209 init_flist {}
7210 }
7212 proc normalline {} {
7213 global thickerline
7214 if {[info exists thickerline]} {
7216 unset thickerline
7218 }
7219 }
7221 proc selbyid {id} {
7222 global curview
7225 }
7226 }
7228 proc mstime {} {
7229 global startmstime
7230 if {![info exists startmstime]} {
7231 set startmstime [clock clicks -milliseconds]
7232 }
7234 }
7236 proc rowmenu {x y id} {
7237 global rowctxmenu selectedline rowmenuid curview
7238 global nullid nullid2 fakerowmenu mainhead
7240 stopfinding
7243 set state disabled
7244 } else {
7245 set state normal
7246 }
7251 } else {
7253 }
7254 } else {
7256 }
7261 }
7263 proc diffvssel {dirn} {
7264 global rowmenuid selectedline
7270 } else {
7273 }
7276 }
7278 proc doseldiff {oldid newid} {
7279 global ctext
7280 global commitinfo
7283 clear_ctext
7284 init_flist [mc "Top"]
7299 }
7301 proc mkpatch {} {
7302 global rowmenuid currentid commitinfo patchtop patchnum
7304 if {![info exists currentid]} return
7309 set top .patch
7338 incr patchnum
7348 }
7350 proc mkpatchrev {} {
7351 global patchtop
7357 foreach e [list fromsha1 fromhead tosha1 tohead] \
7363 }
7364 }
7366 proc mkpatchgo {} {
7367 global patchtop nullid nullid2
7373 # trim off the initial "|"
7378 }
7380 unset patchtop
7381 }
7383 proc mkpatchcan {} {
7384 global patchtop
7387 unset patchtop
7388 }
7390 proc mktag {} {
7391 global rowmenuid mktagtop commitinfo
7393 set top .maketag
7419 }
7421 proc domktag {} {
7422 global mktagtop env tagids idtags
7427 error_popup [mc "No tag name specified"]
7428 return
7429 }
7432 return
7433 }
7434 if {[catch {
7436 } err]} {
7438 return
7439 }
7445 dispneartags 0
7446 run refill_reflist
7447 }
7449 proc redrawtags {id} {
7450 global canv linehtag idpos currentid curview cmitlisted
7451 global canvxmax iddrawn circleitem mainheadid circlecolors
7457 set ofill yellow
7458 } else {
7460 }
7470 setcanvscroll
7471 }
7474 }
7475 }
7477 proc mktagcan {} {
7478 global mktagtop
7481 unset mktagtop
7482 }
7484 proc mktaggo {} {
7485 domktag
7486 mktagcan
7487 }
7489 proc writecommit {} {
7490 global rowmenuid wrcomtop commitinfo wrcomcmd
7492 set top .writecommit
7522 }
7524 proc wrcomgo {} {
7525 global wrcomtop
7532 }
7534 unset wrcomtop
7535 }
7537 proc wrcomcan {} {
7538 global wrcomtop
7541 unset wrcomtop
7542 }
7544 proc mkbranch {} {
7545 global rowmenuid mkbrtop
7547 set top .makebranch
7568 }
7570 proc mkbrgo {top} {
7571 global headids idheads
7576 error_popup [mc "Please specify a name for the new branch"]
7577 return
7578 }
7580 nowbusy newbranch
7581 update
7582 if {[catch {
7584 } err]} {
7585 notbusy newbranch
7587 } else {
7591 notbusy newbranch
7593 dispneartags 0
7594 run refill_reflist
7595 }
7596 }
7598 proc cherrypick {} {
7599 global rowmenuid curview
7600 global mainhead mainheadid
7602 set oldhead [exec git rev-parse HEAD]
7605 set ok [confirm_popup [mc "Commit %s is already\
7606 included in branch %s -- really re-apply it?" \
7609 }
7610 nowbusy cherrypick [mc "Cherry-picking"]
7611 update
7612 # Unfortunately git-cherry-pick writes stuff to stderr even when
7613 # no error occurs, and exec takes that as an indication of error...
7615 notbusy cherrypick
7617 return
7618 }
7619 set newhead [exec git rev-parse HEAD]
7621 notbusy cherrypick
7622 error_popup [mc "No changes committed"]
7623 return
7624 }
7631 }
7636 }
7637 notbusy cherrypick
7638 }
7640 proc resethead {} {
7641 global mainhead rowmenuid confirm_ok resettype
7643 set confirm_ok 0
7644 set w ".confirmreset"
7650 -justify center -aspect 1000
7655 set resettype mixed
7657 -text [mc "Soft: Leave working tree and index untouched"]
7660 -text [mc "Mixed: Leave working tree untouched, reset index"]
7663 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7673 if {[catch {set fd [open \
7676 } else {
7677 dohidelocalchanges
7679 nowbusy reset [mc "Resetting"]
7681 }
7682 }
7684 proc readresetstat {fd} {
7685 global mainhead mainheadid showlocalchanges rprogcoord
7690 adjustprogress
7691 }
7692 return 1
7693 }
7694 set rprogcoord 0
7695 adjustprogress
7696 notbusy reset
7699 }
7701 set newhead [exec git rev-parse HEAD]
7708 }
7710 doshowlocalchanges
7711 }
7712 return 0
7713 }
7715 # context menu for a head
7716 proc headmenu {x y id head} {
7717 global headmenuid headmenuhead headctxmenu mainhead
7719 stopfinding
7722 set state normal
7724 set state disabled
7725 }
7729 }
7731 proc cobranch {} {
7732 global headmenuid headmenuhead headids
7733 global showlocalchanges mainheadid
7735 # check the tree is clean first??
7736 nowbusy checkout [mc "Checking out"]
7737 update
7738 dohidelocalchanges
7739 if {[catch {
7741 } err]} {
7742 notbusy checkout
7745 dodiffindex
7746 }
7747 } else {
7749 }
7750 }
7752 proc readcheckoutstat {fd newhead newheadid} {
7753 global mainhead mainheadid headids showlocalchanges progresscoords
7758 adjustprogress
7759 }
7760 return 1
7761 }
7762 set progresscoords {0 0}
7763 adjustprogress
7764 notbusy checkout
7767 }
7775 dodiffindex
7776 }
7777 }
7779 proc rmbranch {} {
7780 global headmenuid headmenuhead mainhead
7781 global idheads
7785 # this check shouldn't be needed any more...
7787 error_popup [mc "Cannot delete the currently checked-out branch"]
7788 return
7789 }
7792 # the stuff on this branch isn't on any other branch
7793 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7795 }
7796 nowbusy rmbranch
7797 update
7799 notbusy rmbranch
7801 return
7802 }
7806 notbusy rmbranch
7807 dispneartags 0
7808 run refill_reflist
7809 }
7811 # Display a list of tags and heads
7812 proc showrefs {} {
7813 global showrefstop bgcolor fgcolor selectbgcolor
7814 global bglist fglist reflistfilter reflist maincursor
7816 set top .showrefs
7820 refill_reflist
7821 return
7822 }
7829 -spacing1 1 -spacing3 1 -state disabled
7840 set reflistfilter "*"
7841 trace add variable reflistfilter write reflistfilter_change
7852 set reflist {}
7853 refill_reflist
7854 }
7856 proc sel_reflist {w x y} {
7857 global showrefstop reflist headids tagids otherrefids
7867 }
7869 }
7871 proc unsel_reflist {} {
7872 global showrefstop
7876 }
7878 proc reflistfilter_change {n1 n2 op} {
7879 global reflistfilter
7881 after cancel refill_reflist
7882 after 200 refill_reflist
7883 }
7885 proc refill_reflist {} {
7886 global reflist reflistfilter showrefstop headids tagids otherrefids
7887 global curview commitinterest
7890 set refs {}
7891 foreach n [array names headids] {
7895 } else {
7897 }
7898 }
7899 }
7900 foreach n [array names tagids] {
7904 } else {
7906 }
7907 }
7908 }
7909 foreach n [array names otherrefids] {
7913 } else {
7915 }
7916 }
7917 }
7925 set i 0
7926 set j 0
7935 }
7936 } else {
7937 set cmp -1
7938 }
7939 } else {
7940 set cmp 1
7941 }
7943 -1 {
7945 incr i
7946 }
7947 0 {
7948 incr i
7949 incr j
7950 }
7951 1 {
7956 incr j
7957 }
7958 }
7959 }
7961 # delete last newline
7964 }
7966 # Stuff for finding nearby tags
7967 proc getallcommits {} {
7968 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7969 global idheads idtags idotherrefs allparents tagobjid
7971 if {![info exists allcommits]} {
7972 set nextarc 0
7973 set allcommits 0
7974 set seeds {}
7975 set allcwait 0
7976 set cachedarcs 0
7977 set allccache [file join [gitdir] "gitk.cache"]
7978 if {![catch {
7980 set allcwait 1
7982 }]} return
7983 }
7986 return
7987 }
7988 set cmd [list | git rev-list --parents]
7991 set ids "--all"
7992 } else {
7993 set refs [concat [array names idheads] [array names idtags] \
7994 [array names idotherrefs]]
7995 set ids {}
7996 set tagobjs {}
7997 foreach name [array names tagobjid] {
7999 }
8004 }
8005 }
8009 }
8010 }
8011 }
8015 incr allcommits
8016 nowbusy allcommits
8018 } else {
8019 dispneartags 0
8020 }
8021 }
8023 # Since most commits have 1 parent and 1 child, we group strings of
8024 # such commits into "arcs" joining branch/merge points (BMPs), which
8025 # are commits that either don't have 1 parent or don't have 1 child.
8026 #
8027 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8028 # arcout(id) - outgoing arcs for BMP
8029 # arcids(a) - list of IDs on arc including end but not start
8030 # arcstart(a) - BMP ID at start of arc
8031 # arcend(a) - BMP ID at end of arc
8032 # growing(a) - arc a is still growing
8033 # arctags(a) - IDs out of arcids (excluding end) that have tags
8034 # archeads(a) - IDs out of arcids (excluding end) that have heads
8035 # The start of an arc is at the descendent end, so "incoming" means
8036 # coming from descendents, and "outgoing" means going towards ancestors.
8038 proc getallclines {fd} {
8039 global allparents allchildren idtags idheads nextarc
8040 global arcnos arcids arctags arcout arcend arcstart archeads growing
8041 global seeds allcommits cachedarcs allcupdate
8043 set nid 0
8047 # seen it already
8048 continue
8049 }
8050 set cachedarcs 0
8057 } else {
8063 }
8066 }
8068 # seen parent already
8071 }
8075 }
8078 continue
8079 }
8080 }
8085 }
8087 set ao {}
8090 set a [incr nextarc]
8099 # seen it already, may need to make a new branch
8102 }
8106 }
8108 }
8110 }
8112 global cached_dheads cached_dtags cached_atags
8113 catch {unset cached_dheads}
8114 catch {unset cached_dtags}
8115 catch {unset cached_atags}
8116 }
8119 }
8120 set cacheok 1
8121 if {[catch {
8124 } err]} {
8125 # got an error reading the list of commits
8126 # if we were updating, try rereading the whole thing again
8128 incr allcommits -1
8130 return
8131 }
8132 error_popup "[mc "Error reading commit topology information;\
8133 branch and preceding/following tag information\
8135 set cacheok 0
8136 }
8137 if {[incr allcommits -1] == 0} {
8138 notbusy allcommits
8140 run savecache
8141 }
8142 }
8143 dispneartags 0
8144 return 0
8145 }
8147 proc recalcarc {a} {
8148 global arctags archeads arcids idtags idheads
8150 set at {}
8151 set ah {}
8155 }
8158 }
8159 }
8162 }
8164 proc splitarc {p} {
8165 global arcnos arcids nextarc arctags archeads idtags idheads
8166 global arcstart arcend arcout allparents growing
8171 return
8172 }
8177 return
8178 }
8179 set na [incr nextarc]
8182 } else {
8186 }
8196 }
8201 } else {
8204 }
8205 }
8207 # reconstruct tags and heads lists
8211 } else {
8214 }
8215 }
8217 # Update things for a new commit added that is a child of one
8218 # existing commit. Used when cherry-picking.
8219 proc addnewchild {id p} {
8220 global allparents allchildren idtags nextarc
8221 global arcnos arcids arctags arcout arcend arcstart archeads growing
8222 global seeds allcommits
8230 set a [incr nextarc]
8238 }
8241 }
8243 # This implements a cache for the topology information.
8244 # The cache saves, for each arc, the start and end of the arc,
8245 # the ids on the arc, and the outgoing arcs from the end.
8246 proc readcache {f} {
8247 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8248 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8249 global allcwait
8255 }
8256 if {[catch {
8258 # finish reading the cache and setting up arctags, etc.
8262 foreach id [array names idtags] {
8268 }
8269 }
8270 }
8271 foreach id [array names idheads] {
8277 }
8278 }
8279 }
8283 }
8284 }
8285 set allcwait 0
8286 } else {
8296 }
8300 } else {
8304 }
8305 }
8311 }
8314 }
8317 }
8319 }
8320 } err]} {
8322 return 0
8323 }
8325 getallcommits
8326 }
8328 }
8330 proc getcache {f} {
8331 global nextarc cachedarcs possible_seeds
8333 if {[catch {
8336 # make sure it's an integer
8339 set nextarc 0
8340 set possible_seeds {}
8342 } err]} {
8344 }
8345 return 0
8346 }
8348 proc dropcache {err} {
8349 global allcwait nextarc cachedarcs seeds
8352 foreach v {arcnos arcout arcids arcstart arcend growing \
8353 arctags archeads allparents allchildren} {
8356 }
8357 set allcwait 0
8358 set nextarc 0
8359 set cachedarcs 0
8360 set seeds {}
8361 getallcommits
8362 }
8364 proc writecache {f} {
8365 global cachearc cachedarcs allccache
8366 global arcstart arcend arcnos arcids arcout
8372 }
8373 if {[catch {
8377 } else {
8379 }
8380 }
8381 } err]} {
8385 return 0
8386 }
8391 return 0
8392 }
8393 return 1
8394 }
8396 proc savecache {} {
8397 global nextarc cachedarcs cachearc allccache
8400 set cachearc 0
8402 catch {
8406 }
8407 }
8409 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8410 # or 0 if neither is true.
8411 proc anc_or_desc {a b} {
8412 global arcout arcstart arcend arcnos cached_isanc
8415 # Both are on the same arc(s); either both are the same BMP,
8416 # or if one is not a BMP, the other is also not a BMP or is
8417 # the BMP at end of the arc (and it only has 1 incoming arc).
8418 # Or both can be BMPs with no incoming arcs.
8420 return 0
8421 }
8427 return 1
8428 } else {
8429 return -1
8430 }
8431 }
8437 } else {
8438 set aend {}
8439 }
8441 } else {
8443 }
8448 } else {
8449 set bend {}
8450 }
8452 } else {
8454 }
8456 return 1
8457 }
8459 return -1
8460 }
8463 return 1
8464 }
8465 }
8468 return -1
8469 }
8471 return 0
8472 }
8473 }
8481 continue
8482 }
8488 return 1
8492 return -1
8493 }
8499 }
8500 }
8501 }
8504 return 0
8505 }
8509 # and returns 0 if so and 1 if not.
8510 # If we subsequently discover a tag on such a growing tip, and that
8513 # isn't a good choice to display as a descendent tag of
8517 #
8518 proc is_certain {desc anc} {
8519 global arcnos arcout arcstart arcend growing problems
8521 set certain {}
8523 # tags on the same arc are certain
8525 return 1
8526 }
8531 }
8532 }
8535 } else {
8538 }
8540 return 1
8541 }
8544 set nnh 1
8545 set ngrowanc 0
8549 incr nnh -1
8550 }
8556 incr ngrowanc
8557 }
8558 } else {
8565 incr nnh -1
8566 }
8568 incr ngrowanc -1
8569 }
8579 incr nnh -1
8580 }
8582 incr ngrowanc -1
8583 }
8585 }
8586 }
8587 }
8588 }
8589 }
8590 }
8594 } else {
8597 incr nnh
8598 }
8599 }
8600 }
8601 }
8602 foreach x [array names growanc] {
8604 return 0
8605 }
8606 return 0
8607 }
8608 return 1
8609 }
8611 proc validate_arctags {a} {
8612 global arctags idtags
8614 set i -1
8617 incr i
8620 incr i -1
8621 }
8622 }
8624 }
8626 proc validate_archeads {a} {
8627 global archeads idheads
8629 set i -1
8632 incr i
8635 incr i -1
8636 }
8637 }
8639 }
8641 # Return the list of IDs that have tags that are descendents of id,
8642 # ignoring IDs that are descendents of IDs already reported.
8643 proc desctags {id} {
8644 global arcnos arcstart arcids arctags idtags allparents
8645 global growing cached_dtags
8648 return {}
8649 }
8650 set t1 [clock clicks -milliseconds]
8653 # part-way along an arc; check that arc first
8658 set tid {}
8663 }
8666 }
8667 }
8671 }
8672 }
8675 }
8680 set nc 1
8686 incr nc -1
8687 }
8688 # ignore tags on starting node
8692 set ta 1
8695 set ta 1
8696 }
8697 }
8704 }
8705 }
8714 }
8717 }
8719 incr nc -1
8720 }
8722 }
8723 }
8724 }
8729 incr nc
8730 }
8731 }
8732 }
8733 }
8734 set tags {}
8735 foreach id [array names tagloc] {
8740 }
8741 }
8742 }
8743 }
8744 set t2 [clock clicks -milliseconds]
8747 # remove tags that are descendents of other tags
8755 incr j -1
8756 incr i -1
8759 incr i -1
8760 break
8761 }
8762 }
8763 }
8765 if {[array names growing] ne {}} {
8766 # graph isn't finished, need to check if any tag could get
8767 # eclipsed by another tag coming later. Simply ignore any
8768 # tags that could later get eclipsed.
8769 set ctags {}
8773 }
8774 }
8777 } else {
8779 }
8780 } else {
8782 }
8783 set t3 [clock clicks -milliseconds]
8787 }
8789 }
8791 proc anctags {id} {
8792 global arcnos arcids arcout arcend arctags idtags allparents
8793 global growing cached_atags
8796 return {}
8797 }
8798 set t1 [clock clicks -milliseconds]
8801 # part-way along an arc; check that arc first
8810 }
8811 }
8812 }
8814 return {}
8815 }
8819 }
8820 }
8823 }
8828 set taglist {}
8829 set nc 1
8835 incr nc -1
8836 }
8837 # ignore tags on starting node
8841 set td 1
8844 set td 1
8845 }
8846 }
8852 }
8853 }
8865 }
8866 }
8869 }
8871 incr nc -1
8872 }
8874 }
8875 }
8876 }
8881 incr nc
8882 }
8883 }
8884 }
8885 }
8886 set t2 [clock clicks -milliseconds]
8888 set tags {}
8889 foreach id [array names tagloc] {
8894 }
8895 }
8896 }
8897 }
8899 # remove tags that are ancestors of other tags
8907 incr j -1
8908 incr i -1
8911 incr i -1
8912 break
8913 }
8914 }
8915 }
8917 if {[array names growing] ne {}} {
8918 # graph isn't finished, need to check if any tag could get
8919 # eclipsed by another tag coming later. Simply ignore any
8920 # tags that could later get eclipsed.
8921 set ctags {}
8925 }
8926 }
8929 } else {
8931 }
8932 } else {
8934 }
8935 set t3 [clock clicks -milliseconds]
8939 }
8941 }
8943 # Return the list of IDs that have heads that are descendents of id,
8944 # including id itself if it has a head.
8945 proc descheads {id} {
8946 global arcnos arcstart arcids archeads idheads cached_dheads
8947 global allparents
8950 return {}
8951 }
8952 set aret {}
8954 # part-way along an arc; check it first
8963 }
8964 }
8966 }
8970 set ret {}
8975 } else {
8978 }
8984 }
8985 }
8990 }
8991 }
8992 }
8993 }
8997 }
8999 proc addedtag {id} {
9000 global arcnos arcout cached_dtags cached_atags
9005 }
9006 catch {unset cached_dtags}
9007 catch {unset cached_atags}
9008 }
9010 proc addedhead {hid head} {
9011 global arcnos arcout cached_dheads
9016 }
9017 catch {unset cached_dheads}
9018 }
9020 proc removedhead {hid head} {
9021 global cached_dheads
9023 catch {unset cached_dheads}
9024 }
9026 proc movedhead {hid head} {
9027 global arcnos arcout cached_dheads
9032 }
9033 catch {unset cached_dheads}
9034 }
9036 proc changedrefs {} {
9037 global cached_dheads cached_dtags cached_atags
9038 global arctags archeads arcnos arcout idheads idtags
9040 foreach id [concat [array names idheads] [array names idtags]] {
9046 }
9047 }
9048 }
9049 catch {unset cached_dtags}
9050 catch {unset cached_atags}
9051 catch {unset cached_dheads}
9052 }
9054 proc rereadrefs {} {
9055 global idtags idheads idotherrefs mainheadid
9057 set refids [concat [array names idtags] \
9058 [array names idheads] [array names idotherrefs]]
9062 }
9063 }
9065 readrefs
9066 changedrefs
9068 [array names idheads] [array names idotherrefs]]]
9073 }
9074 }
9078 }
9079 run refill_reflist
9080 }
9082 proc listrefs {id} {
9083 global idtags idheads idotherrefs
9085 set x {}
9088 }
9089 set y {}
9092 }
9093 set z {}
9096 }
9098 }
9100 proc showtag {tag isnew} {
9101 global ctext tagcontents tagids linknum tagobjid
9105 }
9107 clear_ctext
9108 settabs 0
9109 set linknum 0
9111 catch {
9113 }
9114 }
9117 } else {
9119 }
9122 init_flist {}
9123 }
9125 proc doquit {} {
9126 global stopped
9127 global gitktmpdir
9129 set stopped 100
9130 savestuff .
9131 destroy .
9133 if {[info exists gitktmpdir]} {
9135 }
9136 }
9138 proc mkfontdisp {font top which} {
9147 }
9149 proc choosefont {font which} {
9150 global fontparam fontlist fonttop fontattr
9158 set top .gitkfont
9161 font create sample
9167 set fontlist [lsort [font families]]
9178 -textvariable fontparam(size) \
9179 -validatecommand {string is integer -strict %s}
9181 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9182 -variable fontparam(weight) -onvalue bold -offvalue normal
9184 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9185 -variable fontparam(slant) -onvalue italic -offvalue roman
9189 -background white
9191 -fill black -tags text
9201 trace add variable fontparam write chg_fontparam
9202 } else {
9205 }
9210 }
9211 }
9213 proc centertext {w} {
9215 }
9217 proc fontok {} {
9218 global fontparam fontpref prefstop
9224 }
9227 }
9231 fontcan
9232 }
9234 proc fontcan {} {
9235 global fonttop fontparam
9237 if {[info exists fonttop]} {
9239 catch {font delete sample}
9240 unset fonttop
9241 unset fontparam
9242 }
9243 }
9245 proc selfontfam {} {
9246 global fonttop fontparam
9251 }
9252 }
9254 proc chg_fontparam {v sub op} {
9255 global fontparam
9258 }
9260 proc doprefs {} {
9261 global maxwidth maxgraphpct
9262 global oldprefs prefstop showneartags showlocalchanges
9263 global bgcolor fgcolor ctext diffcolors selectbgcolor
9264 global tabstop limitdiffs autoselect extdifftool
9266 set top .gitkprefs
9270 return
9271 }
9272 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9273 limitdiffs tabstop} {
9275 }
9282 -font optionfont
9286 -font optionfont
9319 -padx 10
9321 -command choose_extdiff
9348 "diff hunk header" \
9370 }
9372 proc choose_extdiff {} {
9373 global extdifftool
9375 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9378 }
9379 }
9381 proc choosecolor {v vi w x cmd} {
9390 }
9392 proc setselbg {c} {
9393 global bglist cflist
9396 }
9400 }
9402 proc setbg {c} {
9403 global bglist
9407 }
9408 }
9410 proc setfg {c} {
9411 global fglist canv
9415 }
9418 }
9420 proc prefscan {} {
9421 global oldprefs prefstop
9423 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9424 limitdiffs tabstop} {
9427 }
9429 unset prefstop
9430 fontcan
9431 }
9433 proc prefsok {} {
9434 global maxwidth maxgraphpct
9435 global oldprefs prefstop showneartags showlocalchanges
9436 global fontpref mainfont textfont uifont
9437 global limitdiffs treediffs
9440 unset prefstop
9441 fontcan
9442 set fontchanged 0
9446 eval font configure mainfont [fontflags mainfont]
9447 eval font configure mainfontbold [fontflags mainfont 1]
9448 setcoords
9449 set fontchanged 1
9450 }
9454 eval font configure textfont [fontflags textfont]
9455 eval font configure textfontbold [fontflags textfont 1]
9456 }
9460 eval font configure uifont [fontflags uifont]
9461 }
9462 settabs
9465 doshowlocalchanges
9466 } else {
9467 dohidelocalchanges
9468 }
9469 }
9471 # treediffs elements are limited by path
9472 catch {unset treediffs}
9473 }
9476 redisplay
9479 reselectline
9480 }
9481 }
9483 proc formatdate {d} {
9484 global datetimeformat
9487 }
9489 }
9491 # This list of encoding names and aliases is distilled from
9492 # http://www.iana.org/assignments/character-sets.
9493 # Not all of them are supported by Tcl.
9494 set encoding_aliases {
9495 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9496 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9497 { ISO-10646-UTF-1 csISO10646UTF1 }
9498 { ISO_646.basic:1983 ref csISO646basic1983 }
9499 { INVARIANT csINVARIANT }
9500 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9501 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9502 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9503 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9504 { NATS-DANO iso-ir-9-1 csNATSDANO }
9505 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9506 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9507 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9508 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9509 { ISO-2022-KR csISO2022KR }
9510 { EUC-KR csEUCKR }
9511 { ISO-2022-JP csISO2022JP }
9512 { ISO-2022-JP-2 csISO2022JP2 }
9513 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9514 csISO13JISC6220jp }
9515 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9516 { IT iso-ir-15 ISO646-IT csISO15Italian }
9517 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9518 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9519 { greek7-old iso-ir-18 csISO18Greek7Old }
9520 { latin-greek iso-ir-19 csISO19LatinGreek }
9521 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9522 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9523 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9524 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9525 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9526 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9527 { INIS iso-ir-49 csISO49INIS }
9528 { INIS-8 iso-ir-50 csISO50INIS8 }
9529 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9530 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9531 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9532 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9533 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9534 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9535 csISO60Norwegian1 }
9536 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9537 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9538 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9539 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9540 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9541 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9542 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9543 { greek7 iso-ir-88 csISO88Greek7 }
9544 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9545 { iso-ir-90 csISO90 }
9546 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9547 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9548 csISO92JISC62991984b }
9549 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9550 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9551 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9552 csISO95JIS62291984handadd }
9553 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9554 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9555 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9556 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9557 CP819 csISOLatin1 }
9558 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9559 { T.61-7bit iso-ir-102 csISO102T617bit }
9560 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9561 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9562 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9563 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9564 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9565 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9566 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9567 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9568 arabic csISOLatinArabic }
9569 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9570 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9571 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9572 greek greek8 csISOLatinGreek }
9573 { T.101-G2 iso-ir-128 csISO128T101G2 }
9574 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9575 csISOLatinHebrew }
9576 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9577 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9578 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9579 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9580 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9581 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9582 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9583 csISOLatinCyrillic }
9584 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9585 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9586 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9587 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9588 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9589 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9590 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9591 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9592 { ISO_10367-box iso-ir-155 csISO10367Box }
9593 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9594 { latin-lap lap iso-ir-158 csISO158Lap }
9595 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9596 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9597 { us-dk csUSDK }
9598 { dk-us csDKUS }
9599 { JIS_X0201 X0201 csHalfWidthKatakana }
9600 { KSC5636 ISO646-KR csKSC5636 }
9601 { ISO-10646-UCS-2 csUnicode }
9602 { ISO-10646-UCS-4 csUCS4 }
9603 { DEC-MCS dec csDECMCS }
9604 { hp-roman8 roman8 r8 csHPRoman8 }
9605 { macintosh mac csMacintosh }
9606 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9607 csIBM037 }
9608 { IBM038 EBCDIC-INT cp038 csIBM038 }
9609 { IBM273 CP273 csIBM273 }
9610 { IBM274 EBCDIC-BE CP274 csIBM274 }
9611 { IBM275 EBCDIC-BR cp275 csIBM275 }
9612 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9613 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9614 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9615 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9616 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9617 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9618 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9619 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9620 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9621 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9622 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9623 { IBM437 cp437 437 csPC8CodePage437 }
9624 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9625 { IBM775 cp775 csPC775Baltic }
9626 { IBM850 cp850 850 csPC850Multilingual }
9627 { IBM851 cp851 851 csIBM851 }
9628 { IBM852 cp852 852 csPCp852 }
9629 { IBM855 cp855 855 csIBM855 }
9630 { IBM857 cp857 857 csIBM857 }
9631 { IBM860 cp860 860 csIBM860 }
9632 { IBM861 cp861 861 cp-is csIBM861 }
9633 { IBM862 cp862 862 csPC862LatinHebrew }
9634 { IBM863 cp863 863 csIBM863 }
9635 { IBM864 cp864 csIBM864 }
9636 { IBM865 cp865 865 csIBM865 }
9637 { IBM866 cp866 866 csIBM866 }
9638 { IBM868 CP868 cp-ar csIBM868 }
9639 { IBM869 cp869 869 cp-gr csIBM869 }
9640 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9641 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9642 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9643 { IBM891 cp891 csIBM891 }
9644 { IBM903 cp903 csIBM903 }
9645 { IBM904 cp904 904 csIBBM904 }
9646 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9647 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9648 { IBM1026 CP1026 csIBM1026 }
9649 { EBCDIC-AT-DE csIBMEBCDICATDE }
9650 { EBCDIC-AT-DE-A csEBCDICATDEA }
9651 { EBCDIC-CA-FR csEBCDICCAFR }
9652 { EBCDIC-DK-NO csEBCDICDKNO }
9653 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9654 { EBCDIC-FI-SE csEBCDICFISE }
9655 { EBCDIC-FI-SE-A csEBCDICFISEA }
9656 { EBCDIC-FR csEBCDICFR }
9657 { EBCDIC-IT csEBCDICIT }
9658 { EBCDIC-PT csEBCDICPT }
9659 { EBCDIC-ES csEBCDICES }
9660 { EBCDIC-ES-A csEBCDICESA }
9661 { EBCDIC-ES-S csEBCDICESS }
9662 { EBCDIC-UK csEBCDICUK }
9663 { EBCDIC-US csEBCDICUS }
9664 { UNKNOWN-8BIT csUnknown8BiT }
9665 { MNEMONIC csMnemonic }
9666 { MNEM csMnem }
9667 { VISCII csVISCII }
9668 { VIQR csVIQR }
9669 { KOI8-R csKOI8R }
9670 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9671 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9672 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9673 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9674 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9675 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9676 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9677 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9678 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9679 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9680 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9681 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9682 { IBM1047 IBM-1047 }
9683 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9684 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9685 { UNICODE-1-1 csUnicode11 }
9686 { CESU-8 csCESU-8 }
9687 { BOCU-1 csBOCU-1 }
9688 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9689 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9690 l8 }
9691 { ISO-8859-15 ISO_8859-15 Latin-9 }
9692 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9693 { GBK CP936 MS936 windows-936 }
9694 { JIS_Encoding csJISEncoding }
9695 { Shift_JIS MS_Kanji csShiftJIS }
9696 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9697 EUC-JP }
9698 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9699 { ISO-10646-UCS-Basic csUnicodeASCII }
9700 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9701 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9702 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9703 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9704 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9705 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9706 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9707 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9708 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9709 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9710 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9711 { Ventura-US csVenturaUS }
9712 { Ventura-International csVenturaInternational }
9713 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9714 { PC8-Turkish csPC8Turkish }
9715 { IBM-Symbols csIBMSymbols }
9716 { IBM-Thai csIBMThai }
9717 { HP-Legal csHPLegal }
9718 { HP-Pi-font csHPPiFont }
9719 { HP-Math8 csHPMath8 }
9720 { Adobe-Symbol-Encoding csHPPSMath }
9721 { HP-DeskTop csHPDesktop }
9722 { Ventura-Math csVenturaMath }
9723 { Microsoft-Publishing csMicrosoftPublishing }
9724 { Windows-31J csWindows31J }
9725 { GB2312 csGB2312 }
9726 { Big5 csBig5 }
9727 }
9729 proc tcl_encoding {enc} {
9730 global encoding_aliases
9731 set names [encoding names]
9736 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9739 }
9740 }
9745 # look through the aliases for one that tcl knows about
9751 }
9752 }
9754 }
9755 break
9756 }
9757 }
9760 }
9761 return {}
9762 }
9764 # First check that Tcl/Tk is recent enough
9765 if {[catch {package require Tk 8.4} err]} {
9766 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9767 Gitk requires at least Tcl/Tk 8.4."]
9768 exit 1
9769 }
9771 # defaults...
9772 set wrcomcmd "git diff-tree --stdin -p --pretty"
9774 set gitencoding {}
9775 catch {
9776 set gitencoding [exec git config --get i18n.commitencoding]
9777 }
9779 set gitencoding "utf-8"
9780 }
9784 }
9786 set mainfont {Helvetica 9}
9787 set textfont {Courier 9}
9788 set uifont {Helvetica 9 bold}
9789 set tabstop 8
9790 set findmergefiles 0
9791 set maxgraphpct 50
9792 set maxwidth 16
9793 set revlistorder 0
9794 set fastdate 0
9795 set uparrowlen 5
9796 set downarrowlen 5
9797 set mingaplen 100
9798 set cmitmode "patch"
9799 set wrapcomment "none"
9800 set showneartags 1
9801 set maxrefs 20
9802 set maxlinelen 200
9803 set showlocalchanges 1
9804 set limitdiffs 1
9805 set datetimeformat "%Y-%m-%d %H:%M:%S"
9806 set autoselect 1
9808 set extdifftool "meld"
9810 set colors {green red blue magenta darkgrey brown orange}
9811 set bgcolor white
9812 set fgcolor black
9813 set diffcolors {red "#00a000" blue}
9814 set diffcontext 3
9815 set ignorespace 0
9816 set selectbgcolor gray85
9818 set circlecolors {white blue gray blue blue}
9820 ## For msgcat loading, first locate the installation location.
9821 if { [info exists ::env(GITK_MSGSDIR)] } {
9822 ## Msgsdir was manually set in the environment.
9823 set gitk_msgsdir $::env(GITK_MSGSDIR)
9824 } else {
9825 ## Let's guess the prefix from argv0.
9829 unset gitk_prefix
9830 }
9832 ## Internationalization (i18n) through msgcat and gettext. See
9833 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9834 package require msgcat
9835 namespace import ::msgcat::mc
9836 ## And eventually load the actual message catalog
9839 catch {source ~/.gitk}
9841 font create optionfont -family sans-serif -size -12
9844 eval font create mainfont [fontflags mainfont]
9845 eval font create mainfontbold [fontflags mainfont 1]
9848 eval font create textfont [fontflags textfont]
9849 eval font create textfontbold [fontflags textfont 1]
9852 eval font create uifont [fontflags uifont]
9854 setoptions
9856 # check that we can find a .git directory somewhere...
9857 if {[catch {set gitdir [gitdir]}]} {
9858 show_error {} . [mc "Cannot find a git repository here."]
9859 exit 1
9860 }
9863 exit 1
9864 }
9866 set revtreeargs {}
9867 set cmdline_files {}
9868 set i 0
9869 set revtreeargscmd {}
9872 "" { }
9873 "--" {
9875 break
9876 }
9877 "--argscmd=*" {
9879 }
9880 default {
9882 }
9883 }
9884 incr i
9885 }
9888 # no -- on command line, but some arguments (other than --argscmd)
9889 if {[catch {
9894 # Unfortunately git rev-parse doesn't produce an error when
9895 # something is both a revision and a filename. To be consistent
9896 # with git log and git rev-list, check revtreeargs for filenames.
9899 show_error {} . [mc "Ambiguous argument '%s': both revision\
9901 exit 1
9902 }
9903 }
9904 } err]} {
9906 # so look for "fatal:".
9910 }
9912 exit 1
9913 }
9914 }
9916 set nullid "0000000000000000000000000000000000000000"
9917 set nullid2 "0000000000000000000000000000000000000001"
9918 set nullfile "/dev/null"
9922 set runq {}
9923 set history {}
9924 set historyindex 0
9925 set fh_serial 0
9926 set nhl_names {}
9927 set highlight_paths {}
9928 set findpattern {}
9929 set searchdirn -forwards
9930 set boldrows {}
9931 set boldnamerows {}
9932 set diffelide {0 0}
9933 set markingmatches 0
9934 set linkentercount 0
9935 set need_redisplay 0
9936 set nrows_drawn 0
9937 set firsttabstop 0
9939 set nextviewnum 1
9940 set curview 0
9941 set selectedview 0
9942 set selectedhlview [mc "None"]
9943 set highlight_related [mc "None"]
9944 set highlight_files {}
9945 set viewfiles(0) {}
9946 set viewperm(0) 0
9947 set viewargs(0) {}
9948 set viewargscmd(0) {}
9950 set selectedline {}
9951 set numcommits 0
9952 set loginstance 0
9953 set cmdlineok 0
9954 set stopped 0
9955 set stuffsaved 0
9956 set patchnum 0
9957 set lserial 0
9958 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9959 setcoords
9960 makewindow
9961 # wait for the window to become visible
9962 tkwait visibility .
9964 readrefs
9967 # create a view for the files/dirs specified on the command line
9968 set curview 1
9969 set selectedview 1
9970 set nextviewnum 2
9971 set viewname(1) [mc "Command line"]
9975 set viewperm(1) 0
9976 set vdatemode(1) 0
9977 addviewmenu 1
9978 .bar.view entryconf [mc "Edit view..."] -state normal
9979 .bar.view entryconf [mc "Delete view"] -state normal
9980 }
9982 if {[info exists permviews]} {
9985 incr nextviewnum
9992 }
9993 }
9994 getcommits {}