| blob | 3678de1959ee67e27b6b11c79485acfbe5c6f612 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq currunq
30 after idle dorunq
31 }
34 }
38 }
41 global runq currunq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq currunq
73 unset currunq
78 # script returns 1 if it wants to be readded
79 # file readers return 2 if they could do more straight away
83 }
86 }
89 }
91 after idle dorunq
92 }
93 }
96 global commfd leftover loginstance
102 }
105 global nr_unmerged
107 # find the list of unmerged files
114 exit 1
115 }
121 incr nr_unmerged
124 }
125 }
128 }
130 proc parseviewargs {n arglist} {
131 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
135 set glflags {}
136 set diffargs {}
137 set nextisval 0
138 set revargs {}
140 set allknown 1
141 set filtered 0
142 set i -1
144 incr i
147 set nextisval 0
148 continue
149 }
151 "-d" -
152 "--date-order" {
154 # remove from origargs in case we hit an unknown option
156 incr i -1
157 }
158 # These request or affect diff output, which we don't want.
159 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
168 # These cause our parsing of git log's output to fail, or else
169 # they're options we want to set ourselves, so ignore them.
177 }
178 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
185 # These mean that we get a subset of the commits
193 lappend glflags $arg
194 }
195 # This appears to be the only one that has a value as a
196 # separate word following it
200 lappend glflags $arg
201 }
204 lappend revargs $arg
205 }
207 lappend revargs $arg
208 }
211 # git rev-parse doesn't understand --merge
212 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
213 }
214 # Other flag arguments including -<n>
219 # a flag argument that we don't recognize;
220 # that means we can't optimize
222 }
223 lappend glflags $arg
224 }
225 # Non-flag arguments specify commits or ranges of commits
226 default {
228 lappend revargs --gitk-symmetric-diff-marker
229 }
230 lappend revargs $arg
231 }
232 }
233 }
240 }
243 global vposids vnegids
246 set revs HEAD
247 }
249 # we get stdout followed by stderr in $err
250 # for an unknown rev, git rev-parse echoes it and then errors out
263 }
266 }
267 break
268 }
269 lappend badrev $line
270 }
271 }
274 }
284 lappend ret $id
287 }
288 }
292 lappend ret $id
295 }
296 lappend pos $id
297 }
298 incr sdm -1
299 }
303 }
305 # Start off a git log process and arrange to read its output
307 global startmsecs commitidx viewcomplete curview
308 global tclencoding
309 global viewargs viewargscmd viewfiles vfilelimit
310 global showlocalchanges commitinterest
311 global viewactive viewinstances vmergeonly
312 global mainheadid
313 global vcanopt vflags vrevs vorigargs
317 # these are set this way for the error exits
320 varcinit $view
329 }
331 }
338 global nr_unmerged
345 }
347 }
348 }
355 }
359 }
367 }
372 }
376 }
382 }
385 global commfd leftover
388 catch {
395 }
396 }
398 nukefile $fd
401 }
403 proc stop_backends {} {
404 global commfd
407 stop_instance $inst
408 }
409 }
412 global viewinstances
415 stop_instance $inst
416 }
418 }
421 global pending_select mainheadid selectheadid
429 }
430 }
433 global canv curview need_redisplay viewactive
435 initlayout
437 reset_pending_select $selid
442 }
443 }
445 proc updatecommits {} {
446 global curview vcanopt vorigargs vfilelimit viewinstances
447 global viewactive viewcomplete tclencoding
448 global startmsecs showneartags showlocalchanges
449 global mainheadid pending_select
450 global isworktree
451 global varcid vposids vnegids vflags vrevs
455 rereadrefs
458 dohidelocalchanges
459 }
461 dodiffindex
462 }
463 }
470 return
471 }
472 # note: getting the delta when negative refs change is hard,
473 # and could require multiple git log invocations, so in that
474 # case we ask git log for all the commits (not just the delta)
478 # take out positive refs that we asked for before or
479 # that we have already seen
484 lappend newrevs $rev
485 incr npos
486 }
488 lappend $newrevs $rev
489 }
490 }
494 }
498 }
504 return
505 }
508 }
514 }
518 reset_pending_select {}
521 getallcommits
522 }
523 }
525 proc reloadcommits {} {
526 global curview viewcomplete selectedline currentid thickerline
527 global showneartags treediffs commitinterest cached_commitrow
528 global targetid
533 }
536 stop_rev_list $curview
537 }
538 resetvarcs $curview
543 readrefs
544 changedrefs
546 getallcommits
547 }
548 clear_display
552 setcanvscroll
553 getcommits $selid
555 }
557 # This makes a string representation of a positive integer which
558 # sorts as a string in numerical order
566 }
568 }
570 # Procedures used in reordering commits from git log (without
571 # --topo-order) into the order for display.
574 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
575 global vtokmod varcmod vrowmod varcix vlastins
589 }
592 global varcid varccommits parents children vseedcount ordertok
598 }
599 # some commits might have children but haven't been seen yet
602 }
605 }
608 }
610 }
612 # returns a list of the commits with no children
614 global vdownptr vleftptr varcstart
621 }
623 }
626 global varcid varctok parents children vdatemode
627 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
628 global commitdata commitinfo vseedcount varccommits vlastins
635 }
639 }
642 }
648 }
657 }
658 }
663 }
670 }
674 }
681 }
687 }
696 }
699 global varcid varcstart varccommits varctok
700 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
707 # "%" sorts before "0"...
717 }
727 }
728 }
731 global parents children varctok varcstart varccommits
732 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
741 lappend todo $a
746 }
747 }
748 }
749 incr ntot
756 }
757 }
759 }
766 }
772 }
781 }
782 }
787 }
789 continue
790 }
797 }
798 }
803 modify_arc $v $ka
804 }
806 modify_arc $v $b
807 }
814 }
817 }
820 }
829 }
834 }
841 }
845 }
847 }
848 }
853 }
854 }
856 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
857 }
859 # Fix up the graph after we have found out that in view $v,
860 # $p (a commit that we have already seen) is actually the parent
861 # of the last commit in arc $a.
863 global varcid varcstart varctok vupptr
867 splitvarc $p $v
869 }
870 # seeds always need to be renumbered
874 renumbervarc $pa $v
875 }
876 }
879 global cmitlisted children parents varcid varctok vtokmod
880 global varccommits ordertok commitidx numcommits curview
881 global targetid targetrow
883 readcommit $id
891 modify_arc $v $a
892 }
898 }
899 fix_reversal $p $a $v
903 setcanvscroll
906 incr targetrow
907 }
908 }
909 }
910 }
913 global varcid varccommits parents children cmitlisted
914 global commitidx varctok vtokmod targetid targetrow curview numcommits
921 return
922 }
929 # note we deliberately don't update varcstart($v) even if $i == 0
931 modify_arc $v $a $i
934 incr targetrow
935 }
936 }
937 setcanvscroll
938 drawvisible
939 }
942 global varcid varccommits parents children commitidx
943 global varctok vtokmod cmitlisted currentid selectedline
944 global targetid curview numcommits
949 return
950 }
956 return
957 }
967 }
968 modify_arc $v $a $i
970 unset currentid
972 }
975 }
976 setcanvscroll
977 drawvisible
978 }
981 global children nullid nullid2
986 }
987 }
989 }
992 global children nullid nullid2
999 }
1000 }
1002 }
1005 global varctok varcid
1009 }
1011 # This assumes that if lim is not given, the caller has checked that
1012 # arc a's token is less than $vtokmod($v)
1014 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1022 }
1023 }
1030 }
1035 }
1037 }
1039 undolayout $r
1040 }
1041 }
1044 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1045 global varcid vrownum varcorder varcix varccommits
1046 global vupptr vdownptr vleftptr varctok
1047 global displayorder parentlist curview cached_commitrow
1054 }
1056 }
1060 # go up the tree until we find something that has a row number,
1061 # or we get to a seed
1063 }
1078 }
1080 }
1084 # go down if possible
1087 # if not, go left, or go up until we can go left
1092 }
1094 }
1096 incr arcn
1101 }
1107 }
1108 }
1110 # Test whether view $v contains commit $id
1112 global varcid
1115 }
1117 # Return the row number for commit $id in the current view
1119 global varcid varccommits varcrow curview cached_commitrow
1120 global varctok vtokmod
1126 }
1129 update_arcrows $v
1130 }
1133 }
1138 }
1142 }
1144 # Returns 1 if a is on an earlier row than b, otherwise 0
1146 global varcid varctok curview
1152 }
1156 }
1158 }
1163 }
1175 }
1176 }
1178 }
1180 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1182 global vrownum curview commitidx displayorder parentlist
1183 global varccommits varcorder parents vrowmod varcrow
1184 global d_valid_start d_valid_end
1187 update_arcrows $curview
1188 }
1204 }
1206 lappend displayorder $id
1208 }
1212 lset displayorder $i $id
1214 incr i
1215 }
1216 }
1217 incr r $al
1218 }
1219 }
1222 global displayorder
1228 }
1230 }
1233 global varctok varccommits varcid parents children
1234 global cmitlisted commitidx commitinterest vtokmod
1243 # add p as a new commit
1244 incr missing_parents
1252 }
1255 modify_arc $v $b
1256 }
1262 }
1264 }
1265 }
1266 }
1270 }
1271 }
1272 }
1274 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1275 # Assumes we already have an arc for $rwid.
1277 global children parents varcid varctok vtokmod varccommits
1280 # make $rwid be $ch's parent in place of $id
1284 }
1286 # add $ch to $rwid's children and sort the list if necessary
1290 }
1291 # fix the graph after joining $id to $rwid
1293 fix_reversal $rwid $a $v
1294 # parentlist is wrong for the last element of arc $a
1295 # even if displayorder is right, hence the 3rd arg here
1297 }
1298 }
1301 global cmitlisted commitinterest leftover
1302 global commitidx commitdata vdatemode
1303 global parents children curview hlview
1304 global idpending ordertok
1305 global varccommits varcid varctok vtokmod vfilelimit
1308 # git log doesn't terminate the last commit with a null...
1311 }
1315 }
1316 global commfd viewcomplete viewactive viewname
1317 global viewinstances
1322 }
1323 # set it blocking so we wait for the process to terminate
1329 }
1332 bad arguments to git log."
1334 append err \
1335 " (Note: arguments to gitk are passed to git log\
1336 to allow selection of commits to be displayed.)"
1337 }
1340 }
1341 error_popup $err
1342 }
1345 # Check if we have seen any ids listed as parents that haven't
1346 # appeared in the list
1347 closevarcs $view
1348 notbusy $view
1349 }
1351 run chewcommits
1352 }
1354 }
1362 break
1363 }
1370 }
1383 }
1385 }
1390 break
1391 }
1392 }
1393 }
1398 }
1400 exit 1
1401 }
1408 # when doing path limiting, so work around that here
1409 # by working out the rewritten parent with git rev-list
1410 # and if we already know about it, using the rewritten
1411 # parent as a substitute parent for $id's children.
1415 }]} {
1417 # use $rwid in place of $id
1418 rewrite_commit $view $id $rwid
1419 continue
1420 }
1421 }
1422 }
1428 }
1433 }
1445 }
1446 }
1448 # new arc
1450 }
1452 modify_arc $view $a
1453 }
1458 }
1469 }
1471 fix_reversal $p $a $view
1472 }
1473 }
1474 incr i
1475 }
1480 }
1482 }
1484 }
1486 global numcommits hlview
1490 run chewcommits
1491 }
1493 # we never actually get here...
1494 run vhighlightmore
1495 }
1498 }
1499 }
1501 }
1503 proc chewcommits {} {
1504 global curview hlview viewcomplete
1505 global pending_select
1507 layoutmore
1509 global commitidx varctok
1510 global numcommits startmsecs
1513 update
1514 reset_pending_select {}
1521 }
1522 }
1524 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1525 #puts "overall $ms ms for $numcommits commits"
1526 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1529 }
1530 notbusy layout
1531 }
1533 }
1538 }
1541 global commitinfo cdate
1552 # should never happen...
1554 }
1565 }
1566 }
1568 # take the first non-blank line of the comment as the headline
1573 }
1578 }
1580 # git log indents the comment by 4 spaces;
1581 # if we got this via git cat-file, add the indentation
1584 append newcomment " "
1585 append newcomment $line
1587 }
1589 }
1592 }
1595 }
1598 global commitdata commitinfo
1603 readcommit $id
1606 }
1607 }
1609 }
1611 proc readrefs {} {
1612 global tagids idtags headids idheads tagobjid
1613 global otherrefids idotherrefs mainhead mainheadid
1614 global selecthead selectheadid
1618 }
1630 }
1636 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1637 # which is what we want since the former is the commit ID
1643 }
1649 }
1650 }
1654 catch {
1659 }
1660 }
1663 catch {
1665 }
1666 }
1667 }
1669 # skip over fake commits
1670 proc first_real_row {} {
1671 global nullid nullid2 numcommits
1676 break
1677 }
1678 }
1680 }
1682 # update things for a head moved to a child of its previous location
1684 global headids idheads
1689 }
1691 # update things when a head has been removed
1693 global headids idheads
1701 }
1702 }
1704 }
1713 tkwait window $top
1714 }
1716 proc error_popup msg {
1717 set w .error
1718 toplevel $w
1719 wm transient $w .
1720 show_error $w $w $msg
1721 }
1723 proc confirm_popup msg {
1724 global confirm_ok
1726 set w .confirm
1727 toplevel $w
1728 wm transient $w .
1736 tkwait window $w
1738 }
1740 proc setoptions {} {
1742 option add *Panedwindow.sashRelief raised startupFile
1743 option add *Button.font uifont startupFile
1744 option add *Checkbutton.font uifont startupFile
1745 option add *Radiobutton.font uifont startupFile
1746 option add *Menu.font uifont startupFile
1747 option add *Menubutton.font uifont startupFile
1748 option add *Label.font uifont startupFile
1749 option add *Message.font uifont startupFile
1750 option add *Entry.font uifont startupFile
1751 }
1753 # Make a menu and submenus.
1754 # m is the window name for the menu, items is the list of menu items to add.
1755 # Each item is a list {mc label type description options...}
1756 # mc is ignored; it's so we can put mc there to alert xgettext
1757 # label is the string that appears in the menu
1758 # type is cascade, command or radiobutton (should add checkbutton)
1759 # description depends on type; it's the sublist for cascade, the
1760 # command to invoke for command, or {variable value} for radiobutton
1762 menu $m
1773 }
1774 }
1779 }
1782 }
1786 }
1787 }
1791 }
1792 }
1793 }
1795 # translate string and remove ampersands
1798 }
1800 proc makewindow {} {
1801 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1802 global tabstop
1803 global findtype findtypemenu findloc findstring fstring geometry
1804 global entries sha1entry sha1string sha1but
1805 global diffcontextstring diffcontext
1806 global ignorespace
1807 global maincursor textcursor curtextcursor
1808 global rowctxmenu fakerowmenu mergemax wrapcomment
1809 global highlight_files gdttype
1810 global searchstring sstring
1811 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1812 global headctxmenu progresscanv progressitem progresscoords statusw
1813 global fprogitem fprogcoord lastprogupdate progupdatepending
1814 global rprogitem rprogcoord rownumsel numcommits
1815 global have_tk85
1817 # The "mc" arguments here are purely so that xgettext
1818 # sees the following string as needing to be translated
1819 makemenu .bar {
1826 }}
1829 }}
1836 }}
1840 }}
1841 }
1842 . configure -menu .bar
1844 # the gui has upper and lower half, parts of a paned window.
1845 panedwindow .ctop -orient vertical
1847 # possibly use assumed geometry
1855 }
1857 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1859 frame .tf.histframe
1862 # create three canvases
1863 set cscroll .tf.histframe.csb
1864 set canv .tf.histframe.pwclist.canv
1865 canvas $canv \
1869 .tf.histframe.pwclist add $canv
1870 set canv2 .tf.histframe.pwclist.canv2
1871 canvas $canv2 \
1874 .tf.histframe.pwclist add $canv2
1875 set canv3 .tf.histframe.pwclist.canv3
1876 canvas $canv3 \
1879 .tf.histframe.pwclist add $canv3
1883 # a scroll bar to rule them
1887 lappend bglist $canv $canv2 $canv3
1890 # we have two button bars at bottom of top frame. Bar 1
1891 frame .tf.bar
1894 set sha1entry .tf.bar.sha1
1896 set sha1but .tf.bar.sha1label
1900 pack .tf.bar.sha1label -side left
1902 trace add variable sha1string write sha1change
1906 #define left_width 16
1907 #define left_height 16
1908 static unsigned char left_bits[] = {
1912 }
1914 #define right_width 16
1915 #define right_height 16
1916 static unsigned char right_bits[] = {
1920 }
1935 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1936 -side left
1937 global selectedline
1938 trace add variable selectedline write selectedline_change
1940 # Status label and progress bar
1941 set statusw .tf.bar.status
1945 set progresscanv .tf.bar.progress
1958 # build up the bottom bar of upper window
1963 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1970 trace add variable gdttype write gdttype_change
1974 set fstring .tf.lbar.findstring
1975 lappend entries $fstring
1977 trace add variable findstring write find_change
1981 trace add variable findtype write findcom_change
1985 trace add variable findloc write find_change
1986 pack .tf.lbar.findloc -side right
1987 pack .tf.lbar.findtype -side right
1990 # Finish putting the upper half of the viewer together
1994 .ctop add .tf
1998 # now build up the bottom
1999 panedwindow .pwbottom -orient horizontal
2001 # lower left, a text box over search bar, scroll bar to the right
2002 # if we know window height, then that will set the lower text height, otherwise
2003 # we set lower text height which will drive window height
2008 }
2009 frame .bleft.top
2010 frame .bleft.mid
2011 frame .bleft.bottom
2015 set sstring .bleft.top.sstring
2017 lappend entries $sstring
2018 trace add variable searchstring write incrsearch
2031 -textvariable diffcontextstring
2033 trace add variable diffcontextstring write diffcontextchange
2034 lappend entries .bleft.mid.diffcontext
2035 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2039 set ctext .bleft.bottom.ctext
2046 }
2053 grid .bleft.bottom.sbhorizontal -sticky ew
2058 lappend bglist $ctext
2059 lappend fglist $ctext
2088 .pwbottom add .bleft
2091 # lower right
2092 frame .bright
2093 frame .bright.mode
2100 set cflist .bright.cfiles
2102 text $cflist \
2105 -font mainfont \
2110 lappend bglist $cflist
2111 lappend fglist $cflist
2115 $cflist tag configure highlight \
2119 .pwbottom add .bright
2120 .ctop add .pwbottom
2122 # restore window width & height if known
2127 }
2130 }
2132 }
2133 }
2136 set M1B M1
2138 set M1B Control
2139 }
2144 #bindall <B1-Motion> {selcanvline %W %x %y}
2154 allcanvs yview scroll $delta units
2155 }
2156 }
2157 }
2179 bindkey p "selnextline -1"
2180 bindkey n "selnextline 1"
2181 bindkey z "goback"
2182 bindkey x "goforw"
2183 bindkey i "selnextline -1"
2184 bindkey k "selnextline 1"
2185 bindkey j "goback"
2186 bindkey l "goforw"
2187 bindkey b prevfile
2193 bindkey f nextfile
2205 wm protocol . WM_DELETE_WINDOW doquit
2214 global ctxbut
2217 set maincursor [. cget -cursor]
2221 set rowctxmenu .rowctxmenu
2223 {mc "Diff this -> selected" command {diffvssel 0}}
2224 {mc "Diff selected -> this" command {diffvssel 1}}
2225 {mc "Make patch" command mkpatch}
2226 {mc "Create tag" command mktag}
2227 {mc "Write commit to file" command writecommit}
2228 {mc "Create new branch" command mkbranch}
2229 {mc "Cherry-pick this commit" command cherrypick}
2230 {mc "Reset HEAD branch to here" command resethead}
2231 }
2234 set fakerowmenu .fakerowmenu
2236 {mc "Diff this -> selected" command {diffvssel 0}}
2237 {mc "Diff selected -> this" command {diffvssel 1}}
2238 {mc "Make patch" command mkpatch}
2239 }
2242 set headctxmenu .headctxmenu
2244 {mc "Check out this branch" command cobranch}
2245 {mc "Remove this branch" command rmbranch}
2246 }
2249 global flist_menu
2250 set flist_menu .flistctxmenu
2252 {mc "Highlight this too" command {flist_hl 0}}
2253 {mc "Highlight this only" command {flist_hl 1}}
2254 {mc "External diff" command {external_diff}}
2255 {mc "Blame parent commit" command {external_blame 1}}
2256 }
2258 }
2260 # Windows sends all mouse wheel events to the current focused window, not
2261 # the one where the mouse hovers, so bind those events here and redirect
2262 # to the correct window
2263 proc windows_mousewheel_redirector {W X Y D} {
2264 global canv canv2 canv3
2270 } else {
2271 catch {
2273 }
2274 }
2275 }
2276 }
2278 # Update row number label when selectedline changes
2279 proc selectedline_change {n1 n2 op} {
2280 global selectedline rownumsel
2283 set rownumsel {}
2284 } else {
2286 }
2287 }
2289 # mouse-2 makes all windows scan vertically, but only the one
2290 # the cursor is in scans horizontally
2291 proc canvscan {op w x y} {
2292 global canv canv2 canv3
2296 } else {
2298 }
2299 }
2300 }
2302 proc scrollcanv {cscroll f0 f1} {
2304 drawvisible
2305 flushhighlights
2306 }
2308 # when we make a key binding for the toplevel, make sure
2309 # it doesn't get triggered when that key is pressed in the
2310 # find string entry widget.
2311 proc bindkey {ev script} {
2312 global entries
2316 set escript [bind Entry <Key>]
2317 }
2320 }
2321 }
2323 # set the focus back to the toplevel for any click outside
2324 # the entry widgets
2325 proc click {w} {
2326 global ctext entries
2329 }
2330 focus .
2331 }
2333 # Adjust the progress bar for a change in requested extent or canvas size
2334 proc adjustprogress {} {
2335 global progresscanv progressitem progresscoords
2336 global fprogitem fprogcoord lastprogupdate progupdatepending
2337 global rprogitem rprogcoord
2346 set now [clock clicks -milliseconds]
2348 set progupdatepending 0
2349 update
2351 set progupdatepending 1
2353 }
2354 }
2356 proc doprogupdate {} {
2357 global lastprogupdate progupdatepending
2360 set progupdatepending 0
2361 set lastprogupdate [clock clicks -milliseconds]
2362 update
2363 }
2364 }
2366 proc savestuff {w} {
2367 global canv canv2 canv3 mainfont textfont uifont tabstop
2368 global stuffsaved findmergefiles maxgraphpct
2369 global maxwidth showneartags showlocalchanges
2370 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2371 global cmitmode wrapcomment datetimeformat limitdiffs
2372 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2373 global autoselect extdifftool perfile_attrs
2376 if {![winfo viewable .]} return
2377 catch {
2378 set f [open "~/.gitk-new" w]
2414 }
2415 }
2418 file rename -force "~/.gitk-new" "~/.gitk"
2419 }
2420 set stuffsaved 1
2421 }
2423 proc resizeclistpanes {win w} {
2424 global oldwidth
2431 } else {
2436 set sash0 30
2437 }
2440 }
2445 }
2446 }
2447 }
2450 }
2452 }
2454 proc resizecdetpanes {win w} {
2455 global oldwidth
2460 } else {
2464 set sash0 45
2465 }
2468 }
2469 }
2471 }
2473 }
2475 proc allcanvs args {
2476 global canv canv2 canv3
2480 }
2482 proc bindall {event action} {
2483 global canv canv2 canv3
2487 }
2489 proc about {} {
2490 global uifont
2491 set w .about
2494 return
2495 }
2499 Gitk - a commit viewer for git
2501 Copyright © 2005-2008 Paul Mackerras
2503 Use and redistribute under the terms of the GNU General Public License"] \
2504 -justify center -aspect 400 -border 2 -bg white -relief groove
2511 }
2513 proc keys {} {
2514 set w .keys
2517 return
2518 }
2519 if {[tk windowingsystem] eq {aqua}} {
2520 set M1T Cmd
2521 } else {
2522 set M1T Ctrl
2523 }
2527 [mc "Gitk key bindings:"]
2530 [mc "<Home> Move to first commit"]
2531 [mc "<End> Move to last commit"]
2532 [mc "<Up>, p, i Move up one commit"]
2533 [mc "<Down>, n, k Move down one commit"]
2534 [mc "<Left>, z, j Go back in history list"]
2535 [mc "<Right>, x, l Go forward in history list"]
2536 [mc "<PageUp> Move up one page in commit list"]
2537 [mc "<PageDown> Move down one page in commit list"]
2544 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2545 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2546 [mc "<Delete>, b Scroll diff view up one page"]
2547 [mc "<Backspace> Scroll diff view up one page"]
2548 [mc "<Space> Scroll diff view down one page"]
2549 [mc "u Scroll diff view up 18 lines"]
2550 [mc "d Scroll diff view down 18 lines"]
2553 [mc "<Return> Move to next find hit"]
2554 [mc "/ Move to next find hit, or redo find"]
2555 [mc "? Move to previous find hit"]
2556 [mc "f Scroll diff view to next file"]
2563 [mc "<F5> Update"]
2564 " \
2565 -justify left -bg white -border 2 -relief groove
2572 }
2574 # Procedures for manipulating the file list window at the
2575 # bottom right of the overall window.
2577 proc treeview {w l openlevs} {
2578 global treecontents treediropen treeheight treeparent treeindex
2580 set ix 0
2581 set treeindex() 0
2582 set lev 0
2583 set prefix {}
2584 set prefixend -1
2585 set prefendstack {}
2586 set htstack {}
2587 set ht 0
2588 set treecontents() {}
2595 }
2602 incr lev -1
2603 }
2607 set ht 0
2619 set ht 1
2624 set str "\n"
2632 }
2633 incr lev
2634 }
2637 incr ht
2638 set str "\n"
2642 }
2644 }
2645 }
2653 }
2655 }
2657 proc linetoelt {l} {
2658 global treeheight treecontents
2660 set y 2
2661 set prefix {}
2662 while {1} {
2666 }
2667 set n 1
2672 incr y
2673 break
2674 }
2675 }
2677 }
2678 }
2679 }
2681 proc highlight_tree {y prefix} {
2682 global treeheight treecontents cflist
2688 }
2689 incr y
2692 }
2693 }
2695 }
2697 proc treeclosedir {w dir} {
2698 global treediropen treeheight treeparent treeindex
2710 }
2711 }
2713 proc treeopendir {w dir} {
2714 global treediropen treeheight treeparent treecontents treeindex
2721 set lev 0
2722 set str "\n"
2725 incr lev
2726 append str "\t"
2728 }
2743 } else {
2746 }
2747 }
2760 }
2762 }
2763 }
2765 proc treeclick {w x y} {
2766 global treediropen cmitmode ctext cflist cflist_top
2769 if {![info exists cflist_top]} return
2776 return
2777 }
2783 } else {
2785 }
2786 }
2788 proc setfilelist {id} {
2789 global treefilelist cflist
2792 }
2794 image create bitmap tri-rt -background black -foreground blue -data {
2795 #define tri-rt_width 13
2796 #define tri-rt_height 13
2797 static unsigned char tri-rt_bits[] = {
2798 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2799 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2800 0x00, 0x00};
2801 } -maskdata {
2802 #define tri-rt-mask_width 13
2803 #define tri-rt-mask_height 13
2804 static unsigned char tri-rt-mask_bits[] = {
2805 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2806 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2807 0x08, 0x00};
2808 }
2809 image create bitmap tri-dn -background black -foreground blue -data {
2810 #define tri-dn_width 13
2811 #define tri-dn_height 13
2812 static unsigned char tri-dn_bits[] = {
2813 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2814 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2815 0x00, 0x00};
2816 } -maskdata {
2817 #define tri-dn-mask_width 13
2818 #define tri-dn-mask_height 13
2819 static unsigned char tri-dn-mask_bits[] = {
2820 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2821 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2822 0x00, 0x00};
2823 }
2825 image create bitmap reficon-T -background black -foreground yellow -data {
2826 #define tagicon_width 13
2827 #define tagicon_height 9
2828 static unsigned char tagicon_bits[] = {
2829 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2830 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2831 } -maskdata {
2832 #define tagicon-mask_width 13
2833 #define tagicon-mask_height 9
2834 static unsigned char tagicon-mask_bits[] = {
2835 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2836 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2837 }
2838 set rectdata {
2839 #define headicon_width 13
2840 #define headicon_height 9
2841 static unsigned char headicon_bits[] = {
2842 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2843 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2844 }
2845 set rectmask {
2846 #define headicon-mask_width 13
2847 #define headicon-mask_height 9
2848 static unsigned char headicon-mask_bits[] = {
2849 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2850 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2851 }
2852 image create bitmap reficon-H -background black -foreground green \
2854 image create bitmap reficon-o -background black -foreground "#ddddff" \
2857 proc init_flist {first} {
2858 global cflist cflist_top difffilestart
2864 set cflist_top 1
2866 } else {
2867 catch {unset cflist_top}
2868 }
2870 set difffilestart {}
2871 }
2873 proc highlight_tag {f} {
2874 global highlight_paths
2878 return "bold"
2879 }
2880 }
2881 return {}
2882 }
2884 proc highlight_filelist {} {
2885 global cmitmode cflist
2894 }
2895 }
2896 } else {
2897 highlight_tree 2 {}
2898 }
2900 }
2902 proc unhighlight_filelist {} {
2903 global cflist
2908 }
2910 proc add_flist {fl} {
2911 global cflist
2917 }
2919 }
2921 proc sel_flist {w x y} {
2922 global ctext difffilestart cflist cflist_top cmitmode
2925 if {![info exists cflist_top]} return
2932 } else {
2934 }
2935 }
2937 proc pop_flist_menu {w X Y x y} {
2938 global ctext cflist cmitmode flist_menu flist_menu_file
2939 global treediffs diffids
2941 stopfinding
2947 } else {
2949 }
2951 set xdiffstate "normal"
2953 set xdiffstate "disabled"
2954 }
2955 # Disable "External diff" item in tree mode
2958 }
2960 proc flist_hl {only} {
2961 global flist_menu_file findstring gdttype
2966 } else {
2968 }
2969 set gdttype [mc "touching paths:"]
2970 }
2972 proc save_file_from_commit {filename output what} {
2973 global nullfile
2978 }
2980 return {}
2981 }
2983 }
2985 proc external_diff_get_one_file {diffid filename diffdir} {
2986 global nullid nullid2 nullfile
2987 global gitdir
2993 }
2995 }
2999 }
3003 }
3005 proc external_diff {} {
3006 global gitktmpdir nullid nullid2
3007 global flist_menu_file
3008 global diffids
3009 global diffnum
3010 global gitdir extdifftool
3013 # no reference commit given
3016 # diffing working copy with index
3019 # diffing index with HEAD
3020 set diffidfrom "HEAD"
3021 } else {
3022 # use first parent commit
3023 global parentlist selectedline
3025 }
3026 } else {
3029 }
3031 # make sure that several diffs wont collide
3032 if {![info exists gitktmpdir]} {
3034 [format ".gitk-tmp.%s" [pid]]]
3037 unset gitktmpdir
3038 return
3039 }
3040 set diffnum 0
3041 }
3042 incr diffnum
3046 return
3047 }
3049 # gather files to diff
3059 } else {
3062 }
3063 }
3064 }
3066 proc external_blame {parent_idx} {
3067 global flist_menu_file
3068 global nullid nullid2
3069 global parentlist selectedline currentid
3073 } else {
3075 }
3078 error_popup [mc "No such commit"]
3079 return
3080 }
3084 }
3085 }
3088 proc delete_at_eof {f dir} {
3093 }
3095 return 0
3096 }
3097 return 1
3098 }
3100 # Functions for adding and removing shell-type quoting
3102 proc shellquote {str} {
3105 }
3108 }
3111 }
3113 }
3115 proc shellarglist {l} {
3116 set str {}
3119 append str " "
3120 }
3122 }
3124 }
3126 proc shelldequote {str} {
3127 set ret {}
3128 set used -1
3129 while {1} {
3130 incr used
3134 break
3135 }
3141 }
3143 incr used
3147 error "unmatched single-quote"
3148 }
3151 continue
3152 }
3155 error "trailing backslash"
3156 }
3158 continue
3159 }
3160 # here ch == "\""
3161 while {1} {
3163 error "unmatched double-quote"
3164 }
3170 }
3172 incr used
3174 incr used
3175 }
3176 }
3178 }
3180 proc shellsplit {str} {
3181 set l {}
3182 while {1} {
3190 }
3192 }
3194 # Code to implement multiple views
3196 proc newview {ishighlight} {
3197 global nextviewnum newviewname newviewperm newishighlight
3198 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3201 set top .gitkview
3204 return
3205 }
3211 }
3213 proc editview {} {
3214 global curview
3215 global viewname viewperm newviewname newviewperm
3216 global viewargs newviewargs viewargscmd newviewargscmd
3221 return
3222 }
3228 }
3230 proc vieweditor {top n title} {
3231 global newviewname newviewperm viewfiles bgcolor
3242 -text [mc "Commits to include (arguments to git log):"]
3249 -text [mc "Command to generate more commits to include:"]
3252 -background white
3256 -text [mc "Enter files and directories to include, one per line:"]
3263 }
3266 }
3276 }
3278 proc doviewmenu {m first cmd op argv} {
3283 break
3284 }
3285 }
3286 }
3288 proc allviewmenus {n op args} {
3289 # global viewhlmenu
3293 }
3295 proc newviewok {top n} {
3296 global nextviewnum newviewperm newviewname newishighlight
3297 global viewname viewfiles viewperm selectedview curview
3298 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3300 if {[catch {
3302 } err]} {
3306 return
3307 }
3308 set files {}
3313 }
3314 }
3316 # creating a new view
3317 incr nextviewnum
3326 } else {
3328 }
3329 } else {
3330 # editing an existing view
3338 }
3345 run reloadcommits
3346 }
3347 }
3348 }
3350 }
3352 proc delview {} {
3353 global curview viewperm hlview selectedhlview
3357 set selectedhlview [mc "None"]
3358 unset hlview
3359 }
3362 showview 0
3363 }
3365 proc addviewmenu {n} {
3366 global viewname viewhlmenu
3372 }
3374 proc showview {n} {
3375 global curview cached_commitrow ordertok
3376 global displayorder parentlist rowidlist rowisopt rowfinal
3377 global colormap rowtextx nextcolor canvxmax
3378 global numcommits viewcomplete
3379 global selectedline currentid canv canvy0
3380 global treediffs
3381 global pending_select mainheadid
3382 global commitidx
3383 global selectedview
3384 global hlview selectedhlview commitinterest
3387 set selid {}
3398 }
3399 } elseif {[info exists pending_select]} {
3401 unset pending_select
3402 }
3403 unselectline
3404 normalline
3405 catch {unset treediffs}
3406 clear_display
3408 unset hlview
3409 set selectedhlview [mc "None"]
3410 }
3411 catch {unset commitinterest}
3412 catch {unset cached_commitrow}
3413 catch {unset ordertok}
3420 run refill_reflist
3423 return
3424 }
3426 set displayorder {}
3427 set parentlist {}
3428 set rowidlist {}
3429 set rowisopt {}
3430 set rowfinal {}
3433 catch {unset colormap}
3434 catch {unset rowtextx}
3435 set nextcolor 0
3438 set row 0
3439 setcanvscroll
3440 set yf 0
3441 set row {}
3444 # try to get the selected row in the same position on the screen
3448 set ytop 0
3449 }
3451 }
3453 drawvisible
3458 } else {
3459 reset_pending_select {}
3463 } else {
3464 set row [first_real_row]
3467 }
3468 }
3469 }
3472 show_status [mc "Reading commits..."]
3473 }
3475 show_status [mc "No commits selected"]
3476 }
3477 }
3479 # Stuff relating to the highlighting facility
3481 proc ishighlighted {id} {
3482 global vhighlights fhighlights nhighlights rhighlights
3486 }
3489 }
3492 }
3495 }
3496 return 0
3497 }
3499 proc bolden {row font} {
3500 global canv linehtag selectedline boldrows
3507 -outline {{}} -tags secsel \
3510 }
3511 }
3513 proc bolden_name {row font} {
3514 global canv2 linentag selectedline boldnamerows
3521 -outline {{}} -tags secsel \
3524 }
3525 }
3527 proc unbolden {} {
3528 global boldrows
3530 set stillbold {}
3534 } else {
3536 }
3537 }
3539 }
3541 proc addvhighlight {n} {
3542 global hlview viewcomplete curview vhl_done commitidx
3544 if {[info exists hlview]} {
3545 delvhighlight
3546 }
3550 }
3553 drawvisible
3554 }
3555 }
3557 proc delvhighlight {} {
3558 global hlview vhighlights
3560 if {![info exists hlview]} return
3561 unset hlview
3562 catch {unset vhighlights}
3563 unbolden
3564 }
3566 proc vhighlightmore {} {
3567 global hlview vhl_done commitidx vhighlights curview
3570 set vr [visiblerows]
3580 }
3582 }
3583 }
3584 }
3586 return 0
3587 }
3589 proc askvhighlight {row id} {
3590 global hlview vhighlights iddrawn
3595 }
3597 } else {
3599 }
3600 }
3602 proc hfiles_change {} {
3603 global highlight_files filehighlight fhighlights fh_serial
3604 global highlight_paths gdttype
3606 if {[info exists filehighlight]} {
3607 # delete previous highlights
3609 unset filehighlight
3610 catch {unset fhighlights}
3611 unbolden
3612 unhighlight_filelist
3613 }
3614 set highlight_paths {}
3616 incr fh_serial
3619 }
3620 }
3622 proc gdttype_change {name ix op} {
3623 global gdttype highlight_files findstring findpattern
3625 stopfinding
3629 set highlight_files {}
3630 hfiles_change
3631 }
3632 findcom_change
3633 } else {
3635 set findpattern {}
3636 findcom_change
3637 }
3639 hfiles_change
3640 }
3641 drawvisible
3642 }
3643 # enable/disable findtype/findloc menus too
3644 }
3646 proc find_change {name ix op} {
3647 global gdttype findstring highlight_files
3649 stopfinding
3651 findcom_change
3652 } else {
3655 hfiles_change
3656 }
3657 }
3658 drawvisible
3659 }
3661 proc findcom_change args {
3662 global nhighlights boldnamerows
3663 global findpattern findtype findstring gdttype
3665 stopfinding
3666 # delete previous highlights, if any
3669 }
3670 set boldnamerows {}
3671 catch {unset nhighlights}
3672 unbolden
3673 unmarkmatches
3675 set findpattern {}
3678 } else {
3679 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3682 }
3683 }
3685 proc makepatterns {l} {
3686 set ret {}
3691 } else {
3694 }
3695 }
3697 }
3699 proc do_file_hl {serial} {
3700 global highlight_files filehighlight highlight_paths gdttype fhl_list
3705 highlight_filelist
3709 } else {
3710 # must be "containing:", i.e. we're searching commit info
3711 return
3712 }
3717 set fhl_list {}
3718 drawvisible
3719 flushhighlights
3720 }
3722 proc flushhighlights {} {
3723 global filehighlight fhl_list
3725 if {[info exists filehighlight]} {
3726 lappend fhl_list {}
3729 }
3730 }
3732 proc askfilehighlight {row id} {
3733 global filehighlight fhighlights fhl_list
3738 }
3740 proc readfhighlight {} {
3741 global filehighlight fhighlights curview iddrawn
3742 global fhl_list find_dirn
3744 if {![info exists filehighlight]} {
3745 return 0
3746 }
3747 set nr 0
3755 }
3762 }
3764 }
3766 # strange...
3767 puts "oops, git diff-tree died"
3769 unset filehighlight
3770 return 0
3771 }
3772 if {[info exists find_dirn]} {
3773 run findmore
3774 }
3775 return 1
3776 }
3778 proc doesmatch {f} {
3779 global findtype findpattern
3785 } else {
3787 }
3788 }
3790 proc askfindhighlight {row id} {
3791 global nhighlights commitinfo iddrawn
3792 global findloc
3793 global markingmatches
3797 }
3799 set isbold 0
3800 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3805 set isbold 2
3806 break
3807 }
3808 set isbold 1
3809 }
3810 }
3816 }
3817 }
3820 }
3821 }
3823 }
3825 proc markrowmatches {row id} {
3826 global canv canv2 linehtag linentag commitinfo findloc
3837 }
3838 }
3844 }
3845 }
3846 }
3848 proc vrel_change {name ix op} {
3849 global highlight_related
3851 rhighlight_none
3853 run drawvisible
3854 }
3855 }
3857 # prepare for testing whether commits are descendents or ancestors of a
3858 proc rhighlight_sel {a} {
3859 global descendent desc_todo ancestor anc_todo
3860 global highlight_related
3862 catch {unset descendent}
3864 catch {unset ancestor}
3867 rhighlight_none
3868 run drawvisible
3869 }
3870 }
3872 proc rhighlight_none {} {
3873 global rhighlights
3875 catch {unset rhighlights}
3876 unbolden
3877 }
3879 proc is_descendent {a} {
3880 global curview children descendent desc_todo
3885 set leftover {}
3886 set done 0
3891 continue
3892 }
3898 set done 1
3899 }
3900 }
3901 }
3904 return
3905 }
3906 }
3909 }
3911 proc is_ancestor {a} {
3912 global curview parents ancestor anc_todo
3917 set leftover {}
3918 set done 0
3923 continue
3924 }
3930 set done 1
3931 }
3932 }
3933 }
3936 return
3937 }
3938 }
3941 }
3943 proc askrelhighlight {row id} {
3944 global descendent highlight_related iddrawn rhighlights
3945 global selectedline ancestor
3948 set isbold 0
3953 }
3955 set isbold 1
3956 }
3961 }
3963 set isbold 1
3964 }
3965 }
3969 }
3970 }
3972 }
3974 # Graph layout functions
3976 proc shortids {ids} {
3977 set res {}
3983 } else {
3985 }
3986 }
3988 }
3990 proc ntimes {n o} {
3991 set ret {}
3996 }
3998 }
4000 }
4002 proc ordertoken {id} {
4003 global ordertok curview varcid varcstart varctok curview parents children
4004 global nullid nullid2
4008 }
4010 set todo {}
4011 while {1} {
4015 } else {
4017 }
4020 break
4021 }
4024 # it's a root
4026 break
4027 }
4030 } else {
4034 }
4036 }
4037 }
4042 }
4045 }
4047 # Work out where id should go in idlist so that order-token
4048 # values increase from left to right
4049 proc idcol {idlist id {i 0}} {
4052 set i 0
4053 }
4057 }
4059 incr i
4060 } else {
4064 }
4065 }
4067 }
4069 proc initlayout {} {
4070 global rowidlist rowisopt rowfinal displayorder parentlist
4071 global numcommits canvxmax canv
4072 global nextcolor
4073 global colormap rowtextx
4075 set numcommits 0
4076 set displayorder {}
4077 set parentlist {}
4078 set nextcolor 0
4079 set rowidlist {}
4080 set rowisopt {}
4081 set rowfinal {}
4083 catch {unset colormap}
4084 catch {unset rowtextx}
4085 setcanvscroll
4086 }
4088 proc setcanvscroll {} {
4089 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4090 global lastscrollset lastscrollrows
4096 set lastscrollset [clock clicks -milliseconds]
4098 }
4100 proc visiblerows {} {
4101 global canv numcommits linespc
4109 set r0 0
4110 }
4115 }
4117 }
4119 proc layoutmore {} {
4120 global commitidx viewcomplete curview
4121 global numcommits pending_select curview
4122 global lastscrollset lastscrollrows commitinterest
4126 setcanvscroll
4127 }
4128 if {[info exists pending_select] &&
4130 update
4132 }
4133 drawvisible
4134 }
4136 proc doshowlocalchanges {} {
4137 global curview mainheadid
4141 dodiffindex
4142 } else {
4144 }
4145 }
4147 proc dohidelocalchanges {} {
4148 global nullid nullid2 lserial curview
4152 }
4155 }
4156 incr lserial
4157 }
4159 # spawn off a process to do git diff-index --cached HEAD
4160 proc dodiffindex {} {
4161 global lserial showlocalchanges
4162 global isworktree
4165 incr lserial
4166 set fd [open "|git diff-index --cached HEAD" r]
4170 }
4172 proc readdiffindex {fd serial inst} {
4173 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4175 set isdiff 1
4178 return 1
4179 }
4180 set isdiff 0
4181 }
4182 # we only need to see one line and we don't really care what it says...
4186 return 0
4187 }
4189 # now see if there are any local changes not checked in to the index
4190 set fd [open "|git diff-files" r]
4196 # add the line for the changes in the index to the graph
4197 set hl [mc "Local changes checked in to index but not committed"]
4202 }
4206 }
4207 return 0
4208 }
4210 proc readdifffiles {fd serial inst} {
4211 global mainheadid nullid nullid2 curview
4212 global commitinfo commitdata lserial
4214 set isdiff 1
4217 return 1
4218 }
4219 set isdiff 0
4220 }
4221 # we only need to see one line and we don't really care what it says...
4225 return 0
4226 }
4229 # add the line for the local diff to the graph
4230 set hl [mc "Local uncommitted changes, not checked in to index"]
4235 } else {
4237 }
4241 }
4242 return 0
4243 }
4245 proc nextuse {id row} {
4246 global curview children
4251 return -1
4252 }
4255 }
4256 }
4257 }
4260 }
4261 return -1
4262 }
4264 proc prevuse {id row} {
4265 global curview children
4267 set ret -1
4273 }
4274 }
4275 }
4277 }
4279 proc make_idlist {row} {
4280 global displayorder parentlist uparrowlen downarrowlen mingaplen
4281 global commitidx curview children
4285 set r 0
4286 }
4289 set ra 0
4290 }
4294 }
4296 set ids {}
4305 }
4306 }
4307 }
4315 }
4316 }
4317 }
4325 }
4326 }
4327 incr r
4333 }
4334 }
4335 }
4336 set idlist {}
4339 }
4341 }
4343 proc rowsequal {a b} {
4346 }
4349 }
4351 }
4353 proc makeupline {id row rend col} {
4354 global rowidlist uparrowlen downarrowlen mingaplen
4360 }
4363 }
4370 }
4371 }
4372 }
4374 proc layoutrows {row endrow} {
4375 global rowidlist rowisopt rowfinal displayorder
4376 global uparrowlen downarrowlen maxwidth mingaplen
4377 global children parentlist
4378 global commitidx viewcomplete curview
4381 set idlist {}
4387 }
4388 }
4390 }
4395 set final 1
4396 } else {
4404 # if not the first child, we have to insert a line going up
4407 }
4408 }
4409 }
4419 }
4420 }
4421 }
4428 }
4429 }
4439 }
4440 }
4448 }
4449 }
4450 }
4451 }
4452 }
4456 set final 0
4457 }
4461 lappend rowisopt 0
4467 }
4469 } else {
4476 }
4477 }
4479 }
4481 proc changedrow {row} {
4482 global displayorder iddrawn rowisopt need_redisplay
4491 }
4492 }
4493 }
4496 set need_redisplay 1
4497 }
4498 }
4500 proc insert_pad {row col npad} {
4501 global rowidlist
4510 }
4513 }
4515 proc optimize_rows {row col endrow} {
4516 global rowidlist rowisopt displayorder curview children
4519 set row 1
4520 }
4523 set haspad 0
4532 } else {
4533 set pprevidlist {}
4534 }
4535 set x0 -1
4536 set xm -1
4541 set haspad 1
4542 continue
4543 }
4547 set isarrow 0
4548 set z0 {}
4553 }
4554 }
4559 set isarrow 1
4560 }
4561 }
4564 set isarrow 1
4565 }
4566 # Looking at lines from this row to the previous row,
4567 # make them go straight up if they end in an arrow on
4568 # the previous row; otherwise make them go straight up
4569 # or at 45 degrees.
4571 # Line currently goes left too much;
4572 # insert pads in the previous row, then optimize it
4577 }
4585 }
4587 # Line currently goes right too much;
4588 # insert pads in this line
4594 set haspad 1
4595 }
4602 }
4603 }
4604 # avoid lines jigging left then immediately right
4607 incr x0
4610 }
4611 }
4613 # Find the first column that doesn't have a line going right
4619 # check if this is the link to the first child
4622 # it is, work out offset to child
4624 }
4625 }
4627 }
4628 # Insert a pad at that column as long as it has a line and
4629 # isn't the last column
4634 }
4635 }
4636 }
4637 }
4639 proc xc {row col} {
4640 global canvx0 linespc
4642 }
4644 proc yc {row} {
4645 global canvy0 linespc
4647 }
4649 proc linewidth {id} {
4650 global thickerline lthickness
4655 }
4657 }
4659 proc rowranges {id} {
4660 global curview children uparrowlen downarrowlen
4661 global rowidlist
4665 return {}
4666 }
4667 set ret {}
4672 if {![info exists prev]} {
4674 } else {
4676 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4677 }
4678 # see if the line extends the whole way from prevrow to row
4682 # it doesn't, see where it ends
4687 } else {
4690 incr r -1
4691 }
4693 # see where it starts up again
4698 } else {
4701 incr r
4702 }
4704 }
4705 }
4708 }
4711 }
4713 }
4715 proc drawlineseg {id row endrow arrowlow} {
4716 global rowidlist displayorder iddrawn linesegs
4717 global canv colormap linespc curview maxlinelen parentlist
4721 set arrowhigh 1
4722 while {1} {
4725 incr le -1
4726 break
4727 }
4731 set arrowhigh 0
4732 break
4733 }
4738 set arrowhigh 0
4739 }
4740 break
4741 }
4742 incr le
4743 }
4746 }
4748 set lines {}
4749 set i 0
4750 set joinhigh 0
4757 set joinhigh 1
4758 }
4759 break
4760 }
4761 incr i
4762 }
4763 }
4764 set joinlow 0
4769 set joinlow 1
4770 }
4771 }
4784 }
4785 } else {
4787 }
4795 set arrowlow 0
4796 }
4797 }
4805 }
4807 }
4810 # join parent line to first child
4821 } else {
4823 }
4831 }
4833 }
4835 } else {
4839 }
4847 } else {
4851 }
4853 }
4854 } else {
4860 }
4864 } else {
4865 # coalesce two pieces
4870 }
4874 }
4875 }
4879 }
4881 proc drawparentlinks {id row} {
4882 global rowidlist canv colormap curview parentlist
4883 global idpos linespc
4896 # rmx = right-most X coord used
4897 set rmx 0
4902 continue
4903 }
4907 }
4910 # drawlineseg will do this one for us
4911 continue
4912 }
4914 # should handle duplicated parents here...
4917 # if attaching to a vertical segment, draw a smaller
4918 # slant for visual distinctness
4922 } else {
4924 }
4926 # segment slants towards us already
4928 } else {
4933 }
4935 }
4936 } else {
4938 }
4943 }
4947 }
4948 }
4950 proc drawlines {id} {
4951 global canv
4954 }
4956 proc drawcmittext {id row col} {
4957 global linespc canv canv2 canv3 fgcolor curview
4958 global cmitlisted commitinfo rowidlist parentlist
4959 global rowtextx idpos idtags idheads idotherrefs
4960 global linehtag linentag linedtag selectedline
4961 global canvxmax boldrows boldnamerows fgcolor
4962 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
4964 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4967 set ofill red
4969 set ofill green
4971 set ofill yellow
4972 } else {
4974 }
4983 # triangle pointing left for left-side commits
4989 } else {
4990 # triangle pointing right for right-side commits
4996 }
5008 }
5009 }
5010 }
5017 }
5022 set font mainfont
5023 set nfont mainfont
5027 set font mainfontbold
5030 set nfont mainfontbold
5031 }
5032 }
5042 }
5046 setcanvscroll
5047 }
5048 }
5050 proc drawcmitrow {row} {
5051 global displayorder rowidlist nrows_drawn
5052 global iddrawn markingmatches
5053 global commitinfo numcommits
5054 global filehighlight fhighlights findpattern nhighlights
5055 global hlview vhighlights
5056 global highlight_related rhighlights
5063 }
5066 }
5069 }
5072 }
5077 return
5078 }
5081 }
5085 incr nrows_drawn
5086 }
5089 }
5090 }
5092 proc drawcommits {row {endrow {}}} {
5093 global numcommits iddrawn displayorder curview need_redisplay
5094 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5097 set row 0
5098 }
5101 }
5104 }
5108 set rl1 0
5109 }
5112 set ro1 0
5113 }
5117 }
5122 }
5124 }
5125 }
5128 }
5131 clear_display
5132 drawvisible
5133 }
5135 # make the lines join to already-drawn rows either side
5139 }
5144 }
5159 # see if this is the first child of any of its parents
5162 # make this line extend up to the child
5164 }
5165 }
5166 } else {
5168 }
5169 }
5170 }
5171 }
5173 proc undolayout {row} {
5174 global uparrowlen mingaplen downarrowlen
5175 global rowidlist rowisopt rowfinal need_redisplay
5179 set r 0
5180 }
5182 incr r -1
5186 set need_redisplay 1
5187 run drawvisible
5188 }
5189 }
5191 proc drawvisible {} {
5192 global canv linespc curview vrowmod selectedline targetrow targetid
5193 global need_redisplay cscroll numcommits
5203 if {[info exists targetid]} {
5207 # Fix up the scrollregion and change the scrolling position
5208 # now that our target row has moved.
5211 setcanvscroll
5219 set need_redisplay 1
5220 }
5221 } else {
5222 unset targetid
5223 }
5224 }
5230 }
5234 } elseif {[info exists targetid]} {
5236 }
5237 if {[info exists targetrow]} {
5240 }
5242 }
5244 }
5246 proc clear_display {} {
5247 global iddrawn linesegs need_redisplay nrows_drawn
5248 global vhighlights fhighlights nhighlights rhighlights
5249 global linehtag linentag linedtag boldrows boldnamerows
5251 allcanvs delete all
5252 catch {unset iddrawn}
5253 catch {unset linesegs}
5254 catch {unset linehtag}
5255 catch {unset linentag}
5256 catch {unset linedtag}
5257 set boldrows {}
5258 set boldnamerows {}
5259 catch {unset vhighlights}
5260 catch {unset fhighlights}
5261 catch {unset nhighlights}
5262 catch {unset rhighlights}
5263 set need_redisplay 0
5264 set nrows_drawn 0
5265 }
5267 proc findcrossings {id} {
5268 global rowidlist parentlist numcommits displayorder
5270 set cross {}
5271 set ccross {}
5275 }
5294 }
5295 }
5296 }
5297 }
5298 }
5300 }
5302 proc assigncolor {id} {
5303 global colormap colors nextcolor
5304 global parents children children curview
5310 } else {
5311 set kids {}
5312 }
5318 return
5319 }
5320 }
5321 set badcolors {}
5322 set origbad {}
5325 # delimiter between corner crossings and other crossings
5328 }
5332 }
5333 }
5336 }
5343 }
5348 }
5349 }
5350 }
5353 }
5354 }
5358 set nextcolor 0
5359 }
5361 }
5363 }
5365 proc bindline {t id} {
5366 global canv
5372 }
5374 proc drawtags {id x xt y1} {
5375 global idtags idheads idotherrefs mainhead
5376 global linespc lthickness
5377 global canv rowtextx curview fgcolor bgcolor ctxbut
5379 set marks {}
5380 set ntags 0
5381 set nheads 0
5385 }
5389 }
5392 }
5395 }
5400 set xvals {}
5401 set wvals {}
5402 set i -1
5404 incr i
5407 } else {
5409 }
5413 }
5420 set font mainfont
5421 if {[incr ntags -1] >= 0} {
5422 # draw a tag
5428 } else {
5429 # draw a head or other ref
5430 if {[incr nheads -1] >= 0} {
5431 set col green
5433 set font mainfontbold
5434 }
5435 } else {
5436 set col "#ddddff"
5437 }
5448 }
5449 }
5456 }
5457 }
5459 }
5461 proc xcoord {i level ln} {
5462 global canvx0 xspc1 xspc2
5469 }
5471 }
5473 proc show_status {msg} {
5474 global canv fgcolor
5476 clear_display
5479 }
5481 # Don't change the text pane cursor if it is currently the hand cursor,
5482 # showing that we are over a sha1 ID link.
5483 proc settextcursor {c} {
5484 global ctext curtextcursor
5488 }
5490 }
5492 proc nowbusy {what {name {}}} {
5493 global isbusy busyname statusw
5495 if {[array names isbusy] eq {}} {
5496 . config -cursor watch
5497 settextcursor watch
5498 }
5503 }
5504 }
5506 proc notbusy {what} {
5507 global isbusy maincursor textcursor busyname statusw
5509 catch {
5514 }
5515 }
5516 if {[array names isbusy] eq {}} {
5519 }
5520 }
5522 proc findmatches {f} {
5523 global findtype findstring
5526 } else {
5531 }
5532 set matches {}
5533 set i 0
5538 }
5539 }
5541 }
5543 proc dofind {{dirn 1} {wrap 1}} {
5544 global findstring findstartline findcurline selectedline numcommits
5545 global gdttype filehighlight fh_serial find_dirn findallowwrap
5547 if {[info exists find_dirn]} {
5549 stopfinding
5550 }
5551 focus .
5555 } else {
5557 }
5559 nowbusy finding [mc "Searching"]
5563 }
5566 run findmore
5567 }
5569 proc stopfinding {} {
5570 global find_dirn findcurline fprogcoord
5572 if {[info exists find_dirn]} {
5573 unset find_dirn
5574 unset findcurline
5575 notbusy finding
5576 set fprogcoord 0
5577 adjustprogress
5578 }
5579 }
5581 proc findmore {} {
5582 global commitdata commitinfo numcommits findpattern findloc
5583 global findstartline findcurline findallowwrap
5584 global find_dirn gdttype fhighlights fprogcoord
5585 global curview varcorder vrownum varccommits vrowmod
5587 if {![info exists find_dirn]} {
5588 return 0
5589 }
5590 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5592 set moretodo 0
5594 incr l
5596 set l 0
5597 }
5600 } else {
5603 }
5604 } else {
5607 }
5608 incr l -1
5611 } else {
5612 set lim -1
5614 }
5615 }
5618 set n 500
5619 set moretodo 1
5620 }
5623 }
5624 set found 0
5625 set domore 1
5639 }
5641 # shouldn't happen unless git log doesn't give all the commits...
5644 continue
5645 }
5648 }
5653 set found 1
5654 break
5655 }
5656 }
5658 }
5659 } else {
5667 }
5672 }
5675 break
5676 }
5679 set domore 0
5681 }
5682 }
5683 }
5684 }
5686 unset findcurline
5687 unset find_dirn
5688 notbusy finding
5689 set fprogcoord 0
5690 adjustprogress
5693 } else {
5694 bell
5695 }
5696 return 0
5697 }
5699 flushhighlights
5700 } else {
5702 }
5706 }
5708 adjustprogress
5710 }
5712 proc findselectline {l} {
5713 global findloc commentend ctext findcurline markingmatches gdttype
5715 set markingmatches 1
5719 # highlight the matches in the comments
5726 }
5727 }
5728 drawvisible
5729 }
5731 # mark the bits of a headline or author that match a find string
5732 proc markmatches {canv l str tag matches font row} {
5733 global selectedline
5751 }
5752 }
5753 }
5755 proc unmarkmatches {} {
5756 global markingmatches
5758 allcanvs delete matches
5759 set markingmatches 0
5760 stopfinding
5761 }
5763 proc selcanvline {w x y} {
5764 global canv canvy0 ctext linespc
5765 global rowtextx
5772 set l 0
5773 }
5778 }
5779 unmarkmatches
5781 }
5783 proc commit_descriptor {p} {
5784 global commitinfo
5787 }
5788 set l "..."
5791 }
5793 }
5795 # append some text to the ctext widget, and make any SHA1 ID
5796 # that we know about be a clickable link.
5797 proc appendwithlinks {text tags} {
5798 global ctext linknum curview pendinglinks
5807 incr e
5811 incr linknum
5812 }
5813 }
5815 proc setlink {id lk} {
5816 global curview ctext pendinglinks commitinterest
5823 } else {
5826 }
5827 }
5829 proc makelink {id} {
5830 global pendinglinks
5835 }
5837 }
5839 proc linkcursor {w inc} {
5840 global linkentercount curtextcursor
5844 } else {
5847 set linkentercount 0
5848 }
5849 }
5850 }
5852 proc viewnextline {dir} {
5853 global canv linespc
5861 set newtop 0
5864 }
5866 }
5868 # add a list of tag or branch names at position pos
5869 # returns the number of names inserted
5870 proc appendrefs {pos ids var} {
5874 return 0
5875 }
5878 set tags {}
5882 }
5883 }
5886 } else {
5888 set sep {}
5892 incr linknum
5897 set sep ", "
5898 }
5899 }
5902 }
5904 # called when we have finished computing the nearby tags
5905 proc dispneartags {delay} {
5906 global selectedline currentid showneartags tagphase
5909 after cancel dispnexttag
5911 after 200 dispnexttag
5912 set tagphase -1
5913 } else {
5914 after idle dispnexttag
5915 set tagphase 0
5916 }
5917 }
5919 proc dispnexttag {} {
5920 global selectedline currentid showneartags tagphase ctext
5924 0 {
5928 }
5929 }
5930 1 {
5934 }
5935 }
5936 2 {
5941 # turn "Branch" into "Branches"
5945 }
5946 }
5947 }
5948 }
5949 if {[incr tagphase] <= 2} {
5950 after idle dispnexttag
5951 }
5952 }
5954 proc make_secsel {l} {
5955 global linehtag linentag linedtag canv canv2 canv3
5970 }
5972 proc selectline {l isnew} {
5973 global canv ctext commitinfo selectedline
5974 global canvy0 linespc parents children curview
5975 global currentid sha1entry
5976 global commentend idtags linknum
5977 global mergemax numcommits pending_select
5978 global cmitmode showneartags allcommits
5979 global targetrow targetid lastscrollrows
5980 global autoselect
5982 catch {unset pending_select}
5984 normalline
5985 unsel_reflist
5986 stopfinding
5994 setcanvscroll
5995 }
6009 } else {
6013 }
6014 }
6018 } else {
6022 }
6023 }
6024 }
6027 set newtop 0
6028 }
6030 drawvisible
6031 }
6037 }
6044 }
6048 clear_ctext
6049 set linknum 0
6052 }
6062 }
6064 }
6066 set headers {}
6069 set np 0
6072 set tag mmax
6073 } else {
6075 }
6078 incr np
6079 }
6080 } else {
6083 }
6084 }
6088 }
6090 # make anything that looks like a SHA1 ID be a clickable link
6093 if {![info exists allcommits]} {
6094 getallcommits
6095 }
6106 dispneartags 1
6107 }
6112 }
6119 init_flist [mc "Comments"]
6124 } else {
6126 }
6127 }
6129 proc selfirstline {} {
6130 unmarkmatches
6131 selectline 0 1
6132 }
6134 proc sellastline {} {
6135 global numcommits
6136 unmarkmatches
6139 }
6141 proc selnextline {dir} {
6142 global selectedline
6143 focus .
6146 unmarkmatches
6148 }
6150 proc selnextpage {dir} {
6151 global canv linespc selectedline numcommits
6155 set lpp 1
6156 }
6158 drawvisible
6162 set l 0
6165 }
6166 unmarkmatches
6168 }
6170 proc unselectline {} {
6171 global selectedline currentid
6173 set selectedline {}
6174 catch {unset currentid}
6175 allcanvs delete secsel
6176 rhighlight_none
6177 }
6179 proc reselectline {} {
6180 global selectedline
6184 }
6185 }
6187 proc addtohistory {cmd} {
6188 global history historyindex curview
6193 return
6194 }
6198 } else {
6200 }
6201 incr historyindex
6203 .tf.bar.leftbut conf -state normal
6204 } else {
6205 .tf.bar.leftbut conf -state disabled
6206 }
6207 .tf.bar.rightbut conf -state disabled
6208 }
6210 proc godo {elt} {
6211 global curview
6217 }
6219 }
6221 proc goback {} {
6222 global history historyindex
6223 focus .
6226 incr historyindex -1
6228 .tf.bar.rightbut conf -state normal
6229 }
6231 .tf.bar.leftbut conf -state disabled
6232 }
6233 }
6235 proc goforw {} {
6236 global history historyindex
6237 focus .
6241 incr historyindex
6243 .tf.bar.leftbut conf -state normal
6244 }
6246 .tf.bar.rightbut conf -state disabled
6247 }
6248 }
6250 proc gettree {id} {
6251 global treefilelist treeidlist diffids diffmergeid treepending
6252 global nullid nullid2
6255 catch {unset diffmergeid}
6257 if {![info exists treepending]} {
6259 set cmd [list | git ls-files]
6261 set cmd [list | git ls-files --stage -t]
6262 } else {
6264 }
6266 return
6267 }
6273 }
6274 } else {
6276 }
6277 }
6279 proc gettreeline {gtf id} {
6280 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6282 set nl 0
6286 } else {
6294 }
6297 }
6300 }
6303 }
6305 unset treepending
6307 if {![info exists diffmergeid]} {
6309 }
6312 } else {
6314 }
6315 return 0
6316 }
6318 proc showfile {f} {
6319 global treefilelist treeidlist diffids nullid nullid2
6320 global ctext commentend
6325 return
6326 }
6330 return
6331 }
6332 } else {
6336 return
6337 }
6338 }
6347 settabs 0
6348 }
6350 proc getblobline {bf id} {
6351 global diffids cmitmode ctext
6355 return 0
6356 }
6358 set nl 0
6361 }
6363 # delete last newline
6366 return 0
6367 }
6370 }
6372 proc mergediff {id} {
6373 global diffmergeid mdifffd
6374 global diffids
6375 global parents
6376 global diffcontext
6377 global diffencoding
6378 global limitdiffs vfilelimit curview
6382 # this doesn't seem to actually affect anything...
6386 }
6389 return
6390 }
6394 set diffencoding [get_path_encoding {}]
6397 }
6399 proc getmergediffline {mdf id np} {
6400 global diffmergeid ctext cflist mergemax
6401 global difffilestart mdifffd
6402 global diffencoding
6405 set nr 0
6410 return 0
6411 }
6413 # start of a new file
6427 # do nothing
6428 } else {
6430 # parse the prefix - one ' ', '-' or '+' for each parent
6431 set spaces {}
6432 set minuses {}
6433 set pluses {}
6434 set isbad 0
6443 } else {
6444 set isbad 1
6445 break
6446 }
6447 }
6448 set tags {}
6449 set num {}
6455 lappend tags mresult
6457 }
6460 set num "max"
6461 }
6463 }
6465 }
6466 }
6470 return 0
6471 }
6473 }
6475 proc startdiff {ids} {
6476 global treediffs diffids treepending diffmergeid nullid nullid2
6478 settabs 1
6480 catch {unset diffmergeid}
6484 if {![info exists treepending]} {
6486 }
6487 } else {
6489 }
6490 }
6492 proc path_filter {filter name} {
6497 return 1
6498 }
6499 } else {
6503 return 1
6504 }
6505 }
6506 }
6507 return 0
6508 }
6510 proc addtocflist {ids} {
6511 global treediffs
6515 }
6517 proc diffcmd {ids flags} {
6518 global nullid nullid2
6524 # comparing working directory with some specific revision
6528 } else {
6530 }
6531 } else {
6532 # comparing working directory with index
6535 lappend cmd -R
6536 }
6537 }
6541 # comparing index with specific revision
6544 } else {
6546 }
6547 } else {
6548 # comparing index with HEAD
6549 lappend cmd HEAD
6550 }
6551 } else {
6553 }
6555 }
6557 proc gettreediffs {ids} {
6558 global treediff treepending
6563 set treediff {}
6566 }
6568 proc gettreediffline {gdtf ids} {
6569 global treediff treediffs treepending diffids diffmergeid
6570 global cmitmode vfilelimit curview limitdiffs perfile_attrs
6572 set nr 0
6573 set sublist {}
6574 set max 1000
6576 # cache_gitattr is slow, and even slower on win32 where we
6577 # have to invoke it for only about 30 paths at a time
6578 set max 500
6579 if {[tk windowingsystem] == "win32"} {
6580 set max 120
6581 }
6582 }
6589 }
6593 }
6594 }
6597 }
6600 }
6603 set flist {}
6607 }
6608 }
6610 } else {
6612 }
6613 unset treepending
6617 if {![info exists diffmergeid]} {
6619 }
6620 } else {
6622 }
6623 return 0
6624 }
6626 # empty string or positive integer
6627 proc diffcontextvalidate {v} {
6629 }
6631 proc diffcontextchange {n1 n2 op} {
6632 global diffcontextstring diffcontext
6637 reselectline
6638 }
6639 }
6640 }
6642 proc changeignorespace {} {
6643 reselectline
6644 }
6646 proc getblobdiffs {ids} {
6647 global blobdifffd diffids env
6648 global diffinhdr treediffs
6649 global diffcontext
6650 global ignorespace
6651 global limitdiffs vfilelimit curview
6652 global diffencoding
6656 append cmd " -w"
6657 }
6660 }
6663 return
6664 }
6665 set diffinhdr 0
6666 set diffencoding [get_path_encoding {}]
6670 }
6672 proc setinlist {var i val} {
6677 }
6680 } else {
6682 }
6683 }
6685 proc makediffhdr {fname ids} {
6686 global ctext curdiffstart treediffs
6691 }
6695 }
6697 proc getblobdiffline {bdf ids} {
6698 global diffids blobdifffd ctext curdiffstart
6699 global diffnexthead diffnextnote difffilestart
6700 global diffinhdr treediffs
6701 global diffencoding
6703 set nr 0
6708 return 0
6709 }
6711 # trim off "diff --git "
6713 set diffinhdr 1
6714 # start of a new file
6718 # If the name hasn't changed the length will be odd,
6719 # the middle char will be a space, and the two bits either
6720 # side will be a/name and b/name, or "a/name" and "b/name".
6721 # If the name has changed we'll get "rename from" and
6722 # "rename to" or "copy from" and "copy to" lines following this,
6723 # and we'll use them to get the filenames.
6724 # This complexity is necessary because spaces in the filename(s)
6725 # don't get escaped.
6731 continue
6732 }
6733 # unescape if quoted and chop off the a/ from the front
6736 } else {
6738 }
6743 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6747 set diffinhdr 0
6754 }
6759 }
6765 }
6770 # do nothing
6771 continue
6773 set diffinhdr 0
6774 continue
6775 }
6778 } else {
6786 } else {
6787 # "\ No newline at end of file",
6788 # or something else we don't recognize
6790 }
6791 }
6792 }
6796 return 0
6797 }
6799 }
6801 proc changediffdisp {} {
6802 global ctext diffelide
6806 }
6808 proc highlightfile {loc cline} {
6809 global ctext cflist cflist_top
6816 }
6818 proc prevfile {} {
6819 global difffilestart ctext cmitmode
6822 set prev 0.0
6823 set prevline 1
6828 return
6829 }
6831 incr prevline
6832 }
6834 }
6836 proc nextfile {} {
6837 global difffilestart ctext cmitmode
6841 set line 1
6843 incr line
6846 return
6847 }
6848 }
6849 }
6851 proc clear_ctext {{first 1.0}} {
6852 global ctext smarktop smarkbot
6853 global pendinglinks
6858 }
6861 }
6864 catch {unset pendinglinks}
6865 }
6866 }
6868 proc settabs {{firstab {}}} {
6869 global firsttabstop tabstop ctext have_tk85
6873 }
6874 set w [font measure textfont "0"]
6880 } else {
6882 }
6883 }
6885 proc incrsearch {name ix op} {
6886 global ctext searchstring searchdirn
6890 # no anchor set, use start of selection, or of visible area
6896 } else {
6898 }
6899 }
6904 }
6905 searchmarkvisible 1
6906 }
6907 }
6909 proc dosearch {} {
6910 global sstring ctext searchstring searchdirn
6914 set searchdirn -forwards
6920 set start "@0,0"
6921 }
6925 bell
6926 return
6927 }
6932 }
6933 }
6935 proc dosearchback {} {
6936 global sstring ctext searchstring searchdirn
6940 set searchdirn -backwards
6947 }
6951 bell
6952 return
6953 }
6958 }
6959 }
6961 proc searchmark {first last} {
6962 global ctext searchstring
6965 while {1} {
6970 }
6971 }
6973 proc searchmarkvisible {doall} {
6974 global ctext smarktop smarkbot
6979 # no overlap with previous
6983 } else {
6987 }
6991 }
6992 }
6993 }
6995 proc scrolltext {f0 f1} {
6996 global searchstring
7000 searchmarkvisible 0
7001 }
7002 }
7004 proc setcoords {} {
7005 global linespc charspc canvx0 canvy0
7006 global xspc1 xspc2 lthickness
7008 set linespc [font metrics mainfont -linespace]
7009 set charspc [font measure mainfont "m"]
7015 }
7017 proc redisplay {} {
7018 global canv
7019 global selectedline
7024 clear_display
7025 setcanvscroll
7027 drawvisible
7031 }
7032 }
7034 proc parsefont {f n} {
7035 global fontattr
7040 set s 10
7043 }
7049 "normal" -
7051 "roman" -
7053 }
7054 }
7055 }
7057 proc fontflags {f {isbold 0}} {
7058 global fontattr
7063 }
7065 proc fontname {f} {
7066 global fontattr
7070 lappend n "bold"
7071 }
7073 lappend n "italic"
7074 }
7076 }
7078 proc incrfont {inc} {
7079 global mainfont textfont ctext canv cflist showrefstop
7080 global stopped entries fontattr
7082 unmarkmatches
7086 set s 1
7087 }
7091 set mainfont [fontname mainfont]
7095 set s 1
7096 }
7100 set textfont [fontname textfont]
7101 setcoords
7102 settabs
7103 redisplay
7104 }
7106 proc clearsha1 {} {
7107 global sha1entry sha1string
7110 }
7111 }
7113 proc sha1change {n1 n2 op} {
7114 global sha1string currentid sha1but
7117 set state disabled
7118 } else {
7119 set state normal
7120 }
7124 } else {
7126 }
7127 }
7129 proc gotocommit {} {
7130 global sha1string tagids headids curview varcid
7138 } else {
7145 return
7146 }
7148 }
7149 }
7150 }
7153 return
7154 }
7157 } else {
7159 }
7161 }
7163 proc lineenter {x y id} {
7164 global hoverx hovery hoverid hovertimer
7165 global commitinfo canv
7171 if {[info exists hovertimer]} {
7173 }
7174 set hovertimer [after 500 linehover]
7176 }
7178 proc linemotion {x y id} {
7179 global hoverx hovery hoverid hovertimer
7184 if {[info exists hovertimer]} {
7186 }
7187 set hovertimer [after 500 linehover]
7188 }
7189 }
7191 proc lineleave {id} {
7192 global hoverid hovertimer canv
7196 if {[info exists hovertimer]} {
7198 unset hovertimer
7199 }
7200 unset hoverid
7201 }
7202 }
7204 proc linehover {} {
7205 global hoverx hovery hoverid hovertimer
7206 global canv linespc lthickness
7207 global commitinfo
7220 -fill \#ffff80 -outline black -width 1 -tags hover]
7223 -font mainfont]
7225 }
7227 proc clickisonarrow {id y} {
7228 global lthickness
7237 }
7238 }
7239 return {}
7240 }
7242 proc arrowjump {id n y} {
7243 global canv
7245 # 1 <-> 2, 3 <-> 4, etc...
7255 set yfrac 0
7256 }
7258 }
7260 proc lineclick {x y id isnew} {
7261 global ctext commitinfo children canv thickerline curview
7264 unmarkmatches
7265 unselectline
7266 normalline
7268 # draw this line thicker than normal
7276 }
7280 return
7281 }
7285 }
7286 # fill the details pane with info about this line
7288 clear_ctext
7289 settabs 0
7301 set i 0
7303 incr i
7313 }
7314 }
7316 init_flist {}
7317 }
7319 proc normalline {} {
7320 global thickerline
7321 if {[info exists thickerline]} {
7323 unset thickerline
7325 }
7326 }
7328 proc selbyid {id} {
7329 global curview
7332 }
7333 }
7335 proc mstime {} {
7336 global startmstime
7337 if {![info exists startmstime]} {
7338 set startmstime [clock clicks -milliseconds]
7339 }
7341 }
7343 proc rowmenu {x y id} {
7344 global rowctxmenu selectedline rowmenuid curview
7345 global nullid nullid2 fakerowmenu mainhead
7347 stopfinding
7350 set state disabled
7351 } else {
7352 set state normal
7353 }
7358 } else {
7360 }
7361 } else {
7363 }
7368 }
7370 proc diffvssel {dirn} {
7371 global rowmenuid selectedline
7377 } else {
7380 }
7383 }
7385 proc doseldiff {oldid newid} {
7386 global ctext
7387 global commitinfo
7390 clear_ctext
7391 init_flist [mc "Top"]
7406 }
7408 proc mkpatch {} {
7409 global rowmenuid currentid commitinfo patchtop patchnum
7411 if {![info exists currentid]} return
7416 set top .patch
7445 incr patchnum
7455 }
7457 proc mkpatchrev {} {
7458 global patchtop
7464 foreach e [list fromsha1 fromhead tosha1 tohead] \
7470 }
7471 }
7473 proc mkpatchgo {} {
7474 global patchtop nullid nullid2
7480 # trim off the initial "|"
7485 }
7487 unset patchtop
7488 }
7490 proc mkpatchcan {} {
7491 global patchtop
7494 unset patchtop
7495 }
7497 proc mktag {} {
7498 global rowmenuid mktagtop commitinfo
7500 set top .maketag
7526 }
7528 proc domktag {} {
7529 global mktagtop env tagids idtags
7534 error_popup [mc "No tag name specified"]
7535 return
7536 }
7539 return
7540 }
7541 if {[catch {
7543 } err]} {
7545 return
7546 }
7552 dispneartags 0
7553 run refill_reflist
7554 }
7556 proc redrawtags {id} {
7557 global canv linehtag idpos currentid curview cmitlisted
7558 global canvxmax iddrawn circleitem mainheadid circlecolors
7564 set ofill yellow
7565 } else {
7567 }
7577 setcanvscroll
7578 }
7581 }
7582 }
7584 proc mktagcan {} {
7585 global mktagtop
7588 unset mktagtop
7589 }
7591 proc mktaggo {} {
7592 domktag
7593 mktagcan
7594 }
7596 proc writecommit {} {
7597 global rowmenuid wrcomtop commitinfo wrcomcmd
7599 set top .writecommit
7629 }
7631 proc wrcomgo {} {
7632 global wrcomtop
7639 }
7641 unset wrcomtop
7642 }
7644 proc wrcomcan {} {
7645 global wrcomtop
7648 unset wrcomtop
7649 }
7651 proc mkbranch {} {
7652 global rowmenuid mkbrtop
7654 set top .makebranch
7676 }
7678 proc mkbrgo {top} {
7679 global headids idheads
7684 error_popup [mc "Please specify a name for the new branch"]
7685 return
7686 }
7688 nowbusy newbranch
7689 update
7690 if {[catch {
7692 } err]} {
7693 notbusy newbranch
7695 } else {
7699 notbusy newbranch
7701 dispneartags 0
7702 run refill_reflist
7703 }
7704 }
7706 proc cherrypick {} {
7707 global rowmenuid curview
7708 global mainhead mainheadid
7710 set oldhead [exec git rev-parse HEAD]
7713 set ok [confirm_popup [mc "Commit %s is already\
7714 included in branch %s -- really re-apply it?" \
7717 }
7718 nowbusy cherrypick [mc "Cherry-picking"]
7719 update
7720 # Unfortunately git-cherry-pick writes stuff to stderr even when
7721 # no error occurs, and exec takes that as an indication of error...
7723 notbusy cherrypick
7725 return
7726 }
7727 set newhead [exec git rev-parse HEAD]
7729 notbusy cherrypick
7730 error_popup [mc "No changes committed"]
7731 return
7732 }
7739 }
7744 }
7745 notbusy cherrypick
7746 }
7748 proc resethead {} {
7749 global mainhead rowmenuid confirm_ok resettype
7751 set confirm_ok 0
7752 set w ".confirmreset"
7758 -justify center -aspect 1000
7763 set resettype mixed
7765 -text [mc "Soft: Leave working tree and index untouched"]
7768 -text [mc "Mixed: Leave working tree untouched, reset index"]
7771 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7781 if {[catch {set fd [open \
7784 } else {
7785 dohidelocalchanges
7787 nowbusy reset [mc "Resetting"]
7789 }
7790 }
7792 proc readresetstat {fd} {
7793 global mainhead mainheadid showlocalchanges rprogcoord
7798 adjustprogress
7799 }
7800 return 1
7801 }
7802 set rprogcoord 0
7803 adjustprogress
7804 notbusy reset
7807 }
7809 set newhead [exec git rev-parse HEAD]
7816 }
7818 doshowlocalchanges
7819 }
7820 return 0
7821 }
7823 # context menu for a head
7824 proc headmenu {x y id head} {
7825 global headmenuid headmenuhead headctxmenu mainhead
7827 stopfinding
7830 set state normal
7832 set state disabled
7833 }
7837 }
7839 proc cobranch {} {
7840 global headmenuid headmenuhead headids
7841 global showlocalchanges mainheadid
7843 # check the tree is clean first??
7844 nowbusy checkout [mc "Checking out"]
7845 update
7846 dohidelocalchanges
7847 if {[catch {
7849 } err]} {
7850 notbusy checkout
7853 dodiffindex
7854 }
7855 } else {
7857 }
7858 }
7860 proc readcheckoutstat {fd newhead newheadid} {
7861 global mainhead mainheadid headids showlocalchanges progresscoords
7866 adjustprogress
7867 }
7868 return 1
7869 }
7870 set progresscoords {0 0}
7871 adjustprogress
7872 notbusy checkout
7875 }
7883 dodiffindex
7884 }
7885 }
7887 proc rmbranch {} {
7888 global headmenuid headmenuhead mainhead
7889 global idheads
7893 # this check shouldn't be needed any more...
7895 error_popup [mc "Cannot delete the currently checked-out branch"]
7896 return
7897 }
7900 # the stuff on this branch isn't on any other branch
7901 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7903 }
7904 nowbusy rmbranch
7905 update
7907 notbusy rmbranch
7909 return
7910 }
7914 notbusy rmbranch
7915 dispneartags 0
7916 run refill_reflist
7917 }
7919 # Display a list of tags and heads
7920 proc showrefs {} {
7921 global showrefstop bgcolor fgcolor selectbgcolor
7922 global bglist fglist reflistfilter reflist maincursor
7924 set top .showrefs
7928 refill_reflist
7929 return
7930 }
7937 -spacing1 1 -spacing3 1 -state disabled
7948 set reflistfilter "*"
7949 trace add variable reflistfilter write reflistfilter_change
7960 set reflist {}
7961 refill_reflist
7962 }
7964 proc sel_reflist {w x y} {
7965 global showrefstop reflist headids tagids otherrefids
7975 }
7977 }
7979 proc unsel_reflist {} {
7980 global showrefstop
7984 }
7986 proc reflistfilter_change {n1 n2 op} {
7987 global reflistfilter
7989 after cancel refill_reflist
7990 after 200 refill_reflist
7991 }
7993 proc refill_reflist {} {
7994 global reflist reflistfilter showrefstop headids tagids otherrefids
7995 global curview commitinterest
7998 set refs {}
7999 foreach n [array names headids] {
8003 } else {
8005 }
8006 }
8007 }
8008 foreach n [array names tagids] {
8012 } else {
8014 }
8015 }
8016 }
8017 foreach n [array names otherrefids] {
8021 } else {
8023 }
8024 }
8025 }
8033 set i 0
8034 set j 0
8043 }
8044 } else {
8045 set cmp -1
8046 }
8047 } else {
8048 set cmp 1
8049 }
8051 -1 {
8053 incr i
8054 }
8055 0 {
8056 incr i
8057 incr j
8058 }
8059 1 {
8064 incr j
8065 }
8066 }
8067 }
8069 # delete last newline
8072 }
8074 # Stuff for finding nearby tags
8075 proc getallcommits {} {
8076 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8077 global idheads idtags idotherrefs allparents tagobjid
8079 if {![info exists allcommits]} {
8080 set nextarc 0
8081 set allcommits 0
8082 set seeds {}
8083 set allcwait 0
8084 set cachedarcs 0
8085 set allccache [file join [gitdir] "gitk.cache"]
8086 if {![catch {
8088 set allcwait 1
8090 }]} return
8091 }
8094 return
8095 }
8096 set cmd [list | git rev-list --parents]
8099 set ids "--all"
8100 } else {
8101 set refs [concat [array names idheads] [array names idtags] \
8102 [array names idotherrefs]]
8103 set ids {}
8104 set tagobjs {}
8105 foreach name [array names tagobjid] {
8107 }
8112 }
8113 }
8117 }
8118 }
8119 }
8123 incr allcommits
8124 nowbusy allcommits
8126 } else {
8127 dispneartags 0
8128 }
8129 }
8131 # Since most commits have 1 parent and 1 child, we group strings of
8132 # such commits into "arcs" joining branch/merge points (BMPs), which
8133 # are commits that either don't have 1 parent or don't have 1 child.
8134 #
8135 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8136 # arcout(id) - outgoing arcs for BMP
8137 # arcids(a) - list of IDs on arc including end but not start
8138 # arcstart(a) - BMP ID at start of arc
8139 # arcend(a) - BMP ID at end of arc
8140 # growing(a) - arc a is still growing
8141 # arctags(a) - IDs out of arcids (excluding end) that have tags
8142 # archeads(a) - IDs out of arcids (excluding end) that have heads
8143 # The start of an arc is at the descendent end, so "incoming" means
8144 # coming from descendents, and "outgoing" means going towards ancestors.
8146 proc getallclines {fd} {
8147 global allparents allchildren idtags idheads nextarc
8148 global arcnos arcids arctags arcout arcend arcstart archeads growing
8149 global seeds allcommits cachedarcs allcupdate
8151 set nid 0
8155 # seen it already
8156 continue
8157 }
8158 set cachedarcs 0
8165 } else {
8171 }
8174 }
8176 # seen parent already
8179 }
8183 }
8186 continue
8187 }
8188 }
8193 }
8195 set ao {}
8198 set a [incr nextarc]
8207 # seen it already, may need to make a new branch
8210 }
8214 }
8216 }
8218 }
8220 global cached_dheads cached_dtags cached_atags
8221 catch {unset cached_dheads}
8222 catch {unset cached_dtags}
8223 catch {unset cached_atags}
8224 }
8227 }
8228 set cacheok 1
8229 if {[catch {
8232 } err]} {
8233 # got an error reading the list of commits
8234 # if we were updating, try rereading the whole thing again
8236 incr allcommits -1
8238 return
8239 }
8240 error_popup "[mc "Error reading commit topology information;\
8241 branch and preceding/following tag information\
8243 set cacheok 0
8244 }
8245 if {[incr allcommits -1] == 0} {
8246 notbusy allcommits
8248 run savecache
8249 }
8250 }
8251 dispneartags 0
8252 return 0
8253 }
8255 proc recalcarc {a} {
8256 global arctags archeads arcids idtags idheads
8258 set at {}
8259 set ah {}
8263 }
8266 }
8267 }
8270 }
8272 proc splitarc {p} {
8273 global arcnos arcids nextarc arctags archeads idtags idheads
8274 global arcstart arcend arcout allparents growing
8279 return
8280 }
8285 return
8286 }
8287 set na [incr nextarc]
8290 } else {
8294 }
8304 }
8309 } else {
8312 }
8313 }
8315 # reconstruct tags and heads lists
8319 } else {
8322 }
8323 }
8325 # Update things for a new commit added that is a child of one
8326 # existing commit. Used when cherry-picking.
8327 proc addnewchild {id p} {
8328 global allparents allchildren idtags nextarc
8329 global arcnos arcids arctags arcout arcend arcstart archeads growing
8330 global seeds allcommits
8338 set a [incr nextarc]
8346 }
8349 }
8351 # This implements a cache for the topology information.
8352 # The cache saves, for each arc, the start and end of the arc,
8353 # the ids on the arc, and the outgoing arcs from the end.
8354 proc readcache {f} {
8355 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8356 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8357 global allcwait
8363 }
8364 if {[catch {
8366 # finish reading the cache and setting up arctags, etc.
8370 foreach id [array names idtags] {
8376 }
8377 }
8378 }
8379 foreach id [array names idheads] {
8385 }
8386 }
8387 }
8391 }
8392 }
8393 set allcwait 0
8394 } else {
8404 }
8408 } else {
8412 }
8413 }
8419 }
8422 }
8425 }
8427 }
8428 } err]} {
8430 return 0
8431 }
8433 getallcommits
8434 }
8436 }
8438 proc getcache {f} {
8439 global nextarc cachedarcs possible_seeds
8441 if {[catch {
8444 # make sure it's an integer
8447 set nextarc 0
8448 set possible_seeds {}
8450 } err]} {
8452 }
8453 return 0
8454 }
8456 proc dropcache {err} {
8457 global allcwait nextarc cachedarcs seeds
8460 foreach v {arcnos arcout arcids arcstart arcend growing \
8461 arctags archeads allparents allchildren} {
8464 }
8465 set allcwait 0
8466 set nextarc 0
8467 set cachedarcs 0
8468 set seeds {}
8469 getallcommits
8470 }
8472 proc writecache {f} {
8473 global cachearc cachedarcs allccache
8474 global arcstart arcend arcnos arcids arcout
8480 }
8481 if {[catch {
8485 } else {
8487 }
8488 }
8489 } err]} {
8493 return 0
8494 }
8499 return 0
8500 }
8501 return 1
8502 }
8504 proc savecache {} {
8505 global nextarc cachedarcs cachearc allccache
8508 set cachearc 0
8510 catch {
8514 }
8515 }
8517 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8518 # or 0 if neither is true.
8519 proc anc_or_desc {a b} {
8520 global arcout arcstart arcend arcnos cached_isanc
8523 # Both are on the same arc(s); either both are the same BMP,
8524 # or if one is not a BMP, the other is also not a BMP or is
8525 # the BMP at end of the arc (and it only has 1 incoming arc).
8526 # Or both can be BMPs with no incoming arcs.
8528 return 0
8529 }
8535 return 1
8536 } else {
8537 return -1
8538 }
8539 }
8545 } else {
8546 set aend {}
8547 }
8549 } else {
8551 }
8556 } else {
8557 set bend {}
8558 }
8560 } else {
8562 }
8564 return 1
8565 }
8567 return -1
8568 }
8571 return 1
8572 }
8573 }
8576 return -1
8577 }
8579 return 0
8580 }
8581 }
8589 continue
8590 }
8596 return 1
8600 return -1
8601 }
8607 }
8608 }
8609 }
8612 return 0
8613 }
8617 # and returns 0 if so and 1 if not.
8618 # If we subsequently discover a tag on such a growing tip, and that
8621 # isn't a good choice to display as a descendent tag of
8625 #
8626 proc is_certain {desc anc} {
8627 global arcnos arcout arcstart arcend growing problems
8629 set certain {}
8631 # tags on the same arc are certain
8633 return 1
8634 }
8639 }
8640 }
8643 } else {
8646 }
8648 return 1
8649 }
8652 set nnh 1
8653 set ngrowanc 0
8657 incr nnh -1
8658 }
8664 incr ngrowanc
8665 }
8666 } else {
8673 incr nnh -1
8674 }
8676 incr ngrowanc -1
8677 }
8687 incr nnh -1
8688 }
8690 incr ngrowanc -1
8691 }
8693 }
8694 }
8695 }
8696 }
8697 }
8698 }
8702 } else {
8705 incr nnh
8706 }
8707 }
8708 }
8709 }
8710 foreach x [array names growanc] {
8712 return 0
8713 }
8714 return 0
8715 }
8716 return 1
8717 }
8719 proc validate_arctags {a} {
8720 global arctags idtags
8722 set i -1
8725 incr i
8728 incr i -1
8729 }
8730 }
8732 }
8734 proc validate_archeads {a} {
8735 global archeads idheads
8737 set i -1
8740 incr i
8743 incr i -1
8744 }
8745 }
8747 }
8749 # Return the list of IDs that have tags that are descendents of id,
8750 # ignoring IDs that are descendents of IDs already reported.
8751 proc desctags {id} {
8752 global arcnos arcstart arcids arctags idtags allparents
8753 global growing cached_dtags
8756 return {}
8757 }
8758 set t1 [clock clicks -milliseconds]
8761 # part-way along an arc; check that arc first
8766 set tid {}
8771 }
8774 }
8775 }
8779 }
8780 }
8783 }
8788 set nc 1
8794 incr nc -1
8795 }
8796 # ignore tags on starting node
8800 set ta 1
8803 set ta 1
8804 }
8805 }
8812 }
8813 }
8822 }
8825 }
8827 incr nc -1
8828 }
8830 }
8831 }
8832 }
8837 incr nc
8838 }
8839 }
8840 }
8841 }
8842 set tags {}
8843 foreach id [array names tagloc] {
8848 }
8849 }
8850 }
8851 }
8852 set t2 [clock clicks -milliseconds]
8855 # remove tags that are descendents of other tags
8863 incr j -1
8864 incr i -1
8867 incr i -1
8868 break
8869 }
8870 }
8871 }
8873 if {[array names growing] ne {}} {
8874 # graph isn't finished, need to check if any tag could get
8875 # eclipsed by another tag coming later. Simply ignore any
8876 # tags that could later get eclipsed.
8877 set ctags {}
8881 }
8882 }
8885 } else {
8887 }
8888 } else {
8890 }
8891 set t3 [clock clicks -milliseconds]
8895 }
8897 }
8899 proc anctags {id} {
8900 global arcnos arcids arcout arcend arctags idtags allparents
8901 global growing cached_atags
8904 return {}
8905 }
8906 set t1 [clock clicks -milliseconds]
8909 # part-way along an arc; check that arc first
8918 }
8919 }
8920 }
8922 return {}
8923 }
8927 }
8928 }
8931 }
8936 set taglist {}
8937 set nc 1
8943 incr nc -1
8944 }
8945 # ignore tags on starting node
8949 set td 1
8952 set td 1
8953 }
8954 }
8960 }
8961 }
8973 }
8974 }
8977 }
8979 incr nc -1
8980 }
8982 }
8983 }
8984 }
8989 incr nc
8990 }
8991 }
8992 }
8993 }
8994 set t2 [clock clicks -milliseconds]
8996 set tags {}
8997 foreach id [array names tagloc] {
9002 }
9003 }
9004 }
9005 }
9007 # remove tags that are ancestors of other tags
9015 incr j -1
9016 incr i -1
9019 incr i -1
9020 break
9021 }
9022 }
9023 }
9025 if {[array names growing] ne {}} {
9026 # graph isn't finished, need to check if any tag could get
9027 # eclipsed by another tag coming later. Simply ignore any
9028 # tags that could later get eclipsed.
9029 set ctags {}
9033 }
9034 }
9037 } else {
9039 }
9040 } else {
9042 }
9043 set t3 [clock clicks -milliseconds]
9047 }
9049 }
9051 # Return the list of IDs that have heads that are descendents of id,
9052 # including id itself if it has a head.
9053 proc descheads {id} {
9054 global arcnos arcstart arcids archeads idheads cached_dheads
9055 global allparents
9058 return {}
9059 }
9060 set aret {}
9062 # part-way along an arc; check it first
9071 }
9072 }
9074 }
9078 set ret {}
9083 } else {
9086 }
9092 }
9093 }
9098 }
9099 }
9100 }
9101 }
9105 }
9107 proc addedtag {id} {
9108 global arcnos arcout cached_dtags cached_atags
9113 }
9114 catch {unset cached_dtags}
9115 catch {unset cached_atags}
9116 }
9118 proc addedhead {hid head} {
9119 global arcnos arcout cached_dheads
9124 }
9125 catch {unset cached_dheads}
9126 }
9128 proc removedhead {hid head} {
9129 global cached_dheads
9131 catch {unset cached_dheads}
9132 }
9134 proc movedhead {hid head} {
9135 global arcnos arcout cached_dheads
9140 }
9141 catch {unset cached_dheads}
9142 }
9144 proc changedrefs {} {
9145 global cached_dheads cached_dtags cached_atags
9146 global arctags archeads arcnos arcout idheads idtags
9148 foreach id [concat [array names idheads] [array names idtags]] {
9154 }
9155 }
9156 }
9157 catch {unset cached_dtags}
9158 catch {unset cached_atags}
9159 catch {unset cached_dheads}
9160 }
9162 proc rereadrefs {} {
9163 global idtags idheads idotherrefs mainheadid
9165 set refids [concat [array names idtags] \
9166 [array names idheads] [array names idotherrefs]]
9170 }
9171 }
9173 readrefs
9174 changedrefs
9176 [array names idheads] [array names idotherrefs]]]
9181 }
9182 }
9186 }
9187 run refill_reflist
9188 }
9190 proc listrefs {id} {
9191 global idtags idheads idotherrefs
9193 set x {}
9196 }
9197 set y {}
9200 }
9201 set z {}
9204 }
9206 }
9208 proc showtag {tag isnew} {
9209 global ctext tagcontents tagids linknum tagobjid
9213 }
9215 clear_ctext
9216 settabs 0
9217 set linknum 0
9219 catch {
9221 }
9222 }
9225 } else {
9227 }
9230 init_flist {}
9231 }
9233 proc doquit {} {
9234 global stopped
9235 global gitktmpdir
9237 set stopped 100
9238 savestuff .
9239 destroy .
9241 if {[info exists gitktmpdir]} {
9243 }
9244 }
9246 proc mkfontdisp {font top which} {
9255 }
9257 proc choosefont {font which} {
9258 global fontparam fontlist fonttop fontattr
9266 set top .gitkfont
9269 font create sample
9275 set fontlist [lsort [font families]]
9286 -textvariable fontparam(size) \
9287 -validatecommand {string is integer -strict %s}
9289 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9290 -variable fontparam(weight) -onvalue bold -offvalue normal
9292 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9293 -variable fontparam(slant) -onvalue italic -offvalue roman
9297 -background white
9299 -fill black -tags text
9309 trace add variable fontparam write chg_fontparam
9310 } else {
9313 }
9318 }
9319 }
9321 proc centertext {w} {
9323 }
9325 proc fontok {} {
9326 global fontparam fontpref prefstop
9332 }
9335 }
9339 fontcan
9340 }
9342 proc fontcan {} {
9343 global fonttop fontparam
9345 if {[info exists fonttop]} {
9347 catch {font delete sample}
9348 unset fonttop
9349 unset fontparam
9350 }
9351 }
9353 proc selfontfam {} {
9354 global fonttop fontparam
9359 }
9360 }
9362 proc chg_fontparam {v sub op} {
9363 global fontparam
9366 }
9368 proc doprefs {} {
9369 global maxwidth maxgraphpct
9370 global oldprefs prefstop showneartags showlocalchanges
9371 global bgcolor fgcolor ctext diffcolors selectbgcolor
9372 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9374 set top .gitkprefs
9378 return
9379 }
9380 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9381 limitdiffs tabstop perfile_attrs} {
9383 }
9390 -font optionfont
9394 -font optionfont
9432 -padx 10
9434 -command choose_extdiff
9461 "diff hunk header" \
9483 }
9485 proc choose_extdiff {} {
9486 global extdifftool
9488 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9491 }
9492 }
9494 proc choosecolor {v vi w x cmd} {
9503 }
9505 proc setselbg {c} {
9506 global bglist cflist
9509 }
9513 }
9515 proc setbg {c} {
9516 global bglist
9520 }
9521 }
9523 proc setfg {c} {
9524 global fglist canv
9528 }
9531 }
9533 proc prefscan {} {
9534 global oldprefs prefstop
9536 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9537 limitdiffs tabstop perfile_attrs} {
9540 }
9542 unset prefstop
9543 fontcan
9544 }
9546 proc prefsok {} {
9547 global maxwidth maxgraphpct
9548 global oldprefs prefstop showneartags showlocalchanges
9549 global fontpref mainfont textfont uifont
9550 global limitdiffs treediffs perfile_attrs
9553 unset prefstop
9554 fontcan
9555 set fontchanged 0
9559 eval font configure mainfont [fontflags mainfont]
9560 eval font configure mainfontbold [fontflags mainfont 1]
9561 setcoords
9562 set fontchanged 1
9563 }
9567 eval font configure textfont [fontflags textfont]
9568 eval font configure textfontbold [fontflags textfont 1]
9569 }
9573 eval font configure uifont [fontflags uifont]
9574 }
9575 settabs
9578 doshowlocalchanges
9579 } else {
9580 dohidelocalchanges
9581 }
9582 }
9585 # treediffs elements are limited by path;
9586 # won't have encodings cached if perfile_attrs was just turned on
9587 catch {unset treediffs}
9588 }
9591 redisplay
9594 reselectline
9595 }
9596 }
9598 proc formatdate {d} {
9599 global datetimeformat
9602 }
9604 }
9606 # This list of encoding names and aliases is distilled from
9607 # http://www.iana.org/assignments/character-sets.
9608 # Not all of them are supported by Tcl.
9609 set encoding_aliases {
9610 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9611 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9612 { ISO-10646-UTF-1 csISO10646UTF1 }
9613 { ISO_646.basic:1983 ref csISO646basic1983 }
9614 { INVARIANT csINVARIANT }
9615 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9616 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9617 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9618 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9619 { NATS-DANO iso-ir-9-1 csNATSDANO }
9620 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9621 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9622 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9623 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9624 { ISO-2022-KR csISO2022KR }
9625 { EUC-KR csEUCKR }
9626 { ISO-2022-JP csISO2022JP }
9627 { ISO-2022-JP-2 csISO2022JP2 }
9628 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9629 csISO13JISC6220jp }
9630 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9631 { IT iso-ir-15 ISO646-IT csISO15Italian }
9632 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9633 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9634 { greek7-old iso-ir-18 csISO18Greek7Old }
9635 { latin-greek iso-ir-19 csISO19LatinGreek }
9636 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9637 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9638 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9639 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9640 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9641 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9642 { INIS iso-ir-49 csISO49INIS }
9643 { INIS-8 iso-ir-50 csISO50INIS8 }
9644 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9645 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9646 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9647 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9648 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9649 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9650 csISO60Norwegian1 }
9651 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9652 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9653 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9654 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9655 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9656 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9657 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9658 { greek7 iso-ir-88 csISO88Greek7 }
9659 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9660 { iso-ir-90 csISO90 }
9661 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9662 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9663 csISO92JISC62991984b }
9664 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9665 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9666 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9667 csISO95JIS62291984handadd }
9668 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9669 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9670 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9671 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9672 CP819 csISOLatin1 }
9673 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9674 { T.61-7bit iso-ir-102 csISO102T617bit }
9675 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9676 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9677 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9678 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9679 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9680 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9681 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9682 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9683 arabic csISOLatinArabic }
9684 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9685 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9686 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9687 greek greek8 csISOLatinGreek }
9688 { T.101-G2 iso-ir-128 csISO128T101G2 }
9689 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9690 csISOLatinHebrew }
9691 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9692 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9693 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9694 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9695 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9696 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9697 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9698 csISOLatinCyrillic }
9699 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9700 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9701 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9702 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9703 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9704 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9705 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9706 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9707 { ISO_10367-box iso-ir-155 csISO10367Box }
9708 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9709 { latin-lap lap iso-ir-158 csISO158Lap }
9710 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9711 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9712 { us-dk csUSDK }
9713 { dk-us csDKUS }
9714 { JIS_X0201 X0201 csHalfWidthKatakana }
9715 { KSC5636 ISO646-KR csKSC5636 }
9716 { ISO-10646-UCS-2 csUnicode }
9717 { ISO-10646-UCS-4 csUCS4 }
9718 { DEC-MCS dec csDECMCS }
9719 { hp-roman8 roman8 r8 csHPRoman8 }
9720 { macintosh mac csMacintosh }
9721 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9722 csIBM037 }
9723 { IBM038 EBCDIC-INT cp038 csIBM038 }
9724 { IBM273 CP273 csIBM273 }
9725 { IBM274 EBCDIC-BE CP274 csIBM274 }
9726 { IBM275 EBCDIC-BR cp275 csIBM275 }
9727 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9728 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9729 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9730 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9731 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9732 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9733 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9734 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9735 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9736 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9737 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9738 { IBM437 cp437 437 csPC8CodePage437 }
9739 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9740 { IBM775 cp775 csPC775Baltic }
9741 { IBM850 cp850 850 csPC850Multilingual }
9742 { IBM851 cp851 851 csIBM851 }
9743 { IBM852 cp852 852 csPCp852 }
9744 { IBM855 cp855 855 csIBM855 }
9745 { IBM857 cp857 857 csIBM857 }
9746 { IBM860 cp860 860 csIBM860 }
9747 { IBM861 cp861 861 cp-is csIBM861 }
9748 { IBM862 cp862 862 csPC862LatinHebrew }
9749 { IBM863 cp863 863 csIBM863 }
9750 { IBM864 cp864 csIBM864 }
9751 { IBM865 cp865 865 csIBM865 }
9752 { IBM866 cp866 866 csIBM866 }
9753 { IBM868 CP868 cp-ar csIBM868 }
9754 { IBM869 cp869 869 cp-gr csIBM869 }
9755 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9756 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9757 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9758 { IBM891 cp891 csIBM891 }
9759 { IBM903 cp903 csIBM903 }
9760 { IBM904 cp904 904 csIBBM904 }
9761 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9762 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9763 { IBM1026 CP1026 csIBM1026 }
9764 { EBCDIC-AT-DE csIBMEBCDICATDE }
9765 { EBCDIC-AT-DE-A csEBCDICATDEA }
9766 { EBCDIC-CA-FR csEBCDICCAFR }
9767 { EBCDIC-DK-NO csEBCDICDKNO }
9768 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9769 { EBCDIC-FI-SE csEBCDICFISE }
9770 { EBCDIC-FI-SE-A csEBCDICFISEA }
9771 { EBCDIC-FR csEBCDICFR }
9772 { EBCDIC-IT csEBCDICIT }
9773 { EBCDIC-PT csEBCDICPT }
9774 { EBCDIC-ES csEBCDICES }
9775 { EBCDIC-ES-A csEBCDICESA }
9776 { EBCDIC-ES-S csEBCDICESS }
9777 { EBCDIC-UK csEBCDICUK }
9778 { EBCDIC-US csEBCDICUS }
9779 { UNKNOWN-8BIT csUnknown8BiT }
9780 { MNEMONIC csMnemonic }
9781 { MNEM csMnem }
9782 { VISCII csVISCII }
9783 { VIQR csVIQR }
9784 { KOI8-R csKOI8R }
9785 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9786 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9787 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9788 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9789 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9790 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9791 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9792 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9793 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9794 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9795 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9796 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9797 { IBM1047 IBM-1047 }
9798 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9799 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9800 { UNICODE-1-1 csUnicode11 }
9801 { CESU-8 csCESU-8 }
9802 { BOCU-1 csBOCU-1 }
9803 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9804 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9805 l8 }
9806 { ISO-8859-15 ISO_8859-15 Latin-9 }
9807 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9808 { GBK CP936 MS936 windows-936 }
9809 { JIS_Encoding csJISEncoding }
9810 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
9811 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9812 EUC-JP }
9813 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9814 { ISO-10646-UCS-Basic csUnicodeASCII }
9815 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9816 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9817 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9818 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9819 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9820 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9821 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9822 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9823 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9824 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9825 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9826 { Ventura-US csVenturaUS }
9827 { Ventura-International csVenturaInternational }
9828 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9829 { PC8-Turkish csPC8Turkish }
9830 { IBM-Symbols csIBMSymbols }
9831 { IBM-Thai csIBMThai }
9832 { HP-Legal csHPLegal }
9833 { HP-Pi-font csHPPiFont }
9834 { HP-Math8 csHPMath8 }
9835 { Adobe-Symbol-Encoding csHPPSMath }
9836 { HP-DeskTop csHPDesktop }
9837 { Ventura-Math csVenturaMath }
9838 { Microsoft-Publishing csMicrosoftPublishing }
9839 { Windows-31J csWindows31J }
9840 { GB2312 csGB2312 }
9841 { Big5 csBig5 }
9842 }
9844 proc tcl_encoding {enc} {
9845 global encoding_aliases tcl_encoding_cache
9848 }
9849 set names [encoding names]
9854 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9857 }
9858 }
9863 # look through the aliases for one that tcl knows about
9869 }
9870 }
9872 }
9873 break
9874 }
9875 }
9876 set tclenc {}
9879 }
9882 }
9884 proc gitattr {path attr default} {
9885 global path_attr_cache
9888 } else {
9889 set r "unspecified"
9892 }
9894 }
9897 }
9899 }
9901 proc cache_gitattr {attr pathlist} {
9902 global path_attr_cache
9903 set newlist {}
9907 }
9908 }
9909 set lim 1000
9910 if {[tk windowingsystem] == "win32"} {
9911 # windows has a 32k limit on the arguments to a command...
9912 set lim 30
9913 }
9922 }
9924 }
9925 }
9926 }
9927 }
9928 }
9930 proc get_path_encoding {path} {
9931 global gui_encoding perfile_attrs
9937 }
9938 }
9940 }
9942 # First check that Tcl/Tk is recent enough
9943 if {[catch {package require Tk 8.4} err]} {
9944 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9945 Gitk requires at least Tcl/Tk 8.4."]
9946 exit 1
9947 }
9949 # defaults...
9950 set wrcomcmd "git diff-tree --stdin -p --pretty"
9952 set gitencoding {}
9953 catch {
9954 set gitencoding [exec git config --get i18n.commitencoding]
9955 }
9957 set gitencoding "utf-8"
9958 }
9962 }
9964 set gui_encoding [encoding system]
9965 catch {
9966 set enc [exec git config --get gui.encoding]
9971 } else {
9973 }
9974 }
9975 }
9977 set mainfont {Helvetica 9}
9978 set textfont {Courier 9}
9979 set uifont {Helvetica 9 bold}
9980 set tabstop 8
9981 set findmergefiles 0
9982 set maxgraphpct 50
9983 set maxwidth 16
9984 set revlistorder 0
9985 set fastdate 0
9986 set uparrowlen 5
9987 set downarrowlen 5
9988 set mingaplen 100
9989 set cmitmode "patch"
9990 set wrapcomment "none"
9991 set showneartags 1
9992 set maxrefs 20
9993 set maxlinelen 200
9994 set showlocalchanges 1
9995 set limitdiffs 1
9996 set datetimeformat "%Y-%m-%d %H:%M:%S"
9997 set autoselect 1
9998 set perfile_attrs 0
10000 set extdifftool "meld"
10002 set colors {green red blue magenta darkgrey brown orange}
10003 set bgcolor white
10004 set fgcolor black
10005 set diffcolors {red "#00a000" blue}
10006 set diffcontext 3
10007 set ignorespace 0
10008 set selectbgcolor gray85
10010 set circlecolors {white blue gray blue blue}
10012 # button for popping up context menus
10013 if {[tk windowingsystem] eq "aqua"} {
10014 set ctxbut <Button-2>
10015 } else {
10016 set ctxbut <Button-3>
10017 }
10019 ## For msgcat loading, first locate the installation location.
10020 if { [info exists ::env(GITK_MSGSDIR)] } {
10021 ## Msgsdir was manually set in the environment.
10022 set gitk_msgsdir $::env(GITK_MSGSDIR)
10023 } else {
10024 ## Let's guess the prefix from argv0.
10028 unset gitk_prefix
10029 }
10031 ## Internationalization (i18n) through msgcat and gettext. See
10032 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10033 package require msgcat
10034 namespace import ::msgcat::mc
10035 ## And eventually load the actual message catalog
10038 catch {source ~/.gitk}
10040 font create optionfont -family sans-serif -size -12
10043 eval font create mainfont [fontflags mainfont]
10044 eval font create mainfontbold [fontflags mainfont 1]
10047 eval font create textfont [fontflags textfont]
10048 eval font create textfontbold [fontflags textfont 1]
10051 eval font create uifont [fontflags uifont]
10053 setoptions
10055 # check that we can find a .git directory somewhere...
10056 if {[catch {set gitdir [gitdir]}]} {
10057 show_error {} . [mc "Cannot find a git repository here."]
10058 exit 1
10059 }
10062 exit 1
10063 }
10065 set selecthead {}
10066 set selectheadid {}
10068 set revtreeargs {}
10069 set cmdline_files {}
10070 set i 0
10071 set revtreeargscmd {}
10074 "" { }
10075 "--" {
10077 break
10078 }
10079 "--select-commit=*" {
10081 }
10082 "--argscmd=*" {
10084 }
10085 default {
10087 }
10088 }
10089 incr i
10090 }
10093 set selecthead {}
10094 }
10097 # no -- on command line, but some arguments (other than --argscmd)
10098 if {[catch {
10103 # Unfortunately git rev-parse doesn't produce an error when
10104 # something is both a revision and a filename. To be consistent
10105 # with git log and git rev-list, check revtreeargs for filenames.
10108 show_error {} . [mc "Ambiguous argument '%s': both revision\
10110 exit 1
10111 }
10112 }
10113 } err]} {
10115 # so look for "fatal:".
10119 }
10121 exit 1
10122 }
10123 }
10125 set nullid "0000000000000000000000000000000000000000"
10126 set nullid2 "0000000000000000000000000000000000000001"
10127 set nullfile "/dev/null"
10131 set runq {}
10132 set history {}
10133 set historyindex 0
10134 set fh_serial 0
10135 set nhl_names {}
10136 set highlight_paths {}
10137 set findpattern {}
10138 set searchdirn -forwards
10139 set boldrows {}
10140 set boldnamerows {}
10141 set diffelide {0 0}
10142 set markingmatches 0
10143 set linkentercount 0
10144 set need_redisplay 0
10145 set nrows_drawn 0
10146 set firsttabstop 0
10148 set nextviewnum 1
10149 set curview 0
10150 set selectedview 0
10151 set selectedhlview [mc "None"]
10152 set highlight_related [mc "None"]
10153 set highlight_files {}
10154 set viewfiles(0) {}
10155 set viewperm(0) 0
10156 set viewargs(0) {}
10157 set viewargscmd(0) {}
10159 set selectedline {}
10160 set numcommits 0
10161 set loginstance 0
10162 set cmdlineok 0
10163 set stopped 0
10164 set stuffsaved 0
10165 set patchnum 0
10166 set lserial 0
10167 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10168 setcoords
10169 makewindow
10170 # wait for the window to become visible
10171 tkwait visibility .
10173 readrefs
10176 # create a view for the files/dirs specified on the command line
10177 set curview 1
10178 set selectedview 1
10179 set nextviewnum 2
10180 set viewname(1) [mc "Command line"]
10184 set viewperm(1) 0
10185 set vdatemode(1) 0
10186 addviewmenu 1
10187 .bar.view entryconf [mca "Edit view..."] -state normal
10188 .bar.view entryconf [mca "Delete view"] -state normal
10189 }
10191 if {[info exists permviews]} {
10194 incr nextviewnum
10201 }
10202 }
10203 getcommits {}