| blob | 5021437d6548ed7599580ade4ef47b0f3fe6403a |
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
1511 }
1513 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1514 #puts "overall $ms ms for $numcommits commits"
1515 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1518 }
1519 notbusy layout
1520 }
1522 }
1527 }
1530 global commitinfo cdate
1541 # should never happen...
1543 }
1554 }
1555 }
1557 # take the first non-blank line of the comment as the headline
1562 }
1567 }
1569 # git log indents the comment by 4 spaces;
1570 # if we got this via git cat-file, add the indentation
1573 append newcomment " "
1574 append newcomment $line
1576 }
1578 }
1581 }
1584 }
1587 global commitdata commitinfo
1592 readcommit $id
1595 }
1596 }
1598 }
1600 proc readrefs {} {
1601 global tagids idtags headids idheads tagobjid
1602 global otherrefids idotherrefs mainhead mainheadid
1606 }
1618 }
1624 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1625 # which is what we want since the former is the commit ID
1631 }
1637 }
1638 }
1642 catch {
1647 }
1648 }
1649 }
1651 # skip over fake commits
1652 proc first_real_row {} {
1653 global nullid nullid2 numcommits
1658 break
1659 }
1660 }
1662 }
1664 # update things for a head moved to a child of its previous location
1666 global headids idheads
1671 }
1673 # update things when a head has been removed
1675 global headids idheads
1683 }
1684 }
1686 }
1695 tkwait window $top
1696 }
1698 proc error_popup msg {
1699 set w .error
1700 toplevel $w
1701 wm transient $w .
1702 show_error $w $w $msg
1703 }
1705 proc confirm_popup msg {
1706 global confirm_ok
1708 set w .confirm
1709 toplevel $w
1710 wm transient $w .
1718 tkwait window $w
1720 }
1722 proc setoptions {} {
1724 option add *Panedwindow.sashRelief raised startupFile
1725 option add *Button.font uifont startupFile
1726 option add *Checkbutton.font uifont startupFile
1727 option add *Radiobutton.font uifont startupFile
1728 option add *Menu.font uifont startupFile
1729 option add *Menubutton.font uifont startupFile
1730 option add *Label.font uifont startupFile
1731 option add *Message.font uifont startupFile
1732 option add *Entry.font uifont startupFile
1733 }
1735 proc makewindow {} {
1736 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1737 global tabstop
1738 global findtype findtypemenu findloc findstring fstring geometry
1739 global entries sha1entry sha1string sha1but
1740 global diffcontextstring diffcontext
1741 global ignorespace
1742 global maincursor textcursor curtextcursor
1743 global rowctxmenu fakerowmenu mergemax wrapcomment
1744 global highlight_files gdttype
1745 global searchstring sstring
1746 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1747 global headctxmenu progresscanv progressitem progresscoords statusw
1748 global fprogitem fprogcoord lastprogupdate progupdatepending
1749 global rprogitem rprogcoord rownumsel numcommits
1750 global have_tk85
1752 menu .bar
1754 menu .bar.file
1760 menu .bar.edit
1764 menu .bar.view
1768 -state disabled
1770 .bar.view add separator
1774 menu .bar.help
1778 .bar.help configure
1779 . configure -menu .bar
1781 # the gui has upper and lower half, parts of a paned window.
1782 panedwindow .ctop -orient vertical
1784 # possibly use assumed geometry
1792 }
1794 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1796 frame .tf.histframe
1799 # create three canvases
1800 set cscroll .tf.histframe.csb
1801 set canv .tf.histframe.pwclist.canv
1802 canvas $canv \
1806 .tf.histframe.pwclist add $canv
1807 set canv2 .tf.histframe.pwclist.canv2
1808 canvas $canv2 \
1811 .tf.histframe.pwclist add $canv2
1812 set canv3 .tf.histframe.pwclist.canv3
1813 canvas $canv3 \
1816 .tf.histframe.pwclist add $canv3
1820 # a scroll bar to rule them
1824 lappend bglist $canv $canv2 $canv3
1827 # we have two button bars at bottom of top frame. Bar 1
1828 frame .tf.bar
1831 set sha1entry .tf.bar.sha1
1833 set sha1but .tf.bar.sha1label
1837 pack .tf.bar.sha1label -side left
1839 trace add variable sha1string write sha1change
1843 #define left_width 16
1844 #define left_height 16
1845 static unsigned char left_bits[] = {
1849 }
1851 #define right_width 16
1852 #define right_height 16
1853 static unsigned char right_bits[] = {
1857 }
1872 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1873 -side left
1874 global selectedline
1875 trace add variable selectedline write selectedline_change
1877 # Status label and progress bar
1878 set statusw .tf.bar.status
1882 set progresscanv .tf.bar.progress
1895 # build up the bottom bar of upper window
1900 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1907 trace add variable gdttype write gdttype_change
1911 set fstring .tf.lbar.findstring
1912 lappend entries $fstring
1914 trace add variable findstring write find_change
1918 trace add variable findtype write findcom_change
1922 trace add variable findloc write find_change
1923 pack .tf.lbar.findloc -side right
1924 pack .tf.lbar.findtype -side right
1927 # Finish putting the upper half of the viewer together
1931 .ctop add .tf
1935 # now build up the bottom
1936 panedwindow .pwbottom -orient horizontal
1938 # lower left, a text box over search bar, scroll bar to the right
1939 # if we know window height, then that will set the lower text height, otherwise
1940 # we set lower text height which will drive window height
1945 }
1946 frame .bleft.top
1947 frame .bleft.mid
1948 frame .bleft.bottom
1952 set sstring .bleft.top.sstring
1954 lappend entries $sstring
1955 trace add variable searchstring write incrsearch
1968 -textvariable diffcontextstring
1970 trace add variable diffcontextstring write diffcontextchange
1971 lappend entries .bleft.mid.diffcontext
1972 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
1976 set ctext .bleft.bottom.ctext
1983 }
1990 grid .bleft.bottom.sbhorizontal -sticky ew
1995 lappend bglist $ctext
1996 lappend fglist $ctext
2025 .pwbottom add .bleft
2028 # lower right
2029 frame .bright
2030 frame .bright.mode
2037 set cflist .bright.cfiles
2039 text $cflist \
2042 -font mainfont \
2047 lappend bglist $cflist
2048 lappend fglist $cflist
2052 $cflist tag configure highlight \
2056 .pwbottom add .bright
2057 .ctop add .pwbottom
2059 # restore window width & height if known
2064 }
2067 }
2069 }
2070 }
2073 set M1B M1
2075 set M1B Control
2076 }
2081 #bindall <B1-Motion> {selcanvline %W %x %y}
2091 allcanvs yview scroll $delta units
2092 }
2093 }
2094 }
2116 bindkey p "selnextline -1"
2117 bindkey n "selnextline 1"
2118 bindkey z "goback"
2119 bindkey x "goforw"
2120 bindkey i "selnextline -1"
2121 bindkey k "selnextline 1"
2122 bindkey j "goback"
2123 bindkey l "goforw"
2124 bindkey b prevfile
2130 bindkey f nextfile
2142 wm protocol . WM_DELETE_WINDOW doquit
2153 set maincursor [. cget -cursor]
2157 set rowctxmenu .rowctxmenu
2160 -command {diffvssel 0}
2162 -command {diffvssel 1}
2168 -command cherrypick
2170 -command resethead
2172 set fakerowmenu .fakerowmenu
2175 -command {diffvssel 0}
2177 -command {diffvssel 1}
2183 set headctxmenu .headctxmenu
2186 -command cobranch
2188 -command rmbranch
2190 global flist_menu
2191 set flist_menu .flistctxmenu
2194 -command {flist_hl 0}
2196 -command {flist_hl 1}
2198 -command {external_diff}
2199 }
2201 # Windows sends all mouse wheel events to the current focused window, not
2202 # the one where the mouse hovers, so bind those events here and redirect
2203 # to the correct window
2204 proc windows_mousewheel_redirector {W X Y D} {
2205 global canv canv2 canv3
2211 } else {
2212 catch {
2214 }
2215 }
2216 }
2217 }
2219 # Update row number label when selectedline changes
2220 proc selectedline_change {n1 n2 op} {
2221 global selectedline rownumsel
2224 set rownumsel {}
2225 } else {
2227 }
2228 }
2230 # mouse-2 makes all windows scan vertically, but only the one
2231 # the cursor is in scans horizontally
2232 proc canvscan {op w x y} {
2233 global canv canv2 canv3
2237 } else {
2239 }
2240 }
2241 }
2243 proc scrollcanv {cscroll f0 f1} {
2245 drawvisible
2246 flushhighlights
2247 }
2249 # when we make a key binding for the toplevel, make sure
2250 # it doesn't get triggered when that key is pressed in the
2251 # find string entry widget.
2252 proc bindkey {ev script} {
2253 global entries
2257 set escript [bind Entry <Key>]
2258 }
2261 }
2262 }
2264 # set the focus back to the toplevel for any click outside
2265 # the entry widgets
2266 proc click {w} {
2267 global ctext entries
2270 }
2271 focus .
2272 }
2274 # Adjust the progress bar for a change in requested extent or canvas size
2275 proc adjustprogress {} {
2276 global progresscanv progressitem progresscoords
2277 global fprogitem fprogcoord lastprogupdate progupdatepending
2278 global rprogitem rprogcoord
2287 set now [clock clicks -milliseconds]
2289 set progupdatepending 0
2290 update
2292 set progupdatepending 1
2294 }
2295 }
2297 proc doprogupdate {} {
2298 global lastprogupdate progupdatepending
2301 set progupdatepending 0
2302 set lastprogupdate [clock clicks -milliseconds]
2303 update
2304 }
2305 }
2307 proc savestuff {w} {
2308 global canv canv2 canv3 mainfont textfont uifont tabstop
2309 global stuffsaved findmergefiles maxgraphpct
2310 global maxwidth showneartags showlocalchanges
2311 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2312 global cmitmode wrapcomment datetimeformat limitdiffs
2313 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2314 global autoselect extdifftool
2317 if {![winfo viewable .]} return
2318 catch {
2319 set f [open "~/.gitk-new" w]
2354 }
2355 }
2358 file rename -force "~/.gitk-new" "~/.gitk"
2359 }
2360 set stuffsaved 1
2361 }
2363 proc resizeclistpanes {win w} {
2364 global oldwidth
2371 } else {
2376 set sash0 30
2377 }
2380 }
2385 }
2386 }
2387 }
2390 }
2392 }
2394 proc resizecdetpanes {win w} {
2395 global oldwidth
2400 } else {
2404 set sash0 45
2405 }
2408 }
2409 }
2411 }
2413 }
2415 proc allcanvs args {
2416 global canv canv2 canv3
2420 }
2422 proc bindall {event action} {
2423 global canv canv2 canv3
2427 }
2429 proc about {} {
2430 global uifont
2431 set w .about
2434 return
2435 }
2439 Gitk - a commit viewer for git
2441 Copyright © 2005-2008 Paul Mackerras
2443 Use and redistribute under the terms of the GNU General Public License"] \
2444 -justify center -aspect 400 -border 2 -bg white -relief groove
2451 }
2453 proc keys {} {
2454 set w .keys
2457 return
2458 }
2459 if {[tk windowingsystem] eq {aqua}} {
2460 set M1T Cmd
2461 } else {
2462 set M1T Ctrl
2463 }
2467 [mc "Gitk key bindings:"]
2470 [mc "<Home> Move to first commit"]
2471 [mc "<End> Move to last commit"]
2472 [mc "<Up>, p, i Move up one commit"]
2473 [mc "<Down>, n, k Move down one commit"]
2474 [mc "<Left>, z, j Go back in history list"]
2475 [mc "<Right>, x, l Go forward in history list"]
2476 [mc "<PageUp> Move up one page in commit list"]
2477 [mc "<PageDown> Move down one page in commit list"]
2484 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2485 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2486 [mc "<Delete>, b Scroll diff view up one page"]
2487 [mc "<Backspace> Scroll diff view up one page"]
2488 [mc "<Space> Scroll diff view down one page"]
2489 [mc "u Scroll diff view up 18 lines"]
2490 [mc "d Scroll diff view down 18 lines"]
2493 [mc "<Return> Move to next find hit"]
2494 [mc "/ Move to next find hit, or redo find"]
2495 [mc "? Move to previous find hit"]
2496 [mc "f Scroll diff view to next file"]
2503 [mc "<F5> Update"]
2504 " \
2505 -justify left -bg white -border 2 -relief groove
2512 }
2514 # Procedures for manipulating the file list window at the
2515 # bottom right of the overall window.
2517 proc treeview {w l openlevs} {
2518 global treecontents treediropen treeheight treeparent treeindex
2520 set ix 0
2521 set treeindex() 0
2522 set lev 0
2523 set prefix {}
2524 set prefixend -1
2525 set prefendstack {}
2526 set htstack {}
2527 set ht 0
2528 set treecontents() {}
2535 }
2542 incr lev -1
2543 }
2547 set ht 0
2559 set ht 1
2564 set str "\n"
2572 }
2573 incr lev
2574 }
2577 incr ht
2578 set str "\n"
2582 }
2584 }
2585 }
2593 }
2595 }
2597 proc linetoelt {l} {
2598 global treeheight treecontents
2600 set y 2
2601 set prefix {}
2602 while {1} {
2606 }
2607 set n 1
2612 incr y
2613 break
2614 }
2615 }
2617 }
2618 }
2619 }
2621 proc highlight_tree {y prefix} {
2622 global treeheight treecontents cflist
2628 }
2629 incr y
2632 }
2633 }
2635 }
2637 proc treeclosedir {w dir} {
2638 global treediropen treeheight treeparent treeindex
2650 }
2651 }
2653 proc treeopendir {w dir} {
2654 global treediropen treeheight treeparent treecontents treeindex
2661 set lev 0
2662 set str "\n"
2665 incr lev
2666 append str "\t"
2668 }
2683 } else {
2686 }
2687 }
2700 }
2702 }
2703 }
2705 proc treeclick {w x y} {
2706 global treediropen cmitmode ctext cflist cflist_top
2709 if {![info exists cflist_top]} return
2716 return
2717 }
2723 } else {
2725 }
2726 }
2728 proc setfilelist {id} {
2729 global treefilelist cflist
2732 }
2734 image create bitmap tri-rt -background black -foreground blue -data {
2735 #define tri-rt_width 13
2736 #define tri-rt_height 13
2737 static unsigned char tri-rt_bits[] = {
2738 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2739 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2740 0x00, 0x00};
2741 } -maskdata {
2742 #define tri-rt-mask_width 13
2743 #define tri-rt-mask_height 13
2744 static unsigned char tri-rt-mask_bits[] = {
2745 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2746 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2747 0x08, 0x00};
2748 }
2749 image create bitmap tri-dn -background black -foreground blue -data {
2750 #define tri-dn_width 13
2751 #define tri-dn_height 13
2752 static unsigned char tri-dn_bits[] = {
2753 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2754 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2755 0x00, 0x00};
2756 } -maskdata {
2757 #define tri-dn-mask_width 13
2758 #define tri-dn-mask_height 13
2759 static unsigned char tri-dn-mask_bits[] = {
2760 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2761 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2762 0x00, 0x00};
2763 }
2765 image create bitmap reficon-T -background black -foreground yellow -data {
2766 #define tagicon_width 13
2767 #define tagicon_height 9
2768 static unsigned char tagicon_bits[] = {
2769 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2770 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2771 } -maskdata {
2772 #define tagicon-mask_width 13
2773 #define tagicon-mask_height 9
2774 static unsigned char tagicon-mask_bits[] = {
2775 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2776 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2777 }
2778 set rectdata {
2779 #define headicon_width 13
2780 #define headicon_height 9
2781 static unsigned char headicon_bits[] = {
2782 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2783 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2784 }
2785 set rectmask {
2786 #define headicon-mask_width 13
2787 #define headicon-mask_height 9
2788 static unsigned char headicon-mask_bits[] = {
2789 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2790 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2791 }
2792 image create bitmap reficon-H -background black -foreground green \
2794 image create bitmap reficon-o -background black -foreground "#ddddff" \
2797 proc init_flist {first} {
2798 global cflist cflist_top difffilestart
2804 set cflist_top 1
2806 } else {
2807 catch {unset cflist_top}
2808 }
2810 set difffilestart {}
2811 }
2813 proc highlight_tag {f} {
2814 global highlight_paths
2818 return "bold"
2819 }
2820 }
2821 return {}
2822 }
2824 proc highlight_filelist {} {
2825 global cmitmode cflist
2834 }
2835 }
2836 } else {
2837 highlight_tree 2 {}
2838 }
2840 }
2842 proc unhighlight_filelist {} {
2843 global cflist
2848 }
2850 proc add_flist {fl} {
2851 global cflist
2857 }
2859 }
2861 proc sel_flist {w x y} {
2862 global ctext difffilestart cflist cflist_top cmitmode
2865 if {![info exists cflist_top]} return
2872 } else {
2874 }
2875 }
2877 proc pop_flist_menu {w X Y x y} {
2878 global ctext cflist cmitmode flist_menu flist_menu_file
2879 global treediffs diffids
2881 stopfinding
2887 } else {
2889 }
2891 set xdiffstate "normal"
2893 set xdiffstate "disabled"
2894 }
2895 # Disable "External diff" item in tree mode
2898 }
2900 proc flist_hl {only} {
2901 global flist_menu_file findstring gdttype
2906 } else {
2908 }
2909 set gdttype [mc "touching paths:"]
2910 }
2912 proc save_file_from_commit {filename output what} {
2913 global nullfile
2918 }
2920 return {}
2921 }
2923 }
2925 proc external_diff_get_one_file {diffid filename diffdir} {
2926 global nullid nullid2 nullfile
2927 global gitdir
2933 }
2935 }
2939 }
2943 }
2945 proc external_diff {} {
2946 global gitktmpdir nullid nullid2
2947 global flist_menu_file
2948 global diffids
2949 global diffnum
2950 global gitdir extdifftool
2953 # no reference commit given
2956 # diffing working copy with index
2959 # diffing index with HEAD
2960 set diffidfrom "HEAD"
2961 } else {
2962 # use first parent commit
2963 global parentlist selectedline
2965 }
2966 } else {
2969 }
2971 # make sure that several diffs wont collide
2972 if {![info exists gitktmpdir]} {
2974 [format ".gitk-tmp.%s" [pid]]]
2977 unset gitktmpdir
2978 return
2979 }
2980 set diffnum 0
2981 }
2982 incr diffnum
2986 return
2987 }
2989 # gather files to diff
2999 } else {
3002 }
3003 }
3004 }
3007 proc delete_at_eof {f dir} {
3012 }
3014 return 0
3015 }
3016 return 1
3017 }
3019 # Functions for adding and removing shell-type quoting
3021 proc shellquote {str} {
3024 }
3027 }
3030 }
3032 }
3034 proc shellarglist {l} {
3035 set str {}
3038 append str " "
3039 }
3041 }
3043 }
3045 proc shelldequote {str} {
3046 set ret {}
3047 set used -1
3048 while {1} {
3049 incr used
3053 break
3054 }
3060 }
3062 incr used
3066 error "unmatched single-quote"
3067 }
3070 continue
3071 }
3074 error "trailing backslash"
3075 }
3077 continue
3078 }
3079 # here ch == "\""
3080 while {1} {
3082 error "unmatched double-quote"
3083 }
3089 }
3091 incr used
3093 incr used
3094 }
3095 }
3097 }
3099 proc shellsplit {str} {
3100 set l {}
3101 while {1} {
3109 }
3111 }
3113 # Code to implement multiple views
3115 proc newview {ishighlight} {
3116 global nextviewnum newviewname newviewperm newishighlight
3117 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3120 set top .gitkview
3123 return
3124 }
3130 }
3132 proc editview {} {
3133 global curview
3134 global viewname viewperm newviewname newviewperm
3135 global viewargs newviewargs viewargscmd newviewargscmd
3140 return
3141 }
3147 }
3149 proc vieweditor {top n title} {
3150 global newviewname newviewperm viewfiles bgcolor
3161 -text [mc "Commits to include (arguments to git log):"]
3168 -text [mc "Command to generate more commits to include:"]
3171 -background white
3175 -text [mc "Enter files and directories to include, one per line:"]
3182 }
3185 }
3195 }
3197 proc doviewmenu {m first cmd op argv} {
3202 break
3203 }
3204 }
3205 }
3207 proc allviewmenus {n op args} {
3208 # global viewhlmenu
3212 }
3214 proc newviewok {top n} {
3215 global nextviewnum newviewperm newviewname newishighlight
3216 global viewname viewfiles viewperm selectedview curview
3217 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3219 if {[catch {
3221 } err]} {
3225 return
3226 }
3227 set files {}
3232 }
3233 }
3235 # creating a new view
3236 incr nextviewnum
3245 } else {
3247 }
3248 } else {
3249 # editing an existing view
3257 }
3264 run reloadcommits
3265 }
3266 }
3267 }
3269 }
3271 proc delview {} {
3272 global curview viewperm hlview selectedhlview
3276 set selectedhlview [mc "None"]
3277 unset hlview
3278 }
3281 showview 0
3282 }
3284 proc addviewmenu {n} {
3285 global viewname viewhlmenu
3291 }
3293 proc showview {n} {
3294 global curview cached_commitrow ordertok
3295 global displayorder parentlist rowidlist rowisopt rowfinal
3296 global colormap rowtextx nextcolor canvxmax
3297 global numcommits viewcomplete
3298 global selectedline currentid canv canvy0
3299 global treediffs
3300 global pending_select mainheadid
3301 global commitidx
3302 global selectedview
3303 global hlview selectedhlview commitinterest
3306 set selid {}
3317 }
3318 } elseif {[info exists pending_select]} {
3320 unset pending_select
3321 }
3322 unselectline
3323 normalline
3324 catch {unset treediffs}
3325 clear_display
3327 unset hlview
3328 set selectedhlview [mc "None"]
3329 }
3330 catch {unset commitinterest}
3331 catch {unset cached_commitrow}
3332 catch {unset ordertok}
3339 run refill_reflist
3342 return
3343 }
3345 set displayorder {}
3346 set parentlist {}
3347 set rowidlist {}
3348 set rowisopt {}
3349 set rowfinal {}
3352 catch {unset colormap}
3353 catch {unset rowtextx}
3354 set nextcolor 0
3357 set row 0
3358 setcanvscroll
3359 set yf 0
3360 set row {}
3363 # try to get the selected row in the same position on the screen
3367 set ytop 0
3368 }
3370 }
3372 drawvisible
3379 } else {
3380 set row [first_real_row]
3383 }
3384 }
3387 show_status [mc "Reading commits..."]
3388 }
3390 show_status [mc "No commits selected"]
3391 }
3392 }
3394 # Stuff relating to the highlighting facility
3396 proc ishighlighted {id} {
3397 global vhighlights fhighlights nhighlights rhighlights
3401 }
3404 }
3407 }
3410 }
3411 return 0
3412 }
3414 proc bolden {row font} {
3415 global canv linehtag selectedline boldrows
3422 -outline {{}} -tags secsel \
3425 }
3426 }
3428 proc bolden_name {row font} {
3429 global canv2 linentag selectedline boldnamerows
3436 -outline {{}} -tags secsel \
3439 }
3440 }
3442 proc unbolden {} {
3443 global boldrows
3445 set stillbold {}
3449 } else {
3451 }
3452 }
3454 }
3456 proc addvhighlight {n} {
3457 global hlview viewcomplete curview vhl_done commitidx
3459 if {[info exists hlview]} {
3460 delvhighlight
3461 }
3465 }
3468 drawvisible
3469 }
3470 }
3472 proc delvhighlight {} {
3473 global hlview vhighlights
3475 if {![info exists hlview]} return
3476 unset hlview
3477 catch {unset vhighlights}
3478 unbolden
3479 }
3481 proc vhighlightmore {} {
3482 global hlview vhl_done commitidx vhighlights curview
3485 set vr [visiblerows]
3495 }
3497 }
3498 }
3499 }
3501 return 0
3502 }
3504 proc askvhighlight {row id} {
3505 global hlview vhighlights iddrawn
3510 }
3512 } else {
3514 }
3515 }
3517 proc hfiles_change {} {
3518 global highlight_files filehighlight fhighlights fh_serial
3519 global highlight_paths gdttype
3521 if {[info exists filehighlight]} {
3522 # delete previous highlights
3524 unset filehighlight
3525 catch {unset fhighlights}
3526 unbolden
3527 unhighlight_filelist
3528 }
3529 set highlight_paths {}
3531 incr fh_serial
3534 }
3535 }
3537 proc gdttype_change {name ix op} {
3538 global gdttype highlight_files findstring findpattern
3540 stopfinding
3544 set highlight_files {}
3545 hfiles_change
3546 }
3547 findcom_change
3548 } else {
3550 set findpattern {}
3551 findcom_change
3552 }
3554 hfiles_change
3555 }
3556 drawvisible
3557 }
3558 # enable/disable findtype/findloc menus too
3559 }
3561 proc find_change {name ix op} {
3562 global gdttype findstring highlight_files
3564 stopfinding
3566 findcom_change
3567 } else {
3570 hfiles_change
3571 }
3572 }
3573 drawvisible
3574 }
3576 proc findcom_change args {
3577 global nhighlights boldnamerows
3578 global findpattern findtype findstring gdttype
3580 stopfinding
3581 # delete previous highlights, if any
3584 }
3585 set boldnamerows {}
3586 catch {unset nhighlights}
3587 unbolden
3588 unmarkmatches
3590 set findpattern {}
3593 } else {
3594 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3597 }
3598 }
3600 proc makepatterns {l} {
3601 set ret {}
3606 } else {
3609 }
3610 }
3612 }
3614 proc do_file_hl {serial} {
3615 global highlight_files filehighlight highlight_paths gdttype fhl_list
3620 highlight_filelist
3624 } else {
3625 # must be "containing:", i.e. we're searching commit info
3626 return
3627 }
3632 set fhl_list {}
3633 drawvisible
3634 flushhighlights
3635 }
3637 proc flushhighlights {} {
3638 global filehighlight fhl_list
3640 if {[info exists filehighlight]} {
3641 lappend fhl_list {}
3644 }
3645 }
3647 proc askfilehighlight {row id} {
3648 global filehighlight fhighlights fhl_list
3653 }
3655 proc readfhighlight {} {
3656 global filehighlight fhighlights curview iddrawn
3657 global fhl_list find_dirn
3659 if {![info exists filehighlight]} {
3660 return 0
3661 }
3662 set nr 0
3670 }
3677 }
3679 }
3681 # strange...
3682 puts "oops, git diff-tree died"
3684 unset filehighlight
3685 return 0
3686 }
3687 if {[info exists find_dirn]} {
3688 run findmore
3689 }
3690 return 1
3691 }
3693 proc doesmatch {f} {
3694 global findtype findpattern
3700 } else {
3702 }
3703 }
3705 proc askfindhighlight {row id} {
3706 global nhighlights commitinfo iddrawn
3707 global findloc
3708 global markingmatches
3712 }
3714 set isbold 0
3715 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3720 set isbold 2
3721 break
3722 }
3723 set isbold 1
3724 }
3725 }
3731 }
3732 }
3735 }
3736 }
3738 }
3740 proc markrowmatches {row id} {
3741 global canv canv2 linehtag linentag commitinfo findloc
3752 }
3753 }
3759 }
3760 }
3761 }
3763 proc vrel_change {name ix op} {
3764 global highlight_related
3766 rhighlight_none
3768 run drawvisible
3769 }
3770 }
3772 # prepare for testing whether commits are descendents or ancestors of a
3773 proc rhighlight_sel {a} {
3774 global descendent desc_todo ancestor anc_todo
3775 global highlight_related
3777 catch {unset descendent}
3779 catch {unset ancestor}
3782 rhighlight_none
3783 run drawvisible
3784 }
3785 }
3787 proc rhighlight_none {} {
3788 global rhighlights
3790 catch {unset rhighlights}
3791 unbolden
3792 }
3794 proc is_descendent {a} {
3795 global curview children descendent desc_todo
3800 set leftover {}
3801 set done 0
3806 continue
3807 }
3813 set done 1
3814 }
3815 }
3816 }
3819 return
3820 }
3821 }
3824 }
3826 proc is_ancestor {a} {
3827 global curview parents ancestor anc_todo
3832 set leftover {}
3833 set done 0
3838 continue
3839 }
3845 set done 1
3846 }
3847 }
3848 }
3851 return
3852 }
3853 }
3856 }
3858 proc askrelhighlight {row id} {
3859 global descendent highlight_related iddrawn rhighlights
3860 global selectedline ancestor
3863 set isbold 0
3868 }
3870 set isbold 1
3871 }
3876 }
3878 set isbold 1
3879 }
3880 }
3884 }
3885 }
3887 }
3889 # Graph layout functions
3891 proc shortids {ids} {
3892 set res {}
3898 } else {
3900 }
3901 }
3903 }
3905 proc ntimes {n o} {
3906 set ret {}
3911 }
3913 }
3915 }
3917 proc ordertoken {id} {
3918 global ordertok curview varcid varcstart varctok curview parents children
3919 global nullid nullid2
3923 }
3925 set todo {}
3926 while {1} {
3930 } else {
3932 }
3935 break
3936 }
3939 # it's a root
3941 break
3942 }
3945 } else {
3949 }
3951 }
3952 }
3957 }
3960 }
3962 # Work out where id should go in idlist so that order-token
3963 # values increase from left to right
3964 proc idcol {idlist id {i 0}} {
3967 set i 0
3968 }
3972 }
3974 incr i
3975 } else {
3979 }
3980 }
3982 }
3984 proc initlayout {} {
3985 global rowidlist rowisopt rowfinal displayorder parentlist
3986 global numcommits canvxmax canv
3987 global nextcolor
3988 global colormap rowtextx
3990 set numcommits 0
3991 set displayorder {}
3992 set parentlist {}
3993 set nextcolor 0
3994 set rowidlist {}
3995 set rowisopt {}
3996 set rowfinal {}
3998 catch {unset colormap}
3999 catch {unset rowtextx}
4000 setcanvscroll
4001 }
4003 proc setcanvscroll {} {
4004 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4005 global lastscrollset lastscrollrows
4011 set lastscrollset [clock clicks -milliseconds]
4013 }
4015 proc visiblerows {} {
4016 global canv numcommits linespc
4024 set r0 0
4025 }
4030 }
4032 }
4034 proc layoutmore {} {
4035 global commitidx viewcomplete curview
4036 global numcommits pending_select curview
4037 global lastscrollset lastscrollrows commitinterest
4041 setcanvscroll
4042 }
4043 if {[info exists pending_select] &&
4045 update
4047 }
4048 drawvisible
4049 }
4051 proc doshowlocalchanges {} {
4052 global curview mainheadid
4056 dodiffindex
4057 } else {
4059 }
4060 }
4062 proc dohidelocalchanges {} {
4063 global nullid nullid2 lserial curview
4067 }
4070 }
4071 incr lserial
4072 }
4074 # spawn off a process to do git diff-index --cached HEAD
4075 proc dodiffindex {} {
4076 global lserial showlocalchanges
4077 global isworktree
4080 incr lserial
4081 set fd [open "|git diff-index --cached HEAD" r]
4085 }
4087 proc readdiffindex {fd serial inst} {
4088 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4090 set isdiff 1
4093 return 1
4094 }
4095 set isdiff 0
4096 }
4097 # we only need to see one line and we don't really care what it says...
4101 return 0
4102 }
4104 # now see if there are any local changes not checked in to the index
4105 set fd [open "|git diff-files" r]
4111 # add the line for the changes in the index to the graph
4112 set hl [mc "Local changes checked in to index but not committed"]
4117 }
4121 }
4122 return 0
4123 }
4125 proc readdifffiles {fd serial inst} {
4126 global mainheadid nullid nullid2 curview
4127 global commitinfo commitdata lserial
4129 set isdiff 1
4132 return 1
4133 }
4134 set isdiff 0
4135 }
4136 # we only need to see one line and we don't really care what it says...
4140 return 0
4141 }
4144 # add the line for the local diff to the graph
4145 set hl [mc "Local uncommitted changes, not checked in to index"]
4150 } else {
4152 }
4156 }
4157 return 0
4158 }
4160 proc nextuse {id row} {
4161 global curview children
4166 return -1
4167 }
4170 }
4171 }
4172 }
4175 }
4176 return -1
4177 }
4179 proc prevuse {id row} {
4180 global curview children
4182 set ret -1
4188 }
4189 }
4190 }
4192 }
4194 proc make_idlist {row} {
4195 global displayorder parentlist uparrowlen downarrowlen mingaplen
4196 global commitidx curview children
4200 set r 0
4201 }
4204 set ra 0
4205 }
4209 }
4211 set ids {}
4220 }
4221 }
4222 }
4230 }
4231 }
4232 }
4240 }
4241 }
4242 incr r
4248 }
4249 }
4250 }
4251 set idlist {}
4254 }
4256 }
4258 proc rowsequal {a b} {
4261 }
4264 }
4266 }
4268 proc makeupline {id row rend col} {
4269 global rowidlist uparrowlen downarrowlen mingaplen
4275 }
4278 }
4285 }
4286 }
4287 }
4289 proc layoutrows {row endrow} {
4290 global rowidlist rowisopt rowfinal displayorder
4291 global uparrowlen downarrowlen maxwidth mingaplen
4292 global children parentlist
4293 global commitidx viewcomplete curview
4296 set idlist {}
4302 }
4303 }
4305 }
4310 set final 1
4311 } else {
4319 # if not the first child, we have to insert a line going up
4322 }
4323 }
4324 }
4334 }
4335 }
4336 }
4343 }
4344 }
4354 }
4355 }
4363 }
4364 }
4365 }
4366 }
4367 }
4371 set final 0
4372 }
4376 lappend rowisopt 0
4382 }
4384 } else {
4391 }
4392 }
4394 }
4396 proc changedrow {row} {
4397 global displayorder iddrawn rowisopt need_redisplay
4406 }
4407 }
4408 }
4411 set need_redisplay 1
4412 }
4413 }
4415 proc insert_pad {row col npad} {
4416 global rowidlist
4425 }
4428 }
4430 proc optimize_rows {row col endrow} {
4431 global rowidlist rowisopt displayorder curview children
4434 set row 1
4435 }
4438 set haspad 0
4447 } else {
4448 set pprevidlist {}
4449 }
4450 set x0 -1
4451 set xm -1
4456 set haspad 1
4457 continue
4458 }
4462 set isarrow 0
4463 set z0 {}
4468 }
4469 }
4474 set isarrow 1
4475 }
4476 }
4479 set isarrow 1
4480 }
4481 # Looking at lines from this row to the previous row,
4482 # make them go straight up if they end in an arrow on
4483 # the previous row; otherwise make them go straight up
4484 # or at 45 degrees.
4486 # Line currently goes left too much;
4487 # insert pads in the previous row, then optimize it
4492 }
4500 }
4502 # Line currently goes right too much;
4503 # insert pads in this line
4509 set haspad 1
4510 }
4517 }
4518 }
4519 # avoid lines jigging left then immediately right
4522 incr x0
4525 }
4526 }
4528 # Find the first column that doesn't have a line going right
4534 # check if this is the link to the first child
4537 # it is, work out offset to child
4539 }
4540 }
4542 }
4543 # Insert a pad at that column as long as it has a line and
4544 # isn't the last column
4549 }
4550 }
4551 }
4552 }
4554 proc xc {row col} {
4555 global canvx0 linespc
4557 }
4559 proc yc {row} {
4560 global canvy0 linespc
4562 }
4564 proc linewidth {id} {
4565 global thickerline lthickness
4570 }
4572 }
4574 proc rowranges {id} {
4575 global curview children uparrowlen downarrowlen
4576 global rowidlist
4580 return {}
4581 }
4582 set ret {}
4587 if {![info exists prev]} {
4589 } else {
4591 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4592 }
4593 # see if the line extends the whole way from prevrow to row
4597 # it doesn't, see where it ends
4602 } else {
4605 incr r -1
4606 }
4608 # see where it starts up again
4613 } else {
4616 incr r
4617 }
4619 }
4620 }
4623 }
4626 }
4628 }
4630 proc drawlineseg {id row endrow arrowlow} {
4631 global rowidlist displayorder iddrawn linesegs
4632 global canv colormap linespc curview maxlinelen parentlist
4636 set arrowhigh 1
4637 while {1} {
4640 incr le -1
4641 break
4642 }
4646 set arrowhigh 0
4647 break
4648 }
4653 set arrowhigh 0
4654 }
4655 break
4656 }
4657 incr le
4658 }
4661 }
4663 set lines {}
4664 set i 0
4665 set joinhigh 0
4672 set joinhigh 1
4673 }
4674 break
4675 }
4676 incr i
4677 }
4678 }
4679 set joinlow 0
4684 set joinlow 1
4685 }
4686 }
4699 }
4700 } else {
4702 }
4710 set arrowlow 0
4711 }
4712 }
4720 }
4722 }
4725 # join parent line to first child
4736 } else {
4738 }
4746 }
4748 }
4750 } else {
4754 }
4762 } else {
4766 }
4768 }
4769 } else {
4775 }
4779 } else {
4780 # coalesce two pieces
4785 }
4789 }
4790 }
4794 }
4796 proc drawparentlinks {id row} {
4797 global rowidlist canv colormap curview parentlist
4798 global idpos linespc
4811 # rmx = right-most X coord used
4812 set rmx 0
4817 continue
4818 }
4822 }
4825 # drawlineseg will do this one for us
4826 continue
4827 }
4829 # should handle duplicated parents here...
4832 # if attaching to a vertical segment, draw a smaller
4833 # slant for visual distinctness
4837 } else {
4839 }
4841 # segment slants towards us already
4843 } else {
4848 }
4850 }
4851 } else {
4853 }
4858 }
4862 }
4863 }
4865 proc drawlines {id} {
4866 global canv
4869 }
4871 proc drawcmittext {id row col} {
4872 global linespc canv canv2 canv3 fgcolor curview
4873 global cmitlisted commitinfo rowidlist parentlist
4874 global rowtextx idpos idtags idheads idotherrefs
4875 global linehtag linentag linedtag selectedline
4876 global canvxmax boldrows boldnamerows fgcolor
4877 global mainheadid nullid nullid2 circleitem circlecolors
4879 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4882 set ofill red
4884 set ofill green
4886 set ofill yellow
4887 } else {
4889 }
4898 # triangle pointing left for left-side commits
4904 } else {
4905 # triangle pointing right for right-side commits
4911 }
4923 }
4924 }
4925 }
4932 }
4937 set font mainfont
4938 set nfont mainfont
4942 set font mainfontbold
4945 set nfont mainfontbold
4946 }
4947 }
4957 }
4961 setcanvscroll
4962 }
4963 }
4965 proc drawcmitrow {row} {
4966 global displayorder rowidlist nrows_drawn
4967 global iddrawn markingmatches
4968 global commitinfo numcommits
4969 global filehighlight fhighlights findpattern nhighlights
4970 global hlview vhighlights
4971 global highlight_related rhighlights
4978 }
4981 }
4984 }
4987 }
4992 return
4993 }
4996 }
5000 incr nrows_drawn
5001 }
5004 }
5005 }
5007 proc drawcommits {row {endrow {}}} {
5008 global numcommits iddrawn displayorder curview need_redisplay
5009 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5012 set row 0
5013 }
5016 }
5019 }
5023 set rl1 0
5024 }
5027 set ro1 0
5028 }
5032 }
5037 }
5039 }
5040 }
5043 }
5046 clear_display
5047 drawvisible
5048 }
5050 # make the lines join to already-drawn rows either side
5054 }
5059 }
5074 # see if this is the first child of any of its parents
5077 # make this line extend up to the child
5079 }
5080 }
5081 } else {
5083 }
5084 }
5085 }
5086 }
5088 proc undolayout {row} {
5089 global uparrowlen mingaplen downarrowlen
5090 global rowidlist rowisopt rowfinal need_redisplay
5094 set r 0
5095 }
5097 incr r -1
5101 set need_redisplay 1
5102 run drawvisible
5103 }
5104 }
5106 proc drawvisible {} {
5107 global canv linespc curview vrowmod selectedline targetrow targetid
5108 global need_redisplay cscroll numcommits
5118 if {[info exists targetid]} {
5122 # Fix up the scrollregion and change the scrolling position
5123 # now that our target row has moved.
5126 setcanvscroll
5134 set need_redisplay 1
5135 }
5136 } else {
5137 unset targetid
5138 }
5139 }
5145 }
5149 } elseif {[info exists targetid]} {
5151 }
5152 if {[info exists targetrow]} {
5155 }
5157 }
5159 }
5161 proc clear_display {} {
5162 global iddrawn linesegs need_redisplay nrows_drawn
5163 global vhighlights fhighlights nhighlights rhighlights
5164 global linehtag linentag linedtag boldrows boldnamerows
5166 allcanvs delete all
5167 catch {unset iddrawn}
5168 catch {unset linesegs}
5169 catch {unset linehtag}
5170 catch {unset linentag}
5171 catch {unset linedtag}
5172 set boldrows {}
5173 set boldnamerows {}
5174 catch {unset vhighlights}
5175 catch {unset fhighlights}
5176 catch {unset nhighlights}
5177 catch {unset rhighlights}
5178 set need_redisplay 0
5179 set nrows_drawn 0
5180 }
5182 proc findcrossings {id} {
5183 global rowidlist parentlist numcommits displayorder
5185 set cross {}
5186 set ccross {}
5190 }
5209 }
5210 }
5211 }
5212 }
5213 }
5215 }
5217 proc assigncolor {id} {
5218 global colormap colors nextcolor
5219 global parents children children curview
5225 } else {
5226 set kids {}
5227 }
5233 return
5234 }
5235 }
5236 set badcolors {}
5237 set origbad {}
5240 # delimiter between corner crossings and other crossings
5243 }
5247 }
5248 }
5251 }
5258 }
5263 }
5264 }
5265 }
5268 }
5269 }
5273 set nextcolor 0
5274 }
5276 }
5278 }
5280 proc bindline {t id} {
5281 global canv
5287 }
5289 proc drawtags {id x xt y1} {
5290 global idtags idheads idotherrefs mainhead
5291 global linespc lthickness
5292 global canv rowtextx curview fgcolor bgcolor
5294 set marks {}
5295 set ntags 0
5296 set nheads 0
5300 }
5304 }
5307 }
5310 }
5315 set xvals {}
5316 set wvals {}
5317 set i -1
5319 incr i
5322 } else {
5324 }
5328 }
5335 set font mainfont
5336 if {[incr ntags -1] >= 0} {
5337 # draw a tag
5343 } else {
5344 # draw a head or other ref
5345 if {[incr nheads -1] >= 0} {
5346 set col green
5348 set font mainfontbold
5349 }
5350 } else {
5351 set col "#ddddff"
5352 }
5363 }
5364 }
5371 }
5372 }
5374 }
5376 proc xcoord {i level ln} {
5377 global canvx0 xspc1 xspc2
5384 }
5386 }
5388 proc show_status {msg} {
5389 global canv fgcolor
5391 clear_display
5394 }
5396 # Don't change the text pane cursor if it is currently the hand cursor,
5397 # showing that we are over a sha1 ID link.
5398 proc settextcursor {c} {
5399 global ctext curtextcursor
5403 }
5405 }
5407 proc nowbusy {what {name {}}} {
5408 global isbusy busyname statusw
5410 if {[array names isbusy] eq {}} {
5411 . config -cursor watch
5412 settextcursor watch
5413 }
5418 }
5419 }
5421 proc notbusy {what} {
5422 global isbusy maincursor textcursor busyname statusw
5424 catch {
5429 }
5430 }
5431 if {[array names isbusy] eq {}} {
5434 }
5435 }
5437 proc findmatches {f} {
5438 global findtype findstring
5441 } else {
5446 }
5447 set matches {}
5448 set i 0
5453 }
5454 }
5456 }
5458 proc dofind {{dirn 1} {wrap 1}} {
5459 global findstring findstartline findcurline selectedline numcommits
5460 global gdttype filehighlight fh_serial find_dirn findallowwrap
5462 if {[info exists find_dirn]} {
5464 stopfinding
5465 }
5466 focus .
5470 } else {
5472 }
5474 nowbusy finding [mc "Searching"]
5478 }
5481 run findmore
5482 }
5484 proc stopfinding {} {
5485 global find_dirn findcurline fprogcoord
5487 if {[info exists find_dirn]} {
5488 unset find_dirn
5489 unset findcurline
5490 notbusy finding
5491 set fprogcoord 0
5492 adjustprogress
5493 }
5494 }
5496 proc findmore {} {
5497 global commitdata commitinfo numcommits findpattern findloc
5498 global findstartline findcurline findallowwrap
5499 global find_dirn gdttype fhighlights fprogcoord
5500 global curview varcorder vrownum varccommits vrowmod
5502 if {![info exists find_dirn]} {
5503 return 0
5504 }
5505 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5507 set moretodo 0
5509 incr l
5511 set l 0
5512 }
5515 } else {
5518 }
5519 } else {
5522 }
5523 incr l -1
5526 } else {
5527 set lim -1
5529 }
5530 }
5533 set n 500
5534 set moretodo 1
5535 }
5538 }
5539 set found 0
5540 set domore 1
5554 }
5556 # shouldn't happen unless git log doesn't give all the commits...
5559 continue
5560 }
5563 }
5568 set found 1
5569 break
5570 }
5571 }
5573 }
5574 } else {
5582 }
5587 }
5590 break
5591 }
5594 set domore 0
5596 }
5597 }
5598 }
5599 }
5601 unset findcurline
5602 unset find_dirn
5603 notbusy finding
5604 set fprogcoord 0
5605 adjustprogress
5608 } else {
5609 bell
5610 }
5611 return 0
5612 }
5614 flushhighlights
5615 } else {
5617 }
5621 }
5623 adjustprogress
5625 }
5627 proc findselectline {l} {
5628 global findloc commentend ctext findcurline markingmatches gdttype
5630 set markingmatches 1
5634 # highlight the matches in the comments
5641 }
5642 }
5643 drawvisible
5644 }
5646 # mark the bits of a headline or author that match a find string
5647 proc markmatches {canv l str tag matches font row} {
5648 global selectedline
5666 }
5667 }
5668 }
5670 proc unmarkmatches {} {
5671 global markingmatches
5673 allcanvs delete matches
5674 set markingmatches 0
5675 stopfinding
5676 }
5678 proc selcanvline {w x y} {
5679 global canv canvy0 ctext linespc
5680 global rowtextx
5687 set l 0
5688 }
5693 }
5694 unmarkmatches
5696 }
5698 proc commit_descriptor {p} {
5699 global commitinfo
5702 }
5703 set l "..."
5706 }
5708 }
5710 # append some text to the ctext widget, and make any SHA1 ID
5711 # that we know about be a clickable link.
5712 proc appendwithlinks {text tags} {
5713 global ctext linknum curview pendinglinks
5722 incr e
5726 incr linknum
5727 }
5728 }
5730 proc setlink {id lk} {
5731 global curview ctext pendinglinks commitinterest
5738 } else {
5741 }
5742 }
5744 proc makelink {id} {
5745 global pendinglinks
5750 }
5752 }
5754 proc linkcursor {w inc} {
5755 global linkentercount curtextcursor
5759 } else {
5762 set linkentercount 0
5763 }
5764 }
5765 }
5767 proc viewnextline {dir} {
5768 global canv linespc
5776 set newtop 0
5779 }
5781 }
5783 # add a list of tag or branch names at position pos
5784 # returns the number of names inserted
5785 proc appendrefs {pos ids var} {
5789 return 0
5790 }
5793 set tags {}
5797 }
5798 }
5801 } else {
5803 set sep {}
5807 incr linknum
5812 set sep ", "
5813 }
5814 }
5817 }
5819 # called when we have finished computing the nearby tags
5820 proc dispneartags {delay} {
5821 global selectedline currentid showneartags tagphase
5824 after cancel dispnexttag
5826 after 200 dispnexttag
5827 set tagphase -1
5828 } else {
5829 after idle dispnexttag
5830 set tagphase 0
5831 }
5832 }
5834 proc dispnexttag {} {
5835 global selectedline currentid showneartags tagphase ctext
5839 0 {
5843 }
5844 }
5845 1 {
5849 }
5850 }
5851 2 {
5856 # turn "Branch" into "Branches"
5860 }
5861 }
5862 }
5863 }
5864 if {[incr tagphase] <= 2} {
5865 after idle dispnexttag
5866 }
5867 }
5869 proc make_secsel {l} {
5870 global linehtag linentag linedtag canv canv2 canv3
5885 }
5887 proc selectline {l isnew} {
5888 global canv ctext commitinfo selectedline
5889 global canvy0 linespc parents children curview
5890 global currentid sha1entry
5891 global commentend idtags linknum
5892 global mergemax numcommits pending_select
5893 global cmitmode showneartags allcommits
5894 global targetrow targetid lastscrollrows
5895 global autoselect
5897 catch {unset pending_select}
5899 normalline
5900 unsel_reflist
5901 stopfinding
5909 setcanvscroll
5910 }
5924 } else {
5928 }
5929 }
5933 } else {
5937 }
5938 }
5939 }
5942 set newtop 0
5943 }
5945 drawvisible
5946 }
5952 }
5959 }
5963 clear_ctext
5964 set linknum 0
5967 }
5977 }
5979 }
5981 set headers {}
5984 set np 0
5987 set tag mmax
5988 } else {
5990 }
5993 incr np
5994 }
5995 } else {
5998 }
5999 }
6003 }
6005 # make anything that looks like a SHA1 ID be a clickable link
6008 if {![info exists allcommits]} {
6009 getallcommits
6010 }
6021 dispneartags 1
6022 }
6027 }
6034 init_flist [mc "Comments"]
6039 } else {
6041 }
6042 }
6044 proc selfirstline {} {
6045 unmarkmatches
6046 selectline 0 1
6047 }
6049 proc sellastline {} {
6050 global numcommits
6051 unmarkmatches
6054 }
6056 proc selnextline {dir} {
6057 global selectedline
6058 focus .
6061 unmarkmatches
6063 }
6065 proc selnextpage {dir} {
6066 global canv linespc selectedline numcommits
6070 set lpp 1
6071 }
6073 drawvisible
6077 set l 0
6080 }
6081 unmarkmatches
6083 }
6085 proc unselectline {} {
6086 global selectedline currentid
6088 set selectedline {}
6089 catch {unset currentid}
6090 allcanvs delete secsel
6091 rhighlight_none
6092 }
6094 proc reselectline {} {
6095 global selectedline
6099 }
6100 }
6102 proc addtohistory {cmd} {
6103 global history historyindex curview
6108 return
6109 }
6113 } else {
6115 }
6116 incr historyindex
6118 .tf.bar.leftbut conf -state normal
6119 } else {
6120 .tf.bar.leftbut conf -state disabled
6121 }
6122 .tf.bar.rightbut conf -state disabled
6123 }
6125 proc godo {elt} {
6126 global curview
6132 }
6134 }
6136 proc goback {} {
6137 global history historyindex
6138 focus .
6141 incr historyindex -1
6143 .tf.bar.rightbut conf -state normal
6144 }
6146 .tf.bar.leftbut conf -state disabled
6147 }
6148 }
6150 proc goforw {} {
6151 global history historyindex
6152 focus .
6156 incr historyindex
6158 .tf.bar.leftbut conf -state normal
6159 }
6161 .tf.bar.rightbut conf -state disabled
6162 }
6163 }
6165 proc gettree {id} {
6166 global treefilelist treeidlist diffids diffmergeid treepending
6167 global nullid nullid2
6170 catch {unset diffmergeid}
6172 if {![info exists treepending]} {
6174 set cmd [list | git ls-files]
6176 set cmd [list | git ls-files --stage -t]
6177 } else {
6179 }
6181 return
6182 }
6188 }
6189 } else {
6191 }
6192 }
6194 proc gettreeline {gtf id} {
6195 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6197 set nl 0
6201 } else {
6210 }
6212 }
6214 }
6217 }
6219 unset treepending
6221 if {![info exists diffmergeid]} {
6223 }
6226 } else {
6228 }
6229 return 0
6230 }
6232 proc showfile {f} {
6233 global treefilelist treeidlist diffids nullid nullid2
6234 global ctext commentend
6239 return
6240 }
6244 return
6245 }
6246 } else {
6250 return
6251 }
6252 }
6261 settabs 0
6262 }
6264 proc getblobline {bf id} {
6265 global diffids cmitmode ctext
6269 return 0
6270 }
6272 set nl 0
6275 }
6277 # delete last newline
6280 return 0
6281 }
6284 }
6286 proc mergediff {id} {
6287 global diffmergeid mdifffd
6288 global diffids
6289 global parents
6290 global diffcontext
6291 global limitdiffs vfilelimit curview
6295 # this doesn't seem to actually affect anything...
6299 }
6302 return
6303 }
6309 }
6311 proc getmergediffline {mdf id np} {
6312 global diffmergeid ctext cflist mergemax
6313 global difffilestart mdifffd
6316 set nr 0
6321 return 0
6322 }
6324 # start of a new file
6335 # do nothing
6336 } else {
6337 # parse the prefix - one ' ', '-' or '+' for each parent
6338 set spaces {}
6339 set minuses {}
6340 set pluses {}
6341 set isbad 0
6350 } else {
6351 set isbad 1
6352 break
6353 }
6354 }
6355 set tags {}
6356 set num {}
6362 lappend tags mresult
6364 }
6367 set num "max"
6368 }
6370 }
6372 }
6373 }
6377 return 0
6378 }
6380 }
6382 proc startdiff {ids} {
6383 global treediffs diffids treepending diffmergeid nullid nullid2
6385 settabs 1
6387 catch {unset diffmergeid}
6391 if {![info exists treepending]} {
6393 }
6394 } else {
6396 }
6397 }
6399 proc path_filter {filter name} {
6404 return 1
6405 }
6406 } else {
6410 return 1
6411 }
6412 }
6413 }
6414 return 0
6415 }
6417 proc addtocflist {ids} {
6418 global treediffs
6422 }
6424 proc diffcmd {ids flags} {
6425 global nullid nullid2
6431 # comparing working directory with some specific revision
6435 } else {
6437 }
6438 } else {
6439 # comparing working directory with index
6442 lappend cmd -R
6443 }
6444 }
6448 # comparing index with specific revision
6451 } else {
6453 }
6454 } else {
6455 # comparing index with HEAD
6456 lappend cmd HEAD
6457 }
6458 } else {
6460 }
6462 }
6464 proc gettreediffs {ids} {
6465 global treediff treepending
6470 set treediff {}
6473 }
6475 proc gettreediffline {gdtf ids} {
6476 global treediff treediffs treepending diffids diffmergeid
6477 global cmitmode vfilelimit curview limitdiffs
6479 set nr 0
6486 }
6488 }
6489 }
6492 }
6495 set flist {}
6499 }
6500 }
6502 } else {
6504 }
6505 unset treepending
6509 if {![info exists diffmergeid]} {
6511 }
6512 } else {
6514 }
6515 return 0
6516 }
6518 # empty string or positive integer
6519 proc diffcontextvalidate {v} {
6521 }
6523 proc diffcontextchange {n1 n2 op} {
6524 global diffcontextstring diffcontext
6529 reselectline
6530 }
6531 }
6532 }
6534 proc changeignorespace {} {
6535 reselectline
6536 }
6538 proc getblobdiffs {ids} {
6539 global blobdifffd diffids env
6540 global diffinhdr treediffs
6541 global diffcontext
6542 global ignorespace
6543 global limitdiffs vfilelimit curview
6547 append cmd " -w"
6548 }
6551 }
6554 return
6555 }
6556 set diffinhdr 0
6560 }
6562 proc setinlist {var i val} {
6567 }
6570 } else {
6572 }
6573 }
6575 proc makediffhdr {fname ids} {
6576 global ctext curdiffstart treediffs
6581 }
6585 }
6587 proc getblobdiffline {bdf ids} {
6588 global diffids blobdifffd ctext curdiffstart
6589 global diffnexthead diffnextnote difffilestart
6590 global diffinhdr treediffs
6592 set nr 0
6597 return 0
6598 }
6600 # trim off "diff --git "
6602 set diffinhdr 1
6603 # start of a new file
6607 # If the name hasn't changed the length will be odd,
6608 # the middle char will be a space, and the two bits either
6609 # side will be a/name and b/name, or "a/name" and "b/name".
6610 # If the name has changed we'll get "rename from" and
6611 # "rename to" or "copy from" and "copy to" lines following this,
6612 # and we'll use them to get the filenames.
6613 # This complexity is necessary because spaces in the filename(s)
6614 # don't get escaped.
6620 continue
6621 }
6622 # unescape if quoted and chop off the a/ from the front
6625 } else {
6627 }
6630 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6633 set diffinhdr 0
6640 }
6644 }
6650 }
6653 # do nothing
6654 continue
6656 set diffinhdr 0
6657 continue
6658 }
6661 } else {
6668 } else {
6669 # "\ No newline at end of file",
6670 # or something else we don't recognize
6672 }
6673 }
6674 }
6678 return 0
6679 }
6681 }
6683 proc changediffdisp {} {
6684 global ctext diffelide
6688 }
6690 proc highlightfile {loc cline} {
6691 global ctext cflist cflist_top
6698 }
6700 proc prevfile {} {
6701 global difffilestart ctext cmitmode
6704 set prev 0.0
6705 set prevline 1
6710 return
6711 }
6713 incr prevline
6714 }
6716 }
6718 proc nextfile {} {
6719 global difffilestart ctext cmitmode
6723 set line 1
6725 incr line
6728 return
6729 }
6730 }
6731 }
6733 proc clear_ctext {{first 1.0}} {
6734 global ctext smarktop smarkbot
6735 global pendinglinks
6740 }
6743 }
6746 catch {unset pendinglinks}
6747 }
6748 }
6750 proc settabs {{firstab {}}} {
6751 global firsttabstop tabstop ctext have_tk85
6755 }
6756 set w [font measure textfont "0"]
6762 } else {
6764 }
6765 }
6767 proc incrsearch {name ix op} {
6768 global ctext searchstring searchdirn
6772 # no anchor set, use start of selection, or of visible area
6778 } else {
6780 }
6781 }
6786 }
6787 searchmarkvisible 1
6788 }
6789 }
6791 proc dosearch {} {
6792 global sstring ctext searchstring searchdirn
6796 set searchdirn -forwards
6802 set start "@0,0"
6803 }
6807 bell
6808 return
6809 }
6814 }
6815 }
6817 proc dosearchback {} {
6818 global sstring ctext searchstring searchdirn
6822 set searchdirn -backwards
6829 }
6833 bell
6834 return
6835 }
6840 }
6841 }
6843 proc searchmark {first last} {
6844 global ctext searchstring
6847 while {1} {
6852 }
6853 }
6855 proc searchmarkvisible {doall} {
6856 global ctext smarktop smarkbot
6861 # no overlap with previous
6865 } else {
6869 }
6873 }
6874 }
6875 }
6877 proc scrolltext {f0 f1} {
6878 global searchstring
6882 searchmarkvisible 0
6883 }
6884 }
6886 proc setcoords {} {
6887 global linespc charspc canvx0 canvy0
6888 global xspc1 xspc2 lthickness
6890 set linespc [font metrics mainfont -linespace]
6891 set charspc [font measure mainfont "m"]
6897 }
6899 proc redisplay {} {
6900 global canv
6901 global selectedline
6906 clear_display
6907 setcanvscroll
6909 drawvisible
6913 }
6914 }
6916 proc parsefont {f n} {
6917 global fontattr
6922 set s 10
6925 }
6931 "normal" -
6933 "roman" -
6935 }
6936 }
6937 }
6939 proc fontflags {f {isbold 0}} {
6940 global fontattr
6945 }
6947 proc fontname {f} {
6948 global fontattr
6952 lappend n "bold"
6953 }
6955 lappend n "italic"
6956 }
6958 }
6960 proc incrfont {inc} {
6961 global mainfont textfont ctext canv cflist showrefstop
6962 global stopped entries fontattr
6964 unmarkmatches
6968 set s 1
6969 }
6973 set mainfont [fontname mainfont]
6977 set s 1
6978 }
6982 set textfont [fontname textfont]
6983 setcoords
6984 settabs
6985 redisplay
6986 }
6988 proc clearsha1 {} {
6989 global sha1entry sha1string
6992 }
6993 }
6995 proc sha1change {n1 n2 op} {
6996 global sha1string currentid sha1but
6999 set state disabled
7000 } else {
7001 set state normal
7002 }
7006 } else {
7008 }
7009 }
7011 proc gotocommit {} {
7012 global sha1string tagids headids curview varcid
7020 } else {
7027 return
7028 }
7030 }
7031 }
7032 }
7035 return
7036 }
7039 } else {
7041 }
7043 }
7045 proc lineenter {x y id} {
7046 global hoverx hovery hoverid hovertimer
7047 global commitinfo canv
7053 if {[info exists hovertimer]} {
7055 }
7056 set hovertimer [after 500 linehover]
7058 }
7060 proc linemotion {x y id} {
7061 global hoverx hovery hoverid hovertimer
7066 if {[info exists hovertimer]} {
7068 }
7069 set hovertimer [after 500 linehover]
7070 }
7071 }
7073 proc lineleave {id} {
7074 global hoverid hovertimer canv
7078 if {[info exists hovertimer]} {
7080 unset hovertimer
7081 }
7082 unset hoverid
7083 }
7084 }
7086 proc linehover {} {
7087 global hoverx hovery hoverid hovertimer
7088 global canv linespc lthickness
7089 global commitinfo
7102 -fill \#ffff80 -outline black -width 1 -tags hover]
7105 -font mainfont]
7107 }
7109 proc clickisonarrow {id y} {
7110 global lthickness
7119 }
7120 }
7121 return {}
7122 }
7124 proc arrowjump {id n y} {
7125 global canv
7127 # 1 <-> 2, 3 <-> 4, etc...
7137 set yfrac 0
7138 }
7140 }
7142 proc lineclick {x y id isnew} {
7143 global ctext commitinfo children canv thickerline curview
7146 unmarkmatches
7147 unselectline
7148 normalline
7150 # draw this line thicker than normal
7158 }
7162 return
7163 }
7167 }
7168 # fill the details pane with info about this line
7170 clear_ctext
7171 settabs 0
7183 set i 0
7185 incr i
7195 }
7196 }
7198 init_flist {}
7199 }
7201 proc normalline {} {
7202 global thickerline
7203 if {[info exists thickerline]} {
7205 unset thickerline
7207 }
7208 }
7210 proc selbyid {id} {
7211 global curview
7214 }
7215 }
7217 proc mstime {} {
7218 global startmstime
7219 if {![info exists startmstime]} {
7220 set startmstime [clock clicks -milliseconds]
7221 }
7223 }
7225 proc rowmenu {x y id} {
7226 global rowctxmenu selectedline rowmenuid curview
7227 global nullid nullid2 fakerowmenu mainhead
7229 stopfinding
7232 set state disabled
7233 } else {
7234 set state normal
7235 }
7240 } else {
7242 }
7243 } else {
7245 }
7250 }
7252 proc diffvssel {dirn} {
7253 global rowmenuid selectedline
7259 } else {
7262 }
7265 }
7267 proc doseldiff {oldid newid} {
7268 global ctext
7269 global commitinfo
7272 clear_ctext
7273 init_flist [mc "Top"]
7288 }
7290 proc mkpatch {} {
7291 global rowmenuid currentid commitinfo patchtop patchnum
7293 if {![info exists currentid]} return
7298 set top .patch
7327 incr patchnum
7337 }
7339 proc mkpatchrev {} {
7340 global patchtop
7346 foreach e [list fromsha1 fromhead tosha1 tohead] \
7352 }
7353 }
7355 proc mkpatchgo {} {
7356 global patchtop nullid nullid2
7362 # trim off the initial "|"
7367 }
7369 unset patchtop
7370 }
7372 proc mkpatchcan {} {
7373 global patchtop
7376 unset patchtop
7377 }
7379 proc mktag {} {
7380 global rowmenuid mktagtop commitinfo
7382 set top .maketag
7408 }
7410 proc domktag {} {
7411 global mktagtop env tagids idtags
7416 error_popup [mc "No tag name specified"]
7417 return
7418 }
7421 return
7422 }
7423 if {[catch {
7425 } err]} {
7427 return
7428 }
7434 dispneartags 0
7435 run refill_reflist
7436 }
7438 proc redrawtags {id} {
7439 global canv linehtag idpos currentid curview cmitlisted
7440 global canvxmax iddrawn circleitem mainheadid circlecolors
7446 set ofill yellow
7447 } else {
7449 }
7459 setcanvscroll
7460 }
7463 }
7464 }
7466 proc mktagcan {} {
7467 global mktagtop
7470 unset mktagtop
7471 }
7473 proc mktaggo {} {
7474 domktag
7475 mktagcan
7476 }
7478 proc writecommit {} {
7479 global rowmenuid wrcomtop commitinfo wrcomcmd
7481 set top .writecommit
7511 }
7513 proc wrcomgo {} {
7514 global wrcomtop
7521 }
7523 unset wrcomtop
7524 }
7526 proc wrcomcan {} {
7527 global wrcomtop
7530 unset wrcomtop
7531 }
7533 proc mkbranch {} {
7534 global rowmenuid mkbrtop
7536 set top .makebranch
7557 }
7559 proc mkbrgo {top} {
7560 global headids idheads
7565 error_popup [mc "Please specify a name for the new branch"]
7566 return
7567 }
7569 nowbusy newbranch
7570 update
7571 if {[catch {
7573 } err]} {
7574 notbusy newbranch
7576 } else {
7580 notbusy newbranch
7582 dispneartags 0
7583 run refill_reflist
7584 }
7585 }
7587 proc cherrypick {} {
7588 global rowmenuid curview
7589 global mainhead mainheadid
7591 set oldhead [exec git rev-parse HEAD]
7594 set ok [confirm_popup [mc "Commit %s is already\
7595 included in branch %s -- really re-apply it?" \
7598 }
7599 nowbusy cherrypick [mc "Cherry-picking"]
7600 update
7601 # Unfortunately git-cherry-pick writes stuff to stderr even when
7602 # no error occurs, and exec takes that as an indication of error...
7604 notbusy cherrypick
7606 return
7607 }
7608 set newhead [exec git rev-parse HEAD]
7610 notbusy cherrypick
7611 error_popup [mc "No changes committed"]
7612 return
7613 }
7620 }
7625 }
7626 notbusy cherrypick
7627 }
7629 proc resethead {} {
7630 global mainhead rowmenuid confirm_ok resettype
7632 set confirm_ok 0
7633 set w ".confirmreset"
7639 -justify center -aspect 1000
7644 set resettype mixed
7646 -text [mc "Soft: Leave working tree and index untouched"]
7649 -text [mc "Mixed: Leave working tree untouched, reset index"]
7652 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7662 if {[catch {set fd [open \
7665 } else {
7666 dohidelocalchanges
7668 nowbusy reset [mc "Resetting"]
7670 }
7671 }
7673 proc readresetstat {fd} {
7674 global mainhead mainheadid showlocalchanges rprogcoord
7679 adjustprogress
7680 }
7681 return 1
7682 }
7683 set rprogcoord 0
7684 adjustprogress
7685 notbusy reset
7688 }
7690 set newhead [exec git rev-parse HEAD]
7697 }
7699 doshowlocalchanges
7700 }
7701 return 0
7702 }
7704 # context menu for a head
7705 proc headmenu {x y id head} {
7706 global headmenuid headmenuhead headctxmenu mainhead
7708 stopfinding
7711 set state normal
7713 set state disabled
7714 }
7718 }
7720 proc cobranch {} {
7721 global headmenuid headmenuhead headids
7722 global showlocalchanges mainheadid
7724 # check the tree is clean first??
7725 nowbusy checkout [mc "Checking out"]
7726 update
7727 dohidelocalchanges
7728 if {[catch {
7730 } err]} {
7731 notbusy checkout
7734 dodiffindex
7735 }
7736 } else {
7738 }
7739 }
7741 proc readcheckoutstat {fd newhead newheadid} {
7742 global mainhead mainheadid headids showlocalchanges progresscoords
7747 adjustprogress
7748 }
7749 return 1
7750 }
7751 set progresscoords {0 0}
7752 adjustprogress
7753 notbusy checkout
7756 }
7764 dodiffindex
7765 }
7766 }
7768 proc rmbranch {} {
7769 global headmenuid headmenuhead mainhead
7770 global idheads
7774 # this check shouldn't be needed any more...
7776 error_popup [mc "Cannot delete the currently checked-out branch"]
7777 return
7778 }
7781 # the stuff on this branch isn't on any other branch
7782 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7784 }
7785 nowbusy rmbranch
7786 update
7788 notbusy rmbranch
7790 return
7791 }
7795 notbusy rmbranch
7796 dispneartags 0
7797 run refill_reflist
7798 }
7800 # Display a list of tags and heads
7801 proc showrefs {} {
7802 global showrefstop bgcolor fgcolor selectbgcolor
7803 global bglist fglist reflistfilter reflist maincursor
7805 set top .showrefs
7809 refill_reflist
7810 return
7811 }
7818 -spacing1 1 -spacing3 1 -state disabled
7829 set reflistfilter "*"
7830 trace add variable reflistfilter write reflistfilter_change
7841 set reflist {}
7842 refill_reflist
7843 }
7845 proc sel_reflist {w x y} {
7846 global showrefstop reflist headids tagids otherrefids
7856 }
7858 }
7860 proc unsel_reflist {} {
7861 global showrefstop
7865 }
7867 proc reflistfilter_change {n1 n2 op} {
7868 global reflistfilter
7870 after cancel refill_reflist
7871 after 200 refill_reflist
7872 }
7874 proc refill_reflist {} {
7875 global reflist reflistfilter showrefstop headids tagids otherrefids
7876 global curview commitinterest
7879 set refs {}
7880 foreach n [array names headids] {
7884 } else {
7886 }
7887 }
7888 }
7889 foreach n [array names tagids] {
7893 } else {
7895 }
7896 }
7897 }
7898 foreach n [array names otherrefids] {
7902 } else {
7904 }
7905 }
7906 }
7914 set i 0
7915 set j 0
7924 }
7925 } else {
7926 set cmp -1
7927 }
7928 } else {
7929 set cmp 1
7930 }
7932 -1 {
7934 incr i
7935 }
7936 0 {
7937 incr i
7938 incr j
7939 }
7940 1 {
7945 incr j
7946 }
7947 }
7948 }
7950 # delete last newline
7953 }
7955 # Stuff for finding nearby tags
7956 proc getallcommits {} {
7957 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7958 global idheads idtags idotherrefs allparents tagobjid
7960 if {![info exists allcommits]} {
7961 set nextarc 0
7962 set allcommits 0
7963 set seeds {}
7964 set allcwait 0
7965 set cachedarcs 0
7966 set allccache [file join [gitdir] "gitk.cache"]
7967 if {![catch {
7969 set allcwait 1
7971 }]} return
7972 }
7975 return
7976 }
7977 set cmd [list | git rev-list --parents]
7980 set ids "--all"
7981 } else {
7982 set refs [concat [array names idheads] [array names idtags] \
7983 [array names idotherrefs]]
7984 set ids {}
7985 set tagobjs {}
7986 foreach name [array names tagobjid] {
7988 }
7993 }
7994 }
7998 }
7999 }
8000 }
8004 incr allcommits
8005 nowbusy allcommits
8007 } else {
8008 dispneartags 0
8009 }
8010 }
8012 # Since most commits have 1 parent and 1 child, we group strings of
8013 # such commits into "arcs" joining branch/merge points (BMPs), which
8014 # are commits that either don't have 1 parent or don't have 1 child.
8015 #
8016 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8017 # arcout(id) - outgoing arcs for BMP
8018 # arcids(a) - list of IDs on arc including end but not start
8019 # arcstart(a) - BMP ID at start of arc
8020 # arcend(a) - BMP ID at end of arc
8021 # growing(a) - arc a is still growing
8022 # arctags(a) - IDs out of arcids (excluding end) that have tags
8023 # archeads(a) - IDs out of arcids (excluding end) that have heads
8024 # The start of an arc is at the descendent end, so "incoming" means
8025 # coming from descendents, and "outgoing" means going towards ancestors.
8027 proc getallclines {fd} {
8028 global allparents allchildren idtags idheads nextarc
8029 global arcnos arcids arctags arcout arcend arcstart archeads growing
8030 global seeds allcommits cachedarcs allcupdate
8032 set nid 0
8036 # seen it already
8037 continue
8038 }
8039 set cachedarcs 0
8046 } else {
8052 }
8055 }
8057 # seen parent already
8060 }
8064 }
8067 continue
8068 }
8069 }
8074 }
8076 set ao {}
8079 set a [incr nextarc]
8088 # seen it already, may need to make a new branch
8091 }
8095 }
8097 }
8099 }
8101 global cached_dheads cached_dtags cached_atags
8102 catch {unset cached_dheads}
8103 catch {unset cached_dtags}
8104 catch {unset cached_atags}
8105 }
8108 }
8109 set cacheok 1
8110 if {[catch {
8113 } err]} {
8114 # got an error reading the list of commits
8115 # if we were updating, try rereading the whole thing again
8117 incr allcommits -1
8119 return
8120 }
8121 error_popup "[mc "Error reading commit topology information;\
8122 branch and preceding/following tag information\
8124 set cacheok 0
8125 }
8126 if {[incr allcommits -1] == 0} {
8127 notbusy allcommits
8129 run savecache
8130 }
8131 }
8132 dispneartags 0
8133 return 0
8134 }
8136 proc recalcarc {a} {
8137 global arctags archeads arcids idtags idheads
8139 set at {}
8140 set ah {}
8144 }
8147 }
8148 }
8151 }
8153 proc splitarc {p} {
8154 global arcnos arcids nextarc arctags archeads idtags idheads
8155 global arcstart arcend arcout allparents growing
8160 return
8161 }
8166 return
8167 }
8168 set na [incr nextarc]
8171 } else {
8175 }
8185 }
8190 } else {
8193 }
8194 }
8196 # reconstruct tags and heads lists
8200 } else {
8203 }
8204 }
8206 # Update things for a new commit added that is a child of one
8207 # existing commit. Used when cherry-picking.
8208 proc addnewchild {id p} {
8209 global allparents allchildren idtags nextarc
8210 global arcnos arcids arctags arcout arcend arcstart archeads growing
8211 global seeds allcommits
8219 set a [incr nextarc]
8227 }
8230 }
8232 # This implements a cache for the topology information.
8233 # The cache saves, for each arc, the start and end of the arc,
8234 # the ids on the arc, and the outgoing arcs from the end.
8235 proc readcache {f} {
8236 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8237 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8238 global allcwait
8244 }
8245 if {[catch {
8247 # finish reading the cache and setting up arctags, etc.
8251 foreach id [array names idtags] {
8257 }
8258 }
8259 }
8260 foreach id [array names idheads] {
8266 }
8267 }
8268 }
8272 }
8273 }
8274 set allcwait 0
8275 } else {
8285 }
8289 } else {
8293 }
8294 }
8300 }
8303 }
8306 }
8308 }
8309 } err]} {
8311 return 0
8312 }
8314 getallcommits
8315 }
8317 }
8319 proc getcache {f} {
8320 global nextarc cachedarcs possible_seeds
8322 if {[catch {
8325 # make sure it's an integer
8328 set nextarc 0
8329 set possible_seeds {}
8331 } err]} {
8333 }
8334 return 0
8335 }
8337 proc dropcache {err} {
8338 global allcwait nextarc cachedarcs seeds
8341 foreach v {arcnos arcout arcids arcstart arcend growing \
8342 arctags archeads allparents allchildren} {
8345 }
8346 set allcwait 0
8347 set nextarc 0
8348 set cachedarcs 0
8349 set seeds {}
8350 getallcommits
8351 }
8353 proc writecache {f} {
8354 global cachearc cachedarcs allccache
8355 global arcstart arcend arcnos arcids arcout
8361 }
8362 if {[catch {
8366 } else {
8368 }
8369 }
8370 } err]} {
8374 return 0
8375 }
8380 return 0
8381 }
8382 return 1
8383 }
8385 proc savecache {} {
8386 global nextarc cachedarcs cachearc allccache
8389 set cachearc 0
8391 catch {
8395 }
8396 }
8398 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8399 # or 0 if neither is true.
8400 proc anc_or_desc {a b} {
8401 global arcout arcstart arcend arcnos cached_isanc
8404 # Both are on the same arc(s); either both are the same BMP,
8405 # or if one is not a BMP, the other is also not a BMP or is
8406 # the BMP at end of the arc (and it only has 1 incoming arc).
8407 # Or both can be BMPs with no incoming arcs.
8409 return 0
8410 }
8416 return 1
8417 } else {
8418 return -1
8419 }
8420 }
8426 } else {
8427 set aend {}
8428 }
8430 } else {
8432 }
8437 } else {
8438 set bend {}
8439 }
8441 } else {
8443 }
8445 return 1
8446 }
8448 return -1
8449 }
8452 return 1
8453 }
8454 }
8457 return -1
8458 }
8460 return 0
8461 }
8462 }
8470 continue
8471 }
8477 return 1
8481 return -1
8482 }
8488 }
8489 }
8490 }
8493 return 0
8494 }
8498 # and returns 0 if so and 1 if not.
8499 # If we subsequently discover a tag on such a growing tip, and that
8502 # isn't a good choice to display as a descendent tag of
8506 #
8507 proc is_certain {desc anc} {
8508 global arcnos arcout arcstart arcend growing problems
8510 set certain {}
8512 # tags on the same arc are certain
8514 return 1
8515 }
8520 }
8521 }
8524 } else {
8527 }
8529 return 1
8530 }
8533 set nnh 1
8534 set ngrowanc 0
8538 incr nnh -1
8539 }
8545 incr ngrowanc
8546 }
8547 } else {
8554 incr nnh -1
8555 }
8557 incr ngrowanc -1
8558 }
8568 incr nnh -1
8569 }
8571 incr ngrowanc -1
8572 }
8574 }
8575 }
8576 }
8577 }
8578 }
8579 }
8583 } else {
8586 incr nnh
8587 }
8588 }
8589 }
8590 }
8591 foreach x [array names growanc] {
8593 return 0
8594 }
8595 return 0
8596 }
8597 return 1
8598 }
8600 proc validate_arctags {a} {
8601 global arctags idtags
8603 set i -1
8606 incr i
8609 incr i -1
8610 }
8611 }
8613 }
8615 proc validate_archeads {a} {
8616 global archeads idheads
8618 set i -1
8621 incr i
8624 incr i -1
8625 }
8626 }
8628 }
8630 # Return the list of IDs that have tags that are descendents of id,
8631 # ignoring IDs that are descendents of IDs already reported.
8632 proc desctags {id} {
8633 global arcnos arcstart arcids arctags idtags allparents
8634 global growing cached_dtags
8637 return {}
8638 }
8639 set t1 [clock clicks -milliseconds]
8642 # part-way along an arc; check that arc first
8647 set tid {}
8652 }
8655 }
8656 }
8660 }
8661 }
8664 }
8669 set nc 1
8675 incr nc -1
8676 }
8677 # ignore tags on starting node
8681 set ta 1
8684 set ta 1
8685 }
8686 }
8693 }
8694 }
8703 }
8706 }
8708 incr nc -1
8709 }
8711 }
8712 }
8713 }
8718 incr nc
8719 }
8720 }
8721 }
8722 }
8723 set tags {}
8724 foreach id [array names tagloc] {
8729 }
8730 }
8731 }
8732 }
8733 set t2 [clock clicks -milliseconds]
8736 # remove tags that are descendents of other tags
8744 incr j -1
8745 incr i -1
8748 incr i -1
8749 break
8750 }
8751 }
8752 }
8754 if {[array names growing] ne {}} {
8755 # graph isn't finished, need to check if any tag could get
8756 # eclipsed by another tag coming later. Simply ignore any
8757 # tags that could later get eclipsed.
8758 set ctags {}
8762 }
8763 }
8766 } else {
8768 }
8769 } else {
8771 }
8772 set t3 [clock clicks -milliseconds]
8776 }
8778 }
8780 proc anctags {id} {
8781 global arcnos arcids arcout arcend arctags idtags allparents
8782 global growing cached_atags
8785 return {}
8786 }
8787 set t1 [clock clicks -milliseconds]
8790 # part-way along an arc; check that arc first
8799 }
8800 }
8801 }
8803 return {}
8804 }
8808 }
8809 }
8812 }
8817 set taglist {}
8818 set nc 1
8824 incr nc -1
8825 }
8826 # ignore tags on starting node
8830 set td 1
8833 set td 1
8834 }
8835 }
8841 }
8842 }
8854 }
8855 }
8858 }
8860 incr nc -1
8861 }
8863 }
8864 }
8865 }
8870 incr nc
8871 }
8872 }
8873 }
8874 }
8875 set t2 [clock clicks -milliseconds]
8877 set tags {}
8878 foreach id [array names tagloc] {
8883 }
8884 }
8885 }
8886 }
8888 # remove tags that are ancestors of other tags
8896 incr j -1
8897 incr i -1
8900 incr i -1
8901 break
8902 }
8903 }
8904 }
8906 if {[array names growing] ne {}} {
8907 # graph isn't finished, need to check if any tag could get
8908 # eclipsed by another tag coming later. Simply ignore any
8909 # tags that could later get eclipsed.
8910 set ctags {}
8914 }
8915 }
8918 } else {
8920 }
8921 } else {
8923 }
8924 set t3 [clock clicks -milliseconds]
8928 }
8930 }
8932 # Return the list of IDs that have heads that are descendents of id,
8933 # including id itself if it has a head.
8934 proc descheads {id} {
8935 global arcnos arcstart arcids archeads idheads cached_dheads
8936 global allparents
8939 return {}
8940 }
8941 set aret {}
8943 # part-way along an arc; check it first
8952 }
8953 }
8955 }
8959 set ret {}
8964 } else {
8967 }
8973 }
8974 }
8979 }
8980 }
8981 }
8982 }
8986 }
8988 proc addedtag {id} {
8989 global arcnos arcout cached_dtags cached_atags
8994 }
8995 catch {unset cached_dtags}
8996 catch {unset cached_atags}
8997 }
8999 proc addedhead {hid head} {
9000 global arcnos arcout cached_dheads
9005 }
9006 catch {unset cached_dheads}
9007 }
9009 proc removedhead {hid head} {
9010 global cached_dheads
9012 catch {unset cached_dheads}
9013 }
9015 proc movedhead {hid head} {
9016 global arcnos arcout cached_dheads
9021 }
9022 catch {unset cached_dheads}
9023 }
9025 proc changedrefs {} {
9026 global cached_dheads cached_dtags cached_atags
9027 global arctags archeads arcnos arcout idheads idtags
9029 foreach id [concat [array names idheads] [array names idtags]] {
9035 }
9036 }
9037 }
9038 catch {unset cached_dtags}
9039 catch {unset cached_atags}
9040 catch {unset cached_dheads}
9041 }
9043 proc rereadrefs {} {
9044 global idtags idheads idotherrefs mainheadid
9046 set refids [concat [array names idtags] \
9047 [array names idheads] [array names idotherrefs]]
9051 }
9052 }
9054 readrefs
9055 changedrefs
9057 [array names idheads] [array names idotherrefs]]]
9062 }
9063 }
9067 }
9068 run refill_reflist
9069 }
9071 proc listrefs {id} {
9072 global idtags idheads idotherrefs
9074 set x {}
9077 }
9078 set y {}
9081 }
9082 set z {}
9085 }
9087 }
9089 proc showtag {tag isnew} {
9090 global ctext tagcontents tagids linknum tagobjid
9094 }
9096 clear_ctext
9097 settabs 0
9098 set linknum 0
9100 catch {
9102 }
9103 }
9106 } else {
9108 }
9111 init_flist {}
9112 }
9114 proc doquit {} {
9115 global stopped
9116 global gitktmpdir
9118 set stopped 100
9119 savestuff .
9120 destroy .
9122 if {[info exists gitktmpdir]} {
9124 }
9125 }
9127 proc mkfontdisp {font top which} {
9136 }
9138 proc choosefont {font which} {
9139 global fontparam fontlist fonttop fontattr
9147 set top .gitkfont
9150 font create sample
9156 set fontlist [lsort [font families]]
9167 -textvariable fontparam(size) \
9168 -validatecommand {string is integer -strict %s}
9170 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9171 -variable fontparam(weight) -onvalue bold -offvalue normal
9173 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9174 -variable fontparam(slant) -onvalue italic -offvalue roman
9178 -background white
9180 -fill black -tags text
9190 trace add variable fontparam write chg_fontparam
9191 } else {
9194 }
9199 }
9200 }
9202 proc centertext {w} {
9204 }
9206 proc fontok {} {
9207 global fontparam fontpref prefstop
9213 }
9216 }
9220 fontcan
9221 }
9223 proc fontcan {} {
9224 global fonttop fontparam
9226 if {[info exists fonttop]} {
9228 catch {font delete sample}
9229 unset fonttop
9230 unset fontparam
9231 }
9232 }
9234 proc selfontfam {} {
9235 global fonttop fontparam
9240 }
9241 }
9243 proc chg_fontparam {v sub op} {
9244 global fontparam
9247 }
9249 proc doprefs {} {
9250 global maxwidth maxgraphpct
9251 global oldprefs prefstop showneartags showlocalchanges
9252 global bgcolor fgcolor ctext diffcolors selectbgcolor
9253 global tabstop limitdiffs autoselect extdifftool
9255 set top .gitkprefs
9259 return
9260 }
9261 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9262 limitdiffs tabstop} {
9264 }
9271 -font optionfont
9275 -font optionfont
9308 -padx 10
9310 -command choose_extdiff
9337 "diff hunk header" \
9359 }
9361 proc choose_extdiff {} {
9362 global extdifftool
9364 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9367 }
9368 }
9370 proc choosecolor {v vi w x cmd} {
9379 }
9381 proc setselbg {c} {
9382 global bglist cflist
9385 }
9389 }
9391 proc setbg {c} {
9392 global bglist
9396 }
9397 }
9399 proc setfg {c} {
9400 global fglist canv
9404 }
9407 }
9409 proc prefscan {} {
9410 global oldprefs prefstop
9412 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9413 limitdiffs tabstop} {
9416 }
9418 unset prefstop
9419 fontcan
9420 }
9422 proc prefsok {} {
9423 global maxwidth maxgraphpct
9424 global oldprefs prefstop showneartags showlocalchanges
9425 global fontpref mainfont textfont uifont
9426 global limitdiffs treediffs
9429 unset prefstop
9430 fontcan
9431 set fontchanged 0
9435 eval font configure mainfont [fontflags mainfont]
9436 eval font configure mainfontbold [fontflags mainfont 1]
9437 setcoords
9438 set fontchanged 1
9439 }
9443 eval font configure textfont [fontflags textfont]
9444 eval font configure textfontbold [fontflags textfont 1]
9445 }
9449 eval font configure uifont [fontflags uifont]
9450 }
9451 settabs
9454 doshowlocalchanges
9455 } else {
9456 dohidelocalchanges
9457 }
9458 }
9460 # treediffs elements are limited by path
9461 catch {unset treediffs}
9462 }
9465 redisplay
9468 reselectline
9469 }
9470 }
9472 proc formatdate {d} {
9473 global datetimeformat
9476 }
9478 }
9480 # This list of encoding names and aliases is distilled from
9481 # http://www.iana.org/assignments/character-sets.
9482 # Not all of them are supported by Tcl.
9483 set encoding_aliases {
9484 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9485 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9486 { ISO-10646-UTF-1 csISO10646UTF1 }
9487 { ISO_646.basic:1983 ref csISO646basic1983 }
9488 { INVARIANT csINVARIANT }
9489 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9490 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9491 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9492 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9493 { NATS-DANO iso-ir-9-1 csNATSDANO }
9494 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9495 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9496 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9497 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9498 { ISO-2022-KR csISO2022KR }
9499 { EUC-KR csEUCKR }
9500 { ISO-2022-JP csISO2022JP }
9501 { ISO-2022-JP-2 csISO2022JP2 }
9502 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9503 csISO13JISC6220jp }
9504 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9505 { IT iso-ir-15 ISO646-IT csISO15Italian }
9506 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9507 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9508 { greek7-old iso-ir-18 csISO18Greek7Old }
9509 { latin-greek iso-ir-19 csISO19LatinGreek }
9510 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9511 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9512 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9513 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9514 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9515 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9516 { INIS iso-ir-49 csISO49INIS }
9517 { INIS-8 iso-ir-50 csISO50INIS8 }
9518 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9519 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9520 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9521 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9522 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9523 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9524 csISO60Norwegian1 }
9525 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9526 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9527 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9528 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9529 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9530 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9531 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9532 { greek7 iso-ir-88 csISO88Greek7 }
9533 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9534 { iso-ir-90 csISO90 }
9535 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9536 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9537 csISO92JISC62991984b }
9538 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9539 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9540 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9541 csISO95JIS62291984handadd }
9542 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9543 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9544 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9545 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9546 CP819 csISOLatin1 }
9547 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9548 { T.61-7bit iso-ir-102 csISO102T617bit }
9549 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9550 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9551 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9552 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9553 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9554 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9555 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9556 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9557 arabic csISOLatinArabic }
9558 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9559 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9560 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9561 greek greek8 csISOLatinGreek }
9562 { T.101-G2 iso-ir-128 csISO128T101G2 }
9563 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9564 csISOLatinHebrew }
9565 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9566 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9567 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9568 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9569 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9570 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9571 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9572 csISOLatinCyrillic }
9573 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9574 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9575 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9576 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9577 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9578 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9579 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9580 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9581 { ISO_10367-box iso-ir-155 csISO10367Box }
9582 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9583 { latin-lap lap iso-ir-158 csISO158Lap }
9584 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9585 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9586 { us-dk csUSDK }
9587 { dk-us csDKUS }
9588 { JIS_X0201 X0201 csHalfWidthKatakana }
9589 { KSC5636 ISO646-KR csKSC5636 }
9590 { ISO-10646-UCS-2 csUnicode }
9591 { ISO-10646-UCS-4 csUCS4 }
9592 { DEC-MCS dec csDECMCS }
9593 { hp-roman8 roman8 r8 csHPRoman8 }
9594 { macintosh mac csMacintosh }
9595 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9596 csIBM037 }
9597 { IBM038 EBCDIC-INT cp038 csIBM038 }
9598 { IBM273 CP273 csIBM273 }
9599 { IBM274 EBCDIC-BE CP274 csIBM274 }
9600 { IBM275 EBCDIC-BR cp275 csIBM275 }
9601 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9602 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9603 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9604 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9605 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9606 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9607 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9608 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9609 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9610 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9611 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9612 { IBM437 cp437 437 csPC8CodePage437 }
9613 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9614 { IBM775 cp775 csPC775Baltic }
9615 { IBM850 cp850 850 csPC850Multilingual }
9616 { IBM851 cp851 851 csIBM851 }
9617 { IBM852 cp852 852 csPCp852 }
9618 { IBM855 cp855 855 csIBM855 }
9619 { IBM857 cp857 857 csIBM857 }
9620 { IBM860 cp860 860 csIBM860 }
9621 { IBM861 cp861 861 cp-is csIBM861 }
9622 { IBM862 cp862 862 csPC862LatinHebrew }
9623 { IBM863 cp863 863 csIBM863 }
9624 { IBM864 cp864 csIBM864 }
9625 { IBM865 cp865 865 csIBM865 }
9626 { IBM866 cp866 866 csIBM866 }
9627 { IBM868 CP868 cp-ar csIBM868 }
9628 { IBM869 cp869 869 cp-gr csIBM869 }
9629 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9630 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9631 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9632 { IBM891 cp891 csIBM891 }
9633 { IBM903 cp903 csIBM903 }
9634 { IBM904 cp904 904 csIBBM904 }
9635 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9636 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9637 { IBM1026 CP1026 csIBM1026 }
9638 { EBCDIC-AT-DE csIBMEBCDICATDE }
9639 { EBCDIC-AT-DE-A csEBCDICATDEA }
9640 { EBCDIC-CA-FR csEBCDICCAFR }
9641 { EBCDIC-DK-NO csEBCDICDKNO }
9642 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9643 { EBCDIC-FI-SE csEBCDICFISE }
9644 { EBCDIC-FI-SE-A csEBCDICFISEA }
9645 { EBCDIC-FR csEBCDICFR }
9646 { EBCDIC-IT csEBCDICIT }
9647 { EBCDIC-PT csEBCDICPT }
9648 { EBCDIC-ES csEBCDICES }
9649 { EBCDIC-ES-A csEBCDICESA }
9650 { EBCDIC-ES-S csEBCDICESS }
9651 { EBCDIC-UK csEBCDICUK }
9652 { EBCDIC-US csEBCDICUS }
9653 { UNKNOWN-8BIT csUnknown8BiT }
9654 { MNEMONIC csMnemonic }
9655 { MNEM csMnem }
9656 { VISCII csVISCII }
9657 { VIQR csVIQR }
9658 { KOI8-R csKOI8R }
9659 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9660 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9661 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9662 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9663 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9664 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9665 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9666 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9667 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9668 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9669 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9670 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9671 { IBM1047 IBM-1047 }
9672 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9673 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9674 { UNICODE-1-1 csUnicode11 }
9675 { CESU-8 csCESU-8 }
9676 { BOCU-1 csBOCU-1 }
9677 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9678 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9679 l8 }
9680 { ISO-8859-15 ISO_8859-15 Latin-9 }
9681 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9682 { GBK CP936 MS936 windows-936 }
9683 { JIS_Encoding csJISEncoding }
9684 { Shift_JIS MS_Kanji csShiftJIS }
9685 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9686 EUC-JP }
9687 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9688 { ISO-10646-UCS-Basic csUnicodeASCII }
9689 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9690 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9691 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9692 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9693 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9694 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9695 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9696 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9697 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9698 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9699 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9700 { Ventura-US csVenturaUS }
9701 { Ventura-International csVenturaInternational }
9702 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9703 { PC8-Turkish csPC8Turkish }
9704 { IBM-Symbols csIBMSymbols }
9705 { IBM-Thai csIBMThai }
9706 { HP-Legal csHPLegal }
9707 { HP-Pi-font csHPPiFont }
9708 { HP-Math8 csHPMath8 }
9709 { Adobe-Symbol-Encoding csHPPSMath }
9710 { HP-DeskTop csHPDesktop }
9711 { Ventura-Math csVenturaMath }
9712 { Microsoft-Publishing csMicrosoftPublishing }
9713 { Windows-31J csWindows31J }
9714 { GB2312 csGB2312 }
9715 { Big5 csBig5 }
9716 }
9718 proc tcl_encoding {enc} {
9719 global encoding_aliases
9720 set names [encoding names]
9725 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9728 }
9729 }
9734 # look through the aliases for one that tcl knows about
9740 }
9741 }
9743 }
9744 break
9745 }
9746 }
9749 }
9750 return {}
9751 }
9753 # First check that Tcl/Tk is recent enough
9754 if {[catch {package require Tk 8.4} err]} {
9755 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9756 Gitk requires at least Tcl/Tk 8.4."]
9757 exit 1
9758 }
9760 # defaults...
9761 set wrcomcmd "git diff-tree --stdin -p --pretty"
9763 set gitencoding {}
9764 catch {
9765 set gitencoding [exec git config --get i18n.commitencoding]
9766 }
9768 set gitencoding "utf-8"
9769 }
9773 }
9775 set mainfont {Helvetica 9}
9776 set textfont {Courier 9}
9777 set uifont {Helvetica 9 bold}
9778 set tabstop 8
9779 set findmergefiles 0
9780 set maxgraphpct 50
9781 set maxwidth 16
9782 set revlistorder 0
9783 set fastdate 0
9784 set uparrowlen 5
9785 set downarrowlen 5
9786 set mingaplen 100
9787 set cmitmode "patch"
9788 set wrapcomment "none"
9789 set showneartags 1
9790 set maxrefs 20
9791 set maxlinelen 200
9792 set showlocalchanges 1
9793 set limitdiffs 1
9794 set datetimeformat "%Y-%m-%d %H:%M:%S"
9795 set autoselect 1
9797 set extdifftool "meld"
9799 set colors {green red blue magenta darkgrey brown orange}
9800 set bgcolor white
9801 set fgcolor black
9802 set diffcolors {red "#00a000" blue}
9803 set diffcontext 3
9804 set ignorespace 0
9805 set selectbgcolor gray85
9807 set circlecolors {white blue gray blue blue}
9809 ## For msgcat loading, first locate the installation location.
9810 if { [info exists ::env(GITK_MSGSDIR)] } {
9811 ## Msgsdir was manually set in the environment.
9812 set gitk_msgsdir $::env(GITK_MSGSDIR)
9813 } else {
9814 ## Let's guess the prefix from argv0.
9818 unset gitk_prefix
9819 }
9821 ## Internationalization (i18n) through msgcat and gettext. See
9822 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9823 package require msgcat
9824 namespace import ::msgcat::mc
9825 ## And eventually load the actual message catalog
9828 catch {source ~/.gitk}
9830 font create optionfont -family sans-serif -size -12
9833 eval font create mainfont [fontflags mainfont]
9834 eval font create mainfontbold [fontflags mainfont 1]
9837 eval font create textfont [fontflags textfont]
9838 eval font create textfontbold [fontflags textfont 1]
9841 eval font create uifont [fontflags uifont]
9843 setoptions
9845 # check that we can find a .git directory somewhere...
9846 if {[catch {set gitdir [gitdir]}]} {
9847 show_error {} . [mc "Cannot find a git repository here."]
9848 exit 1
9849 }
9852 exit 1
9853 }
9855 set revtreeargs {}
9856 set cmdline_files {}
9857 set i 0
9858 set revtreeargscmd {}
9861 "" { }
9862 "--" {
9864 break
9865 }
9866 "--argscmd=*" {
9868 }
9869 default {
9871 }
9872 }
9873 incr i
9874 }
9877 # no -- on command line, but some arguments (other than --argscmd)
9878 if {[catch {
9883 # Unfortunately git rev-parse doesn't produce an error when
9884 # something is both a revision and a filename. To be consistent
9885 # with git log and git rev-list, check revtreeargs for filenames.
9888 show_error {} . [mc "Ambiguous argument '%s': both revision\
9890 exit 1
9891 }
9892 }
9893 } err]} {
9895 # so look for "fatal:".
9899 }
9901 exit 1
9902 }
9903 }
9905 set nullid "0000000000000000000000000000000000000000"
9906 set nullid2 "0000000000000000000000000000000000000001"
9907 set nullfile "/dev/null"
9911 set runq {}
9912 set history {}
9913 set historyindex 0
9914 set fh_serial 0
9915 set nhl_names {}
9916 set highlight_paths {}
9917 set findpattern {}
9918 set searchdirn -forwards
9919 set boldrows {}
9920 set boldnamerows {}
9921 set diffelide {0 0}
9922 set markingmatches 0
9923 set linkentercount 0
9924 set need_redisplay 0
9925 set nrows_drawn 0
9926 set firsttabstop 0
9928 set nextviewnum 1
9929 set curview 0
9930 set selectedview 0
9931 set selectedhlview [mc "None"]
9932 set highlight_related [mc "None"]
9933 set highlight_files {}
9934 set viewfiles(0) {}
9935 set viewperm(0) 0
9936 set viewargs(0) {}
9937 set viewargscmd(0) {}
9939 set selectedline {}
9940 set numcommits 0
9941 set loginstance 0
9942 set cmdlineok 0
9943 set stopped 0
9944 set stuffsaved 0
9945 set patchnum 0
9946 set lserial 0
9947 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9948 setcoords
9949 makewindow
9950 # wait for the window to become visible
9951 tkwait visibility .
9953 readrefs
9956 # create a view for the files/dirs specified on the command line
9957 set curview 1
9958 set selectedview 1
9959 set nextviewnum 2
9960 set viewname(1) [mc "Command line"]
9964 set viewperm(1) 0
9965 set vdatemode(1) 0
9966 addviewmenu 1
9967 .bar.view entryconf [mc "Edit view..."] -state normal
9968 .bar.view entryconf [mc "Delete view"] -state normal
9969 }
9971 if {[info exists permviews]} {
9974 incr nextviewnum
9981 }
9982 }
9983 getcommits {}