| blob | b064a4e58a7c88996d08c2777e07d0c6e6f65f4d |
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
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 }
371 interestedin $mainheadid dodiffindex
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 vtokmod
1243 # add p as a new commit
1244 incr missing_parents
1252 }
1255 modify_arc $v $b
1256 }
1260 }
1261 }
1265 }
1266 }
1267 }
1269 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1270 # Assumes we already have an arc for $rwid.
1272 global children parents varcid varctok vtokmod varccommits
1275 # make $rwid be $ch's parent in place of $id
1279 }
1281 # add $ch to $rwid's children and sort the list if necessary
1285 }
1286 # fix the graph after joining $id to $rwid
1288 fix_reversal $rwid $a $v
1289 # parentlist is wrong for the last element of arc $a
1290 # even if displayorder is right, hence the 3rd arg here
1292 }
1293 }
1295 # Mechanism for registering a command to be executed when we come
1296 # across a particular commit. To handle the case when only the
1297 # prefix of the commit is known, the commitinterest array is now
1298 # indexed by the first 4 characters of the ID. Each element is a
1299 # list of id, cmd pairs.
1301 global commitinterest
1304 }
1307 global commitinterest
1316 lappend newlist $i $script
1317 }
1318 }
1323 }
1324 }
1326 }
1329 global cmitlisted leftover
1330 global commitidx commitdata vdatemode
1331 global parents children curview hlview
1332 global idpending ordertok
1333 global varccommits varcid varctok vtokmod vfilelimit
1336 # git log doesn't terminate the last commit with a null...
1339 }
1343 }
1344 global commfd viewcomplete viewactive viewname
1345 global viewinstances
1350 }
1351 # set it blocking so we wait for the process to terminate
1357 }
1360 bad arguments to git log."
1362 append err \
1363 " (Note: arguments to gitk are passed to git log\
1364 to allow selection of commits to be displayed.)"
1365 }
1368 }
1369 error_popup $err
1370 }
1373 # Check if we have seen any ids listed as parents that haven't
1374 # appeared in the list
1375 closevarcs $view
1376 notbusy $view
1377 }
1379 run chewcommits
1380 }
1382 }
1390 break
1391 }
1398 }
1411 }
1413 }
1418 break
1419 }
1420 }
1421 }
1426 }
1428 exit 1
1429 }
1436 # when doing path limiting, so work around that here
1437 # by working out the rewritten parent with git rev-list
1438 # and if we already know about it, using the rewritten
1439 # parent as a substitute parent for $id's children.
1443 }]} {
1445 # use $rwid in place of $id
1446 rewrite_commit $view $id $rwid
1447 continue
1448 }
1449 }
1450 }
1456 }
1461 }
1473 }
1474 }
1476 # new arc
1478 }
1480 modify_arc $view $a
1481 }
1486 }
1497 }
1499 fix_reversal $p $a $view
1500 }
1501 }
1502 incr i
1503 }
1507 }
1509 global numcommits hlview
1513 run chewcommits
1514 }
1516 # we never actually get here...
1517 run vhighlightmore
1518 }
1521 }
1522 }
1524 }
1526 proc chewcommits {} {
1527 global curview hlview viewcomplete
1528 global pending_select
1530 layoutmore
1532 global commitidx varctok
1533 global numcommits startmsecs
1536 update
1537 reset_pending_select {}
1544 }
1545 }
1547 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1548 #puts "overall $ms ms for $numcommits commits"
1549 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1552 }
1553 notbusy layout
1554 }
1556 }
1561 }
1564 global commitinfo cdate
1575 # should never happen...
1577 }
1588 }
1589 }
1591 # take the first non-blank line of the comment as the headline
1596 }
1601 }
1603 # git log indents the comment by 4 spaces;
1604 # if we got this via git cat-file, add the indentation
1607 append newcomment " "
1608 append newcomment $line
1610 }
1612 }
1615 }
1618 }
1621 global commitdata commitinfo
1626 readcommit $id
1629 }
1630 }
1632 }
1634 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1635 # and are present in the current view.
1636 # This is fairly slow...
1638 global varcid curview
1643 }
1645 }
1647 proc readrefs {} {
1648 global tagids idtags headids idheads tagobjid
1649 global otherrefids idotherrefs mainhead mainheadid
1650 global selecthead selectheadid
1654 }
1666 }
1672 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1673 # which is what we want since the former is the commit ID
1679 }
1685 }
1686 }
1690 catch {
1695 }
1696 }
1699 catch {
1701 }
1702 }
1703 }
1705 # skip over fake commits
1706 proc first_real_row {} {
1707 global nullid nullid2 numcommits
1712 break
1713 }
1714 }
1716 }
1718 # update things for a head moved to a child of its previous location
1720 global headids idheads
1725 }
1727 # update things when a head has been removed
1729 global headids idheads
1737 }
1738 }
1740 }
1749 tkwait window $top
1750 }
1752 proc error_popup msg {
1753 set w .error
1754 toplevel $w
1755 wm transient $w .
1756 show_error $w $w $msg
1757 }
1759 proc confirm_popup msg {
1760 global confirm_ok
1762 set w .confirm
1763 toplevel $w
1764 wm transient $w .
1772 tkwait window $w
1774 }
1776 proc setoptions {} {
1778 option add *Panedwindow.sashRelief raised startupFile
1779 option add *Button.font uifont startupFile
1780 option add *Checkbutton.font uifont startupFile
1781 option add *Radiobutton.font uifont startupFile
1782 option add *Menu.font uifont startupFile
1783 option add *Menubutton.font uifont startupFile
1784 option add *Label.font uifont startupFile
1785 option add *Message.font uifont startupFile
1786 option add *Entry.font uifont startupFile
1787 }
1789 # Make a menu and submenus.
1790 # m is the window name for the menu, items is the list of menu items to add.
1791 # Each item is a list {mc label type description options...}
1792 # mc is ignored; it's so we can put mc there to alert xgettext
1793 # label is the string that appears in the menu
1794 # type is cascade, command or radiobutton (should add checkbutton)
1795 # description depends on type; it's the sublist for cascade, the
1796 # command to invoke for command, or {variable value} for radiobutton
1798 menu $m
1809 }
1810 }
1815 }
1818 }
1822 }
1823 }
1827 }
1828 }
1829 }
1831 # translate string and remove ampersands
1834 }
1836 proc makewindow {} {
1837 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1838 global tabstop
1839 global findtype findtypemenu findloc findstring fstring geometry
1840 global entries sha1entry sha1string sha1but
1841 global diffcontextstring diffcontext
1842 global ignorespace
1843 global maincursor textcursor curtextcursor
1844 global rowctxmenu fakerowmenu mergemax wrapcomment
1845 global highlight_files gdttype
1846 global searchstring sstring
1847 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1848 global headctxmenu progresscanv progressitem progresscoords statusw
1849 global fprogitem fprogcoord lastprogupdate progupdatepending
1850 global rprogitem rprogcoord rownumsel numcommits
1851 global have_tk85
1853 # The "mc" arguments here are purely so that xgettext
1854 # sees the following string as needing to be translated
1855 makemenu .bar {
1862 }}
1865 }}
1872 }}
1876 }}
1877 }
1878 . configure -menu .bar
1880 # the gui has upper and lower half, parts of a paned window.
1881 panedwindow .ctop -orient vertical
1883 # possibly use assumed geometry
1891 }
1893 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1895 frame .tf.histframe
1898 # create three canvases
1899 set cscroll .tf.histframe.csb
1900 set canv .tf.histframe.pwclist.canv
1901 canvas $canv \
1905 .tf.histframe.pwclist add $canv
1906 set canv2 .tf.histframe.pwclist.canv2
1907 canvas $canv2 \
1910 .tf.histframe.pwclist add $canv2
1911 set canv3 .tf.histframe.pwclist.canv3
1912 canvas $canv3 \
1915 .tf.histframe.pwclist add $canv3
1919 # a scroll bar to rule them
1923 lappend bglist $canv $canv2 $canv3
1926 # we have two button bars at bottom of top frame. Bar 1
1927 frame .tf.bar
1930 set sha1entry .tf.bar.sha1
1932 set sha1but .tf.bar.sha1label
1936 pack .tf.bar.sha1label -side left
1938 trace add variable sha1string write sha1change
1942 #define left_width 16
1943 #define left_height 16
1944 static unsigned char left_bits[] = {
1948 }
1950 #define right_width 16
1951 #define right_height 16
1952 static unsigned char right_bits[] = {
1956 }
1971 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
1972 -side left
1973 global selectedline
1974 trace add variable selectedline write selectedline_change
1976 # Status label and progress bar
1977 set statusw .tf.bar.status
1981 set progresscanv .tf.bar.progress
1994 # build up the bottom bar of upper window
1999 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2006 trace add variable gdttype write gdttype_change
2010 set fstring .tf.lbar.findstring
2011 lappend entries $fstring
2013 trace add variable findstring write find_change
2017 trace add variable findtype write findcom_change
2021 trace add variable findloc write find_change
2022 pack .tf.lbar.findloc -side right
2023 pack .tf.lbar.findtype -side right
2026 # Finish putting the upper half of the viewer together
2030 .ctop add .tf
2034 # now build up the bottom
2035 panedwindow .pwbottom -orient horizontal
2037 # lower left, a text box over search bar, scroll bar to the right
2038 # if we know window height, then that will set the lower text height, otherwise
2039 # we set lower text height which will drive window height
2044 }
2045 frame .bleft.top
2046 frame .bleft.mid
2047 frame .bleft.bottom
2051 set sstring .bleft.top.sstring
2053 lappend entries $sstring
2054 trace add variable searchstring write incrsearch
2067 -textvariable diffcontextstring
2069 trace add variable diffcontextstring write diffcontextchange
2070 lappend entries .bleft.mid.diffcontext
2071 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2075 set ctext .bleft.bottom.ctext
2082 }
2089 grid .bleft.bottom.sbhorizontal -sticky ew
2094 lappend bglist $ctext
2095 lappend fglist $ctext
2124 .pwbottom add .bleft
2127 # lower right
2128 frame .bright
2129 frame .bright.mode
2136 set cflist .bright.cfiles
2138 text $cflist \
2141 -font mainfont \
2146 lappend bglist $cflist
2147 lappend fglist $cflist
2151 $cflist tag configure highlight \
2155 .pwbottom add .bright
2156 .ctop add .pwbottom
2158 # restore window width & height if known
2163 }
2166 }
2168 }
2169 }
2172 set M1B M1
2174 set M1B Control
2175 }
2180 #bindall <B1-Motion> {selcanvline %W %x %y}
2190 allcanvs yview scroll $delta units
2191 }
2192 }
2193 }
2215 bindkey p "selnextline -1"
2216 bindkey n "selnextline 1"
2217 bindkey z "goback"
2218 bindkey x "goforw"
2219 bindkey i "selnextline -1"
2220 bindkey k "selnextline 1"
2221 bindkey j "goback"
2222 bindkey l "goforw"
2223 bindkey b prevfile
2229 bindkey f nextfile
2241 wm protocol . WM_DELETE_WINDOW doquit
2250 global ctxbut
2253 set maincursor [. cget -cursor]
2257 set rowctxmenu .rowctxmenu
2259 {mc "Diff this -> selected" command {diffvssel 0}}
2260 {mc "Diff selected -> this" command {diffvssel 1}}
2261 {mc "Make patch" command mkpatch}
2262 {mc "Create tag" command mktag}
2263 {mc "Write commit to file" command writecommit}
2264 {mc "Create new branch" command mkbranch}
2265 {mc "Cherry-pick this commit" command cherrypick}
2266 {mc "Reset HEAD branch to here" command resethead}
2267 }
2270 set fakerowmenu .fakerowmenu
2272 {mc "Diff this -> selected" command {diffvssel 0}}
2273 {mc "Diff selected -> this" command {diffvssel 1}}
2274 {mc "Make patch" command mkpatch}
2275 }
2278 set headctxmenu .headctxmenu
2280 {mc "Check out this branch" command cobranch}
2281 {mc "Remove this branch" command rmbranch}
2282 }
2285 global flist_menu
2286 set flist_menu .flistctxmenu
2288 {mc "Highlight this too" command {flist_hl 0}}
2289 {mc "Highlight this only" command {flist_hl 1}}
2290 {mc "External diff" command {external_diff}}
2291 {mc "Blame parent commit" command {external_blame 1}}
2292 }
2294 }
2296 # Windows sends all mouse wheel events to the current focused window, not
2297 # the one where the mouse hovers, so bind those events here and redirect
2298 # to the correct window
2299 proc windows_mousewheel_redirector {W X Y D} {
2300 global canv canv2 canv3
2306 } else {
2307 catch {
2309 }
2310 }
2311 }
2312 }
2314 # Update row number label when selectedline changes
2315 proc selectedline_change {n1 n2 op} {
2316 global selectedline rownumsel
2319 set rownumsel {}
2320 } else {
2322 }
2323 }
2325 # mouse-2 makes all windows scan vertically, but only the one
2326 # the cursor is in scans horizontally
2327 proc canvscan {op w x y} {
2328 global canv canv2 canv3
2332 } else {
2334 }
2335 }
2336 }
2338 proc scrollcanv {cscroll f0 f1} {
2340 drawvisible
2341 flushhighlights
2342 }
2344 # when we make a key binding for the toplevel, make sure
2345 # it doesn't get triggered when that key is pressed in the
2346 # find string entry widget.
2347 proc bindkey {ev script} {
2348 global entries
2352 set escript [bind Entry <Key>]
2353 }
2356 }
2357 }
2359 # set the focus back to the toplevel for any click outside
2360 # the entry widgets
2361 proc click {w} {
2362 global ctext entries
2365 }
2366 focus .
2367 }
2369 # Adjust the progress bar for a change in requested extent or canvas size
2370 proc adjustprogress {} {
2371 global progresscanv progressitem progresscoords
2372 global fprogitem fprogcoord lastprogupdate progupdatepending
2373 global rprogitem rprogcoord
2382 set now [clock clicks -milliseconds]
2384 set progupdatepending 0
2385 update
2387 set progupdatepending 1
2389 }
2390 }
2392 proc doprogupdate {} {
2393 global lastprogupdate progupdatepending
2396 set progupdatepending 0
2397 set lastprogupdate [clock clicks -milliseconds]
2398 update
2399 }
2400 }
2402 proc savestuff {w} {
2403 global canv canv2 canv3 mainfont textfont uifont tabstop
2404 global stuffsaved findmergefiles maxgraphpct
2405 global maxwidth showneartags showlocalchanges
2406 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2407 global cmitmode wrapcomment datetimeformat limitdiffs
2408 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2409 global autoselect extdifftool perfile_attrs
2412 if {![winfo viewable .]} return
2413 catch {
2414 set f [open "~/.gitk-new" w]
2450 }
2451 }
2454 catch {file delete "~/.gitk"}
2455 file rename -force "~/.gitk-new" "~/.gitk"
2456 }
2457 set stuffsaved 1
2458 }
2460 proc resizeclistpanes {win w} {
2461 global oldwidth
2468 } else {
2473 set sash0 30
2474 }
2477 }
2482 }
2483 }
2484 }
2487 }
2489 }
2491 proc resizecdetpanes {win w} {
2492 global oldwidth
2497 } else {
2501 set sash0 45
2502 }
2505 }
2506 }
2508 }
2510 }
2512 proc allcanvs args {
2513 global canv canv2 canv3
2517 }
2519 proc bindall {event action} {
2520 global canv canv2 canv3
2524 }
2526 proc about {} {
2527 global uifont
2528 set w .about
2531 return
2532 }
2536 Gitk - a commit viewer for git
2538 Copyright © 2005-2008 Paul Mackerras
2540 Use and redistribute under the terms of the GNU General Public License"] \
2541 -justify center -aspect 400 -border 2 -bg white -relief groove
2548 }
2550 proc keys {} {
2551 set w .keys
2554 return
2555 }
2556 if {[tk windowingsystem] eq {aqua}} {
2557 set M1T Cmd
2558 } else {
2559 set M1T Ctrl
2560 }
2564 [mc "Gitk key bindings:"]
2567 [mc "<Home> Move to first commit"]
2568 [mc "<End> Move to last commit"]
2569 [mc "<Up>, p, i Move up one commit"]
2570 [mc "<Down>, n, k Move down one commit"]
2571 [mc "<Left>, z, j Go back in history list"]
2572 [mc "<Right>, x, l Go forward in history list"]
2573 [mc "<PageUp> Move up one page in commit list"]
2574 [mc "<PageDown> Move down one page in commit list"]
2581 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2582 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2583 [mc "<Delete>, b Scroll diff view up one page"]
2584 [mc "<Backspace> Scroll diff view up one page"]
2585 [mc "<Space> Scroll diff view down one page"]
2586 [mc "u Scroll diff view up 18 lines"]
2587 [mc "d Scroll diff view down 18 lines"]
2590 [mc "<Return> Move to next find hit"]
2591 [mc "/ Move to next find hit, or redo find"]
2592 [mc "? Move to previous find hit"]
2593 [mc "f Scroll diff view to next file"]
2600 [mc "<F5> Update"]
2601 " \
2602 -justify left -bg white -border 2 -relief groove
2609 }
2611 # Procedures for manipulating the file list window at the
2612 # bottom right of the overall window.
2614 proc treeview {w l openlevs} {
2615 global treecontents treediropen treeheight treeparent treeindex
2617 set ix 0
2618 set treeindex() 0
2619 set lev 0
2620 set prefix {}
2621 set prefixend -1
2622 set prefendstack {}
2623 set htstack {}
2624 set ht 0
2625 set treecontents() {}
2632 }
2639 incr lev -1
2640 }
2644 set ht 0
2656 set ht 1
2661 set str "\n"
2669 }
2670 incr lev
2671 }
2674 incr ht
2675 set str "\n"
2679 }
2681 }
2682 }
2690 }
2692 }
2694 proc linetoelt {l} {
2695 global treeheight treecontents
2697 set y 2
2698 set prefix {}
2699 while {1} {
2703 }
2704 set n 1
2709 incr y
2710 break
2711 }
2712 }
2714 }
2715 }
2716 }
2718 proc highlight_tree {y prefix} {
2719 global treeheight treecontents cflist
2725 }
2726 incr y
2729 }
2730 }
2732 }
2734 proc treeclosedir {w dir} {
2735 global treediropen treeheight treeparent treeindex
2747 }
2748 }
2750 proc treeopendir {w dir} {
2751 global treediropen treeheight treeparent treecontents treeindex
2758 set lev 0
2759 set str "\n"
2762 incr lev
2763 append str "\t"
2765 }
2780 } else {
2783 }
2784 }
2797 }
2799 }
2800 }
2802 proc treeclick {w x y} {
2803 global treediropen cmitmode ctext cflist cflist_top
2806 if {![info exists cflist_top]} return
2813 return
2814 }
2820 } else {
2822 }
2823 }
2825 proc setfilelist {id} {
2826 global treefilelist cflist
2829 }
2831 image create bitmap tri-rt -background black -foreground blue -data {
2832 #define tri-rt_width 13
2833 #define tri-rt_height 13
2834 static unsigned char tri-rt_bits[] = {
2835 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2836 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2837 0x00, 0x00};
2838 } -maskdata {
2839 #define tri-rt-mask_width 13
2840 #define tri-rt-mask_height 13
2841 static unsigned char tri-rt-mask_bits[] = {
2842 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2843 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2844 0x08, 0x00};
2845 }
2846 image create bitmap tri-dn -background black -foreground blue -data {
2847 #define tri-dn_width 13
2848 #define tri-dn_height 13
2849 static unsigned char tri-dn_bits[] = {
2850 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2851 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2852 0x00, 0x00};
2853 } -maskdata {
2854 #define tri-dn-mask_width 13
2855 #define tri-dn-mask_height 13
2856 static unsigned char tri-dn-mask_bits[] = {
2857 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2858 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2859 0x00, 0x00};
2860 }
2862 image create bitmap reficon-T -background black -foreground yellow -data {
2863 #define tagicon_width 13
2864 #define tagicon_height 9
2865 static unsigned char tagicon_bits[] = {
2866 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2867 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2868 } -maskdata {
2869 #define tagicon-mask_width 13
2870 #define tagicon-mask_height 9
2871 static unsigned char tagicon-mask_bits[] = {
2872 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2873 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2874 }
2875 set rectdata {
2876 #define headicon_width 13
2877 #define headicon_height 9
2878 static unsigned char headicon_bits[] = {
2879 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2880 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2881 }
2882 set rectmask {
2883 #define headicon-mask_width 13
2884 #define headicon-mask_height 9
2885 static unsigned char headicon-mask_bits[] = {
2886 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2887 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2888 }
2889 image create bitmap reficon-H -background black -foreground green \
2891 image create bitmap reficon-o -background black -foreground "#ddddff" \
2894 proc init_flist {first} {
2895 global cflist cflist_top difffilestart
2901 set cflist_top 1
2903 } else {
2904 catch {unset cflist_top}
2905 }
2907 set difffilestart {}
2908 }
2910 proc highlight_tag {f} {
2911 global highlight_paths
2915 return "bold"
2916 }
2917 }
2918 return {}
2919 }
2921 proc highlight_filelist {} {
2922 global cmitmode cflist
2931 }
2932 }
2933 } else {
2934 highlight_tree 2 {}
2935 }
2937 }
2939 proc unhighlight_filelist {} {
2940 global cflist
2945 }
2947 proc add_flist {fl} {
2948 global cflist
2954 }
2956 }
2958 proc sel_flist {w x y} {
2959 global ctext difffilestart cflist cflist_top cmitmode
2962 if {![info exists cflist_top]} return
2969 } else {
2971 }
2972 }
2974 proc pop_flist_menu {w X Y x y} {
2975 global ctext cflist cmitmode flist_menu flist_menu_file
2976 global treediffs diffids
2978 stopfinding
2984 } else {
2986 }
2988 set xdiffstate "normal"
2990 set xdiffstate "disabled"
2991 }
2992 # Disable "External diff" item in tree mode
2995 }
2997 proc flist_hl {only} {
2998 global flist_menu_file findstring gdttype
3003 } else {
3005 }
3006 set gdttype [mc "touching paths:"]
3007 }
3009 proc save_file_from_commit {filename output what} {
3010 global nullfile
3015 }
3017 return {}
3018 }
3020 }
3022 proc external_diff_get_one_file {diffid filename diffdir} {
3023 global nullid nullid2 nullfile
3024 global gitdir
3030 }
3032 }
3036 }
3040 }
3042 proc external_diff {} {
3043 global gitktmpdir nullid nullid2
3044 global flist_menu_file
3045 global diffids
3046 global diffnum
3047 global gitdir extdifftool
3050 # no reference commit given
3053 # diffing working copy with index
3056 # diffing index with HEAD
3057 set diffidfrom "HEAD"
3058 } else {
3059 # use first parent commit
3060 global parentlist selectedline
3062 }
3063 } else {
3066 }
3068 # make sure that several diffs wont collide
3069 if {![info exists gitktmpdir]} {
3071 [format ".gitk-tmp.%s" [pid]]]
3074 unset gitktmpdir
3075 return
3076 }
3077 set diffnum 0
3078 }
3079 incr diffnum
3083 return
3084 }
3086 # gather files to diff
3096 } else {
3099 }
3100 }
3101 }
3103 proc external_blame {parent_idx} {
3104 global flist_menu_file
3105 global nullid nullid2
3106 global parentlist selectedline currentid
3110 } else {
3112 }
3115 error_popup [mc "No such commit"]
3116 return
3117 }
3121 }
3122 }
3125 proc delete_at_eof {f dir} {
3130 }
3132 return 0
3133 }
3134 return 1
3135 }
3137 # Functions for adding and removing shell-type quoting
3139 proc shellquote {str} {
3142 }
3145 }
3148 }
3150 }
3152 proc shellarglist {l} {
3153 set str {}
3156 append str " "
3157 }
3159 }
3161 }
3163 proc shelldequote {str} {
3164 set ret {}
3165 set used -1
3166 while {1} {
3167 incr used
3171 break
3172 }
3178 }
3180 incr used
3184 error "unmatched single-quote"
3185 }
3188 continue
3189 }
3192 error "trailing backslash"
3193 }
3195 continue
3196 }
3197 # here ch == "\""
3198 while {1} {
3200 error "unmatched double-quote"
3201 }
3207 }
3209 incr used
3211 incr used
3212 }
3213 }
3215 }
3217 proc shellsplit {str} {
3218 set l {}
3219 while {1} {
3227 }
3229 }
3231 # Code to implement multiple views
3233 proc newview {ishighlight} {
3234 global nextviewnum newviewname newviewperm newishighlight
3235 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3238 set top .gitkview
3241 return
3242 }
3248 }
3250 proc editview {} {
3251 global curview
3252 global viewname viewperm newviewname newviewperm
3253 global viewargs newviewargs viewargscmd newviewargscmd
3258 return
3259 }
3265 }
3267 proc vieweditor {top n title} {
3268 global newviewname newviewperm viewfiles bgcolor
3279 -text [mc "Commits to include (arguments to git log):"]
3286 -text [mc "Command to generate more commits to include:"]
3289 -background white
3293 -text [mc "Enter files and directories to include, one per line:"]
3300 }
3303 }
3313 }
3315 proc doviewmenu {m first cmd op argv} {
3320 break
3321 }
3322 }
3323 }
3325 proc allviewmenus {n op args} {
3326 # global viewhlmenu
3330 }
3332 proc newviewok {top n} {
3333 global nextviewnum newviewperm newviewname newishighlight
3334 global viewname viewfiles viewperm selectedview curview
3335 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3337 if {[catch {
3339 } err]} {
3343 return
3344 }
3345 set files {}
3350 }
3351 }
3353 # creating a new view
3354 incr nextviewnum
3363 } else {
3365 }
3366 } else {
3367 # editing an existing view
3375 }
3382 run reloadcommits
3383 }
3384 }
3385 }
3387 }
3389 proc delview {} {
3390 global curview viewperm hlview selectedhlview
3394 set selectedhlview [mc "None"]
3395 unset hlview
3396 }
3399 showview 0
3400 }
3402 proc addviewmenu {n} {
3403 global viewname viewhlmenu
3409 }
3411 proc showview {n} {
3412 global curview cached_commitrow ordertok
3413 global displayorder parentlist rowidlist rowisopt rowfinal
3414 global colormap rowtextx nextcolor canvxmax
3415 global numcommits viewcomplete
3416 global selectedline currentid canv canvy0
3417 global treediffs
3418 global pending_select mainheadid
3419 global commitidx
3420 global selectedview
3421 global hlview selectedhlview commitinterest
3424 set selid {}
3435 }
3436 } elseif {[info exists pending_select]} {
3438 unset pending_select
3439 }
3440 unselectline
3441 normalline
3442 catch {unset treediffs}
3443 clear_display
3445 unset hlview
3446 set selectedhlview [mc "None"]
3447 }
3448 catch {unset commitinterest}
3449 catch {unset cached_commitrow}
3450 catch {unset ordertok}
3457 run refill_reflist
3460 return
3461 }
3463 set displayorder {}
3464 set parentlist {}
3465 set rowidlist {}
3466 set rowisopt {}
3467 set rowfinal {}
3470 catch {unset colormap}
3471 catch {unset rowtextx}
3472 set nextcolor 0
3475 set row 0
3476 setcanvscroll
3477 set yf 0
3478 set row {}
3481 # try to get the selected row in the same position on the screen
3485 set ytop 0
3486 }
3488 }
3490 drawvisible
3495 } else {
3496 reset_pending_select {}
3500 } else {
3501 set row [first_real_row]
3504 }
3505 }
3506 }
3509 show_status [mc "Reading commits..."]
3510 }
3512 show_status [mc "No commits selected"]
3513 }
3514 }
3516 # Stuff relating to the highlighting facility
3518 proc ishighlighted {id} {
3519 global vhighlights fhighlights nhighlights rhighlights
3523 }
3526 }
3529 }
3532 }
3533 return 0
3534 }
3536 proc bolden {row font} {
3537 global canv linehtag selectedline boldrows
3544 -outline {{}} -tags secsel \
3547 }
3548 }
3550 proc bolden_name {row font} {
3551 global canv2 linentag selectedline boldnamerows
3558 -outline {{}} -tags secsel \
3561 }
3562 }
3564 proc unbolden {} {
3565 global boldrows
3567 set stillbold {}
3571 } else {
3573 }
3574 }
3576 }
3578 proc addvhighlight {n} {
3579 global hlview viewcomplete curview vhl_done commitidx
3581 if {[info exists hlview]} {
3582 delvhighlight
3583 }
3587 }
3590 drawvisible
3591 }
3592 }
3594 proc delvhighlight {} {
3595 global hlview vhighlights
3597 if {![info exists hlview]} return
3598 unset hlview
3599 catch {unset vhighlights}
3600 unbolden
3601 }
3603 proc vhighlightmore {} {
3604 global hlview vhl_done commitidx vhighlights curview
3607 set vr [visiblerows]
3617 }
3619 }
3620 }
3621 }
3623 return 0
3624 }
3626 proc askvhighlight {row id} {
3627 global hlview vhighlights iddrawn
3632 }
3634 } else {
3636 }
3637 }
3639 proc hfiles_change {} {
3640 global highlight_files filehighlight fhighlights fh_serial
3641 global highlight_paths gdttype
3643 if {[info exists filehighlight]} {
3644 # delete previous highlights
3646 unset filehighlight
3647 catch {unset fhighlights}
3648 unbolden
3649 unhighlight_filelist
3650 }
3651 set highlight_paths {}
3653 incr fh_serial
3656 }
3657 }
3659 proc gdttype_change {name ix op} {
3660 global gdttype highlight_files findstring findpattern
3662 stopfinding
3666 set highlight_files {}
3667 hfiles_change
3668 }
3669 findcom_change
3670 } else {
3672 set findpattern {}
3673 findcom_change
3674 }
3676 hfiles_change
3677 }
3678 drawvisible
3679 }
3680 # enable/disable findtype/findloc menus too
3681 }
3683 proc find_change {name ix op} {
3684 global gdttype findstring highlight_files
3686 stopfinding
3688 findcom_change
3689 } else {
3692 hfiles_change
3693 }
3694 }
3695 drawvisible
3696 }
3698 proc findcom_change args {
3699 global nhighlights boldnamerows
3700 global findpattern findtype findstring gdttype
3702 stopfinding
3703 # delete previous highlights, if any
3706 }
3707 set boldnamerows {}
3708 catch {unset nhighlights}
3709 unbolden
3710 unmarkmatches
3712 set findpattern {}
3715 } else {
3716 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3719 }
3720 }
3722 proc makepatterns {l} {
3723 set ret {}
3728 } else {
3731 }
3732 }
3734 }
3736 proc do_file_hl {serial} {
3737 global highlight_files filehighlight highlight_paths gdttype fhl_list
3742 highlight_filelist
3746 } else {
3747 # must be "containing:", i.e. we're searching commit info
3748 return
3749 }
3754 set fhl_list {}
3755 drawvisible
3756 flushhighlights
3757 }
3759 proc flushhighlights {} {
3760 global filehighlight fhl_list
3762 if {[info exists filehighlight]} {
3763 lappend fhl_list {}
3766 }
3767 }
3769 proc askfilehighlight {row id} {
3770 global filehighlight fhighlights fhl_list
3775 }
3777 proc readfhighlight {} {
3778 global filehighlight fhighlights curview iddrawn
3779 global fhl_list find_dirn
3781 if {![info exists filehighlight]} {
3782 return 0
3783 }
3784 set nr 0
3792 }
3799 }
3801 }
3803 # strange...
3804 puts "oops, git diff-tree died"
3806 unset filehighlight
3807 return 0
3808 }
3809 if {[info exists find_dirn]} {
3810 run findmore
3811 }
3812 return 1
3813 }
3815 proc doesmatch {f} {
3816 global findtype findpattern
3822 } else {
3824 }
3825 }
3827 proc askfindhighlight {row id} {
3828 global nhighlights commitinfo iddrawn
3829 global findloc
3830 global markingmatches
3834 }
3836 set isbold 0
3837 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3842 set isbold 2
3843 break
3844 }
3845 set isbold 1
3846 }
3847 }
3853 }
3854 }
3857 }
3858 }
3860 }
3862 proc markrowmatches {row id} {
3863 global canv canv2 linehtag linentag commitinfo findloc
3874 }
3875 }
3881 }
3882 }
3883 }
3885 proc vrel_change {name ix op} {
3886 global highlight_related
3888 rhighlight_none
3890 run drawvisible
3891 }
3892 }
3894 # prepare for testing whether commits are descendents or ancestors of a
3895 proc rhighlight_sel {a} {
3896 global descendent desc_todo ancestor anc_todo
3897 global highlight_related
3899 catch {unset descendent}
3901 catch {unset ancestor}
3904 rhighlight_none
3905 run drawvisible
3906 }
3907 }
3909 proc rhighlight_none {} {
3910 global rhighlights
3912 catch {unset rhighlights}
3913 unbolden
3914 }
3916 proc is_descendent {a} {
3917 global curview children descendent desc_todo
3922 set leftover {}
3923 set done 0
3928 continue
3929 }
3935 set done 1
3936 }
3937 }
3938 }
3941 return
3942 }
3943 }
3946 }
3948 proc is_ancestor {a} {
3949 global curview parents ancestor anc_todo
3954 set leftover {}
3955 set done 0
3960 continue
3961 }
3967 set done 1
3968 }
3969 }
3970 }
3973 return
3974 }
3975 }
3978 }
3980 proc askrelhighlight {row id} {
3981 global descendent highlight_related iddrawn rhighlights
3982 global selectedline ancestor
3985 set isbold 0
3990 }
3992 set isbold 1
3993 }
3998 }
4000 set isbold 1
4001 }
4002 }
4006 }
4007 }
4009 }
4011 # Graph layout functions
4013 proc shortids {ids} {
4014 set res {}
4020 } else {
4022 }
4023 }
4025 }
4027 proc ntimes {n o} {
4028 set ret {}
4033 }
4035 }
4037 }
4039 proc ordertoken {id} {
4040 global ordertok curview varcid varcstart varctok curview parents children
4041 global nullid nullid2
4045 }
4047 set todo {}
4048 while {1} {
4052 } else {
4054 }
4057 break
4058 }
4061 # it's a root
4063 break
4064 }
4067 } else {
4071 }
4073 }
4074 }
4079 }
4082 }
4084 # Work out where id should go in idlist so that order-token
4085 # values increase from left to right
4086 proc idcol {idlist id {i 0}} {
4089 set i 0
4090 }
4094 }
4096 incr i
4097 } else {
4101 }
4102 }
4104 }
4106 proc initlayout {} {
4107 global rowidlist rowisopt rowfinal displayorder parentlist
4108 global numcommits canvxmax canv
4109 global nextcolor
4110 global colormap rowtextx
4112 set numcommits 0
4113 set displayorder {}
4114 set parentlist {}
4115 set nextcolor 0
4116 set rowidlist {}
4117 set rowisopt {}
4118 set rowfinal {}
4120 catch {unset colormap}
4121 catch {unset rowtextx}
4122 setcanvscroll
4123 }
4125 proc setcanvscroll {} {
4126 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4127 global lastscrollset lastscrollrows
4133 set lastscrollset [clock clicks -milliseconds]
4135 }
4137 proc visiblerows {} {
4138 global canv numcommits linespc
4146 set r0 0
4147 }
4152 }
4154 }
4156 proc layoutmore {} {
4157 global commitidx viewcomplete curview
4158 global numcommits pending_select curview
4159 global lastscrollset lastscrollrows
4163 setcanvscroll
4164 }
4165 if {[info exists pending_select] &&
4167 update
4169 }
4170 drawvisible
4171 }
4173 proc doshowlocalchanges {} {
4174 global curview mainheadid
4178 dodiffindex
4179 } else {
4181 }
4182 }
4184 proc dohidelocalchanges {} {
4185 global nullid nullid2 lserial curview
4189 }
4192 }
4193 incr lserial
4194 }
4196 # spawn off a process to do git diff-index --cached HEAD
4197 proc dodiffindex {} {
4198 global lserial showlocalchanges
4199 global isworktree
4202 incr lserial
4203 set fd [open "|git diff-index --cached HEAD" r]
4207 }
4209 proc readdiffindex {fd serial inst} {
4210 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4212 set isdiff 1
4215 return 1
4216 }
4217 set isdiff 0
4218 }
4219 # we only need to see one line and we don't really care what it says...
4223 return 0
4224 }
4226 # now see if there are any local changes not checked in to the index
4227 set fd [open "|git diff-files" r]
4233 # add the line for the changes in the index to the graph
4234 set hl [mc "Local changes checked in to index but not committed"]
4239 }
4243 }
4244 return 0
4245 }
4247 proc readdifffiles {fd serial inst} {
4248 global mainheadid nullid nullid2 curview
4249 global commitinfo commitdata lserial
4251 set isdiff 1
4254 return 1
4255 }
4256 set isdiff 0
4257 }
4258 # we only need to see one line and we don't really care what it says...
4262 return 0
4263 }
4266 # add the line for the local diff to the graph
4267 set hl [mc "Local uncommitted changes, not checked in to index"]
4272 } else {
4274 }
4278 }
4279 return 0
4280 }
4282 proc nextuse {id row} {
4283 global curview children
4288 return -1
4289 }
4292 }
4293 }
4294 }
4297 }
4298 return -1
4299 }
4301 proc prevuse {id row} {
4302 global curview children
4304 set ret -1
4310 }
4311 }
4312 }
4314 }
4316 proc make_idlist {row} {
4317 global displayorder parentlist uparrowlen downarrowlen mingaplen
4318 global commitidx curview children
4322 set r 0
4323 }
4326 set ra 0
4327 }
4331 }
4333 set ids {}
4342 }
4343 }
4344 }
4352 }
4353 }
4354 }
4362 }
4363 }
4364 incr r
4370 }
4371 }
4372 }
4373 set idlist {}
4376 }
4378 }
4380 proc rowsequal {a b} {
4383 }
4386 }
4388 }
4390 proc makeupline {id row rend col} {
4391 global rowidlist uparrowlen downarrowlen mingaplen
4397 }
4400 }
4407 }
4408 }
4409 }
4411 proc layoutrows {row endrow} {
4412 global rowidlist rowisopt rowfinal displayorder
4413 global uparrowlen downarrowlen maxwidth mingaplen
4414 global children parentlist
4415 global commitidx viewcomplete curview
4418 set idlist {}
4424 }
4425 }
4427 }
4432 set final 1
4433 } else {
4441 # if not the first child, we have to insert a line going up
4444 }
4445 }
4446 }
4456 }
4457 }
4458 }
4465 }
4466 }
4476 }
4477 }
4485 }
4486 }
4487 }
4488 }
4489 }
4493 set final 0
4494 }
4498 lappend rowisopt 0
4504 }
4506 } else {
4513 }
4514 }
4516 }
4518 proc changedrow {row} {
4519 global displayorder iddrawn rowisopt need_redisplay
4528 }
4529 }
4530 }
4533 set need_redisplay 1
4534 }
4535 }
4537 proc insert_pad {row col npad} {
4538 global rowidlist
4547 }
4550 }
4552 proc optimize_rows {row col endrow} {
4553 global rowidlist rowisopt displayorder curview children
4556 set row 1
4557 }
4560 set haspad 0
4569 } else {
4570 set pprevidlist {}
4571 }
4572 set x0 -1
4573 set xm -1
4578 set haspad 1
4579 continue
4580 }
4584 set isarrow 0
4585 set z0 {}
4590 }
4591 }
4596 set isarrow 1
4597 }
4598 }
4601 set isarrow 1
4602 }
4603 # Looking at lines from this row to the previous row,
4604 # make them go straight up if they end in an arrow on
4605 # the previous row; otherwise make them go straight up
4606 # or at 45 degrees.
4608 # Line currently goes left too much;
4609 # insert pads in the previous row, then optimize it
4614 }
4622 }
4624 # Line currently goes right too much;
4625 # insert pads in this line
4631 set haspad 1
4632 }
4639 }
4640 }
4641 # avoid lines jigging left then immediately right
4644 incr x0
4647 }
4648 }
4650 # Find the first column that doesn't have a line going right
4656 # check if this is the link to the first child
4659 # it is, work out offset to child
4661 }
4662 }
4664 }
4665 # Insert a pad at that column as long as it has a line and
4666 # isn't the last column
4671 }
4672 }
4673 }
4674 }
4676 proc xc {row col} {
4677 global canvx0 linespc
4679 }
4681 proc yc {row} {
4682 global canvy0 linespc
4684 }
4686 proc linewidth {id} {
4687 global thickerline lthickness
4692 }
4694 }
4696 proc rowranges {id} {
4697 global curview children uparrowlen downarrowlen
4698 global rowidlist
4702 return {}
4703 }
4704 set ret {}
4709 if {![info exists prev]} {
4711 } else {
4713 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4714 }
4715 # see if the line extends the whole way from prevrow to row
4719 # it doesn't, see where it ends
4724 } else {
4727 incr r -1
4728 }
4730 # see where it starts up again
4735 } else {
4738 incr r
4739 }
4741 }
4742 }
4745 }
4748 }
4750 }
4752 proc drawlineseg {id row endrow arrowlow} {
4753 global rowidlist displayorder iddrawn linesegs
4754 global canv colormap linespc curview maxlinelen parentlist
4758 set arrowhigh 1
4759 while {1} {
4762 incr le -1
4763 break
4764 }
4768 set arrowhigh 0
4769 break
4770 }
4775 set arrowhigh 0
4776 }
4777 break
4778 }
4779 incr le
4780 }
4783 }
4785 set lines {}
4786 set i 0
4787 set joinhigh 0
4794 set joinhigh 1
4795 }
4796 break
4797 }
4798 incr i
4799 }
4800 }
4801 set joinlow 0
4806 set joinlow 1
4807 }
4808 }
4821 }
4822 } else {
4824 }
4832 set arrowlow 0
4833 }
4834 }
4842 }
4844 }
4847 # join parent line to first child
4858 } else {
4860 }
4868 }
4870 }
4872 } else {
4876 }
4884 } else {
4888 }
4890 }
4891 } else {
4897 }
4901 } else {
4902 # coalesce two pieces
4907 }
4911 }
4912 }
4916 }
4918 proc drawparentlinks {id row} {
4919 global rowidlist canv colormap curview parentlist
4920 global idpos linespc
4933 # rmx = right-most X coord used
4934 set rmx 0
4939 continue
4940 }
4944 }
4947 # drawlineseg will do this one for us
4948 continue
4949 }
4951 # should handle duplicated parents here...
4954 # if attaching to a vertical segment, draw a smaller
4955 # slant for visual distinctness
4959 } else {
4961 }
4963 # segment slants towards us already
4965 } else {
4970 }
4972 }
4973 } else {
4975 }
4980 }
4984 }
4985 }
4987 proc drawlines {id} {
4988 global canv
4991 }
4993 proc drawcmittext {id row col} {
4994 global linespc canv canv2 canv3 fgcolor curview
4995 global cmitlisted commitinfo rowidlist parentlist
4996 global rowtextx idpos idtags idheads idotherrefs
4997 global linehtag linentag linedtag selectedline
4998 global canvxmax boldrows boldnamerows fgcolor
4999 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5001 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5004 set ofill red
5006 set ofill green
5008 set ofill yellow
5009 } else {
5011 }
5020 # triangle pointing left for left-side commits
5026 } else {
5027 # triangle pointing right for right-side commits
5033 }
5045 }
5046 }
5047 }
5054 }
5059 set font mainfont
5060 set nfont mainfont
5064 set font mainfontbold
5067 set nfont mainfontbold
5068 }
5069 }
5079 }
5083 setcanvscroll
5084 }
5085 }
5087 proc drawcmitrow {row} {
5088 global displayorder rowidlist nrows_drawn
5089 global iddrawn markingmatches
5090 global commitinfo numcommits
5091 global filehighlight fhighlights findpattern nhighlights
5092 global hlview vhighlights
5093 global highlight_related rhighlights
5100 }
5103 }
5106 }
5109 }
5114 return
5115 }
5118 }
5122 incr nrows_drawn
5123 }
5126 }
5127 }
5129 proc drawcommits {row {endrow {}}} {
5130 global numcommits iddrawn displayorder curview need_redisplay
5131 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5134 set row 0
5135 }
5138 }
5141 }
5145 set rl1 0
5146 }
5149 set ro1 0
5150 }
5154 }
5159 }
5161 }
5162 }
5165 }
5168 clear_display
5169 drawvisible
5170 }
5172 # make the lines join to already-drawn rows either side
5176 }
5181 }
5196 # see if this is the first child of any of its parents
5199 # make this line extend up to the child
5201 }
5202 }
5203 } else {
5205 }
5206 }
5207 }
5208 }
5210 proc undolayout {row} {
5211 global uparrowlen mingaplen downarrowlen
5212 global rowidlist rowisopt rowfinal need_redisplay
5216 set r 0
5217 }
5219 incr r -1
5223 set need_redisplay 1
5224 run drawvisible
5225 }
5226 }
5228 proc drawvisible {} {
5229 global canv linespc curview vrowmod selectedline targetrow targetid
5230 global need_redisplay cscroll numcommits
5240 if {[info exists targetid]} {
5244 # Fix up the scrollregion and change the scrolling position
5245 # now that our target row has moved.
5248 setcanvscroll
5256 set need_redisplay 1
5257 }
5258 } else {
5259 unset targetid
5260 }
5261 }
5267 }
5271 } elseif {[info exists targetid]} {
5273 }
5274 if {[info exists targetrow]} {
5277 }
5279 }
5281 }
5283 proc clear_display {} {
5284 global iddrawn linesegs need_redisplay nrows_drawn
5285 global vhighlights fhighlights nhighlights rhighlights
5286 global linehtag linentag linedtag boldrows boldnamerows
5288 allcanvs delete all
5289 catch {unset iddrawn}
5290 catch {unset linesegs}
5291 catch {unset linehtag}
5292 catch {unset linentag}
5293 catch {unset linedtag}
5294 set boldrows {}
5295 set boldnamerows {}
5296 catch {unset vhighlights}
5297 catch {unset fhighlights}
5298 catch {unset nhighlights}
5299 catch {unset rhighlights}
5300 set need_redisplay 0
5301 set nrows_drawn 0
5302 }
5304 proc findcrossings {id} {
5305 global rowidlist parentlist numcommits displayorder
5307 set cross {}
5308 set ccross {}
5312 }
5331 }
5332 }
5333 }
5334 }
5335 }
5337 }
5339 proc assigncolor {id} {
5340 global colormap colors nextcolor
5341 global parents children children curview
5347 } else {
5348 set kids {}
5349 }
5355 return
5356 }
5357 }
5358 set badcolors {}
5359 set origbad {}
5362 # delimiter between corner crossings and other crossings
5365 }
5369 }
5370 }
5373 }
5380 }
5385 }
5386 }
5387 }
5390 }
5391 }
5395 set nextcolor 0
5396 }
5398 }
5400 }
5402 proc bindline {t id} {
5403 global canv
5409 }
5411 proc drawtags {id x xt y1} {
5412 global idtags idheads idotherrefs mainhead
5413 global linespc lthickness
5414 global canv rowtextx curview fgcolor bgcolor ctxbut
5416 set marks {}
5417 set ntags 0
5418 set nheads 0
5422 }
5426 }
5429 }
5432 }
5437 set xvals {}
5438 set wvals {}
5439 set i -1
5441 incr i
5444 } else {
5446 }
5450 }
5457 set font mainfont
5458 if {[incr ntags -1] >= 0} {
5459 # draw a tag
5465 } else {
5466 # draw a head or other ref
5467 if {[incr nheads -1] >= 0} {
5468 set col green
5470 set font mainfontbold
5471 }
5472 } else {
5473 set col "#ddddff"
5474 }
5485 }
5486 }
5493 }
5494 }
5496 }
5498 proc xcoord {i level ln} {
5499 global canvx0 xspc1 xspc2
5506 }
5508 }
5510 proc show_status {msg} {
5511 global canv fgcolor
5513 clear_display
5516 }
5518 # Don't change the text pane cursor if it is currently the hand cursor,
5519 # showing that we are over a sha1 ID link.
5520 proc settextcursor {c} {
5521 global ctext curtextcursor
5525 }
5527 }
5529 proc nowbusy {what {name {}}} {
5530 global isbusy busyname statusw
5532 if {[array names isbusy] eq {}} {
5533 . config -cursor watch
5534 settextcursor watch
5535 }
5540 }
5541 }
5543 proc notbusy {what} {
5544 global isbusy maincursor textcursor busyname statusw
5546 catch {
5551 }
5552 }
5553 if {[array names isbusy] eq {}} {
5556 }
5557 }
5559 proc findmatches {f} {
5560 global findtype findstring
5563 } else {
5568 }
5569 set matches {}
5570 set i 0
5575 }
5576 }
5578 }
5580 proc dofind {{dirn 1} {wrap 1}} {
5581 global findstring findstartline findcurline selectedline numcommits
5582 global gdttype filehighlight fh_serial find_dirn findallowwrap
5584 if {[info exists find_dirn]} {
5586 stopfinding
5587 }
5588 focus .
5592 } else {
5594 }
5596 nowbusy finding [mc "Searching"]
5600 }
5603 run findmore
5604 }
5606 proc stopfinding {} {
5607 global find_dirn findcurline fprogcoord
5609 if {[info exists find_dirn]} {
5610 unset find_dirn
5611 unset findcurline
5612 notbusy finding
5613 set fprogcoord 0
5614 adjustprogress
5615 }
5616 }
5618 proc findmore {} {
5619 global commitdata commitinfo numcommits findpattern findloc
5620 global findstartline findcurline findallowwrap
5621 global find_dirn gdttype fhighlights fprogcoord
5622 global curview varcorder vrownum varccommits vrowmod
5624 if {![info exists find_dirn]} {
5625 return 0
5626 }
5627 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5629 set moretodo 0
5631 incr l
5633 set l 0
5634 }
5637 } else {
5640 }
5641 } else {
5644 }
5645 incr l -1
5648 } else {
5649 set lim -1
5651 }
5652 }
5655 set n 500
5656 set moretodo 1
5657 }
5660 }
5661 set found 0
5662 set domore 1
5676 }
5678 # shouldn't happen unless git log doesn't give all the commits...
5681 continue
5682 }
5685 }
5690 set found 1
5691 break
5692 }
5693 }
5695 }
5696 } else {
5704 }
5709 }
5712 break
5713 }
5716 set domore 0
5718 }
5719 }
5720 }
5721 }
5723 unset findcurline
5724 unset find_dirn
5725 notbusy finding
5726 set fprogcoord 0
5727 adjustprogress
5730 } else {
5731 bell
5732 }
5733 return 0
5734 }
5736 flushhighlights
5737 } else {
5739 }
5743 }
5745 adjustprogress
5747 }
5749 proc findselectline {l} {
5750 global findloc commentend ctext findcurline markingmatches gdttype
5752 set markingmatches 1
5756 # highlight the matches in the comments
5763 }
5764 }
5765 drawvisible
5766 }
5768 # mark the bits of a headline or author that match a find string
5769 proc markmatches {canv l str tag matches font row} {
5770 global selectedline
5788 }
5789 }
5790 }
5792 proc unmarkmatches {} {
5793 global markingmatches
5795 allcanvs delete matches
5796 set markingmatches 0
5797 stopfinding
5798 }
5800 proc selcanvline {w x y} {
5801 global canv canvy0 ctext linespc
5802 global rowtextx
5809 set l 0
5810 }
5815 }
5816 unmarkmatches
5818 }
5820 proc commit_descriptor {p} {
5821 global commitinfo
5824 }
5825 set l "..."
5828 }
5830 }
5832 # append some text to the ctext widget, and make any SHA1 ID
5833 # that we know about be a clickable link.
5834 proc appendwithlinks {text tags} {
5835 global ctext linknum curview
5844 incr e
5848 incr linknum
5849 }
5850 }
5852 proc setlink {id lk} {
5853 global curview ctext pendinglinks
5855 set known 0
5860 set known 1
5862 }
5863 } else {
5865 }
5871 } else {
5874 }
5875 }
5877 proc makelink {id} {
5878 global pendinglinks
5883 }
5885 }
5887 proc linkcursor {w inc} {
5888 global linkentercount curtextcursor
5892 } else {
5895 set linkentercount 0
5896 }
5897 }
5898 }
5900 proc viewnextline {dir} {
5901 global canv linespc
5909 set newtop 0
5912 }
5914 }
5916 # add a list of tag or branch names at position pos
5917 # returns the number of names inserted
5918 proc appendrefs {pos ids var} {
5922 return 0
5923 }
5926 set tags {}
5930 }
5931 }
5934 } else {
5936 set sep {}
5940 incr linknum
5945 set sep ", "
5946 }
5947 }
5950 }
5952 # called when we have finished computing the nearby tags
5953 proc dispneartags {delay} {
5954 global selectedline currentid showneartags tagphase
5957 after cancel dispnexttag
5959 after 200 dispnexttag
5960 set tagphase -1
5961 } else {
5962 after idle dispnexttag
5963 set tagphase 0
5964 }
5965 }
5967 proc dispnexttag {} {
5968 global selectedline currentid showneartags tagphase ctext
5972 0 {
5976 }
5977 }
5978 1 {
5982 }
5983 }
5984 2 {
5989 # turn "Branch" into "Branches"
5993 }
5994 }
5995 }
5996 }
5997 if {[incr tagphase] <= 2} {
5998 after idle dispnexttag
5999 }
6000 }
6002 proc make_secsel {l} {
6003 global linehtag linentag linedtag canv canv2 canv3
6018 }
6020 proc selectline {l isnew} {
6021 global canv ctext commitinfo selectedline
6022 global canvy0 linespc parents children curview
6023 global currentid sha1entry
6024 global commentend idtags linknum
6025 global mergemax numcommits pending_select
6026 global cmitmode showneartags allcommits
6027 global targetrow targetid lastscrollrows
6028 global autoselect
6030 catch {unset pending_select}
6032 normalline
6033 unsel_reflist
6034 stopfinding
6042 setcanvscroll
6043 }
6057 } else {
6061 }
6062 }
6066 } else {
6070 }
6071 }
6072 }
6075 set newtop 0
6076 }
6078 drawvisible
6079 }
6085 }
6092 }
6096 clear_ctext
6097 set linknum 0
6100 }
6110 }
6112 }
6114 set headers {}
6117 set np 0
6120 set tag mmax
6121 } else {
6123 }
6126 incr np
6127 }
6128 } else {
6131 }
6132 }
6136 }
6138 # make anything that looks like a SHA1 ID be a clickable link
6141 if {![info exists allcommits]} {
6142 getallcommits
6143 }
6154 dispneartags 1
6155 }
6160 }
6167 init_flist [mc "Comments"]
6172 } else {
6174 }
6175 }
6177 proc selfirstline {} {
6178 unmarkmatches
6179 selectline 0 1
6180 }
6182 proc sellastline {} {
6183 global numcommits
6184 unmarkmatches
6187 }
6189 proc selnextline {dir} {
6190 global selectedline
6191 focus .
6194 unmarkmatches
6196 }
6198 proc selnextpage {dir} {
6199 global canv linespc selectedline numcommits
6203 set lpp 1
6204 }
6206 drawvisible
6210 set l 0
6213 }
6214 unmarkmatches
6216 }
6218 proc unselectline {} {
6219 global selectedline currentid
6221 set selectedline {}
6222 catch {unset currentid}
6223 allcanvs delete secsel
6224 rhighlight_none
6225 }
6227 proc reselectline {} {
6228 global selectedline
6232 }
6233 }
6235 proc addtohistory {cmd} {
6236 global history historyindex curview
6241 return
6242 }
6246 } else {
6248 }
6249 incr historyindex
6251 .tf.bar.leftbut conf -state normal
6252 } else {
6253 .tf.bar.leftbut conf -state disabled
6254 }
6255 .tf.bar.rightbut conf -state disabled
6256 }
6258 proc godo {elt} {
6259 global curview
6265 }
6267 }
6269 proc goback {} {
6270 global history historyindex
6271 focus .
6274 incr historyindex -1
6276 .tf.bar.rightbut conf -state normal
6277 }
6279 .tf.bar.leftbut conf -state disabled
6280 }
6281 }
6283 proc goforw {} {
6284 global history historyindex
6285 focus .
6289 incr historyindex
6291 .tf.bar.leftbut conf -state normal
6292 }
6294 .tf.bar.rightbut conf -state disabled
6295 }
6296 }
6298 proc gettree {id} {
6299 global treefilelist treeidlist diffids diffmergeid treepending
6300 global nullid nullid2
6303 catch {unset diffmergeid}
6305 if {![info exists treepending]} {
6307 set cmd [list | git ls-files]
6309 set cmd [list | git ls-files --stage -t]
6310 } else {
6312 }
6314 return
6315 }
6321 }
6322 } else {
6324 }
6325 }
6327 proc gettreeline {gtf id} {
6328 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6330 set nl 0
6334 } else {
6342 }
6345 }
6348 }
6351 }
6353 unset treepending
6355 if {![info exists diffmergeid]} {
6357 }
6360 } else {
6362 }
6363 return 0
6364 }
6366 proc showfile {f} {
6367 global treefilelist treeidlist diffids nullid nullid2
6368 global ctext commentend
6373 return
6374 }
6378 return
6379 }
6380 } else {
6384 return
6385 }
6386 }
6395 settabs 0
6396 }
6398 proc getblobline {bf id} {
6399 global diffids cmitmode ctext
6403 return 0
6404 }
6406 set nl 0
6409 }
6411 # delete last newline
6414 return 0
6415 }
6418 }
6420 proc mergediff {id} {
6421 global diffmergeid mdifffd
6422 global diffids
6423 global parents
6424 global diffcontext
6425 global diffencoding
6426 global limitdiffs vfilelimit curview
6430 # this doesn't seem to actually affect anything...
6434 }
6437 return
6438 }
6442 set diffencoding [get_path_encoding {}]
6445 }
6447 proc getmergediffline {mdf id np} {
6448 global diffmergeid ctext cflist mergemax
6449 global difffilestart mdifffd
6450 global diffencoding
6453 set nr 0
6458 return 0
6459 }
6461 # start of a new file
6475 # do nothing
6476 } else {
6478 # parse the prefix - one ' ', '-' or '+' for each parent
6479 set spaces {}
6480 set minuses {}
6481 set pluses {}
6482 set isbad 0
6491 } else {
6492 set isbad 1
6493 break
6494 }
6495 }
6496 set tags {}
6497 set num {}
6503 lappend tags mresult
6505 }
6508 set num "max"
6509 }
6511 }
6513 }
6514 }
6518 return 0
6519 }
6521 }
6523 proc startdiff {ids} {
6524 global treediffs diffids treepending diffmergeid nullid nullid2
6526 settabs 1
6528 catch {unset diffmergeid}
6532 if {![info exists treepending]} {
6534 }
6535 } else {
6537 }
6538 }
6540 proc path_filter {filter name} {
6545 return 1
6546 }
6547 } else {
6551 return 1
6552 }
6553 }
6554 }
6555 return 0
6556 }
6558 proc addtocflist {ids} {
6559 global treediffs
6563 }
6565 proc diffcmd {ids flags} {
6566 global nullid nullid2
6572 # comparing working directory with some specific revision
6576 } else {
6578 }
6579 } else {
6580 # comparing working directory with index
6583 lappend cmd -R
6584 }
6585 }
6589 # comparing index with specific revision
6592 } else {
6594 }
6595 } else {
6596 # comparing index with HEAD
6597 lappend cmd HEAD
6598 }
6599 } else {
6601 }
6603 }
6605 proc gettreediffs {ids} {
6606 global treediff treepending
6611 set treediff {}
6614 }
6616 proc gettreediffline {gdtf ids} {
6617 global treediff treediffs treepending diffids diffmergeid
6618 global cmitmode vfilelimit curview limitdiffs perfile_attrs
6620 set nr 0
6621 set sublist {}
6622 set max 1000
6624 # cache_gitattr is slow, and even slower on win32 where we
6625 # have to invoke it for only about 30 paths at a time
6626 set max 500
6627 if {[tk windowingsystem] == "win32"} {
6628 set max 120
6629 }
6630 }
6637 }
6641 }
6642 }
6645 }
6648 }
6651 set flist {}
6655 }
6656 }
6658 } else {
6660 }
6661 unset treepending
6665 if {![info exists diffmergeid]} {
6667 }
6668 } else {
6670 }
6671 return 0
6672 }
6674 # empty string or positive integer
6675 proc diffcontextvalidate {v} {
6677 }
6679 proc diffcontextchange {n1 n2 op} {
6680 global diffcontextstring diffcontext
6685 reselectline
6686 }
6687 }
6688 }
6690 proc changeignorespace {} {
6691 reselectline
6692 }
6694 proc getblobdiffs {ids} {
6695 global blobdifffd diffids env
6696 global diffinhdr treediffs
6697 global diffcontext
6698 global ignorespace
6699 global limitdiffs vfilelimit curview
6700 global diffencoding
6704 append cmd " -w"
6705 }
6708 }
6711 return
6712 }
6713 set diffinhdr 0
6714 set diffencoding [get_path_encoding {}]
6718 }
6720 proc setinlist {var i val} {
6725 }
6728 } else {
6730 }
6731 }
6733 proc makediffhdr {fname ids} {
6734 global ctext curdiffstart treediffs
6739 }
6743 }
6745 proc getblobdiffline {bdf ids} {
6746 global diffids blobdifffd ctext curdiffstart
6747 global diffnexthead diffnextnote difffilestart
6748 global diffinhdr treediffs
6749 global diffencoding
6751 set nr 0
6756 return 0
6757 }
6759 # trim off "diff --git "
6761 set diffinhdr 1
6762 # start of a new file
6766 # If the name hasn't changed the length will be odd,
6767 # the middle char will be a space, and the two bits either
6768 # side will be a/name and b/name, or "a/name" and "b/name".
6769 # If the name has changed we'll get "rename from" and
6770 # "rename to" or "copy from" and "copy to" lines following this,
6771 # and we'll use them to get the filenames.
6772 # This complexity is necessary because spaces in the filename(s)
6773 # don't get escaped.
6779 continue
6780 }
6781 # unescape if quoted and chop off the a/ from the front
6784 } else {
6786 }
6791 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6795 set diffinhdr 0
6802 }
6807 }
6813 }
6818 # do nothing
6819 continue
6821 set diffinhdr 0
6822 continue
6823 }
6826 } else {
6834 } else {
6835 # "\ No newline at end of file",
6836 # or something else we don't recognize
6838 }
6839 }
6840 }
6844 return 0
6845 }
6847 }
6849 proc changediffdisp {} {
6850 global ctext diffelide
6854 }
6856 proc highlightfile {loc cline} {
6857 global ctext cflist cflist_top
6864 }
6866 proc prevfile {} {
6867 global difffilestart ctext cmitmode
6870 set prev 0.0
6871 set prevline 1
6876 return
6877 }
6879 incr prevline
6880 }
6882 }
6884 proc nextfile {} {
6885 global difffilestart ctext cmitmode
6889 set line 1
6891 incr line
6894 return
6895 }
6896 }
6897 }
6899 proc clear_ctext {{first 1.0}} {
6900 global ctext smarktop smarkbot
6901 global pendinglinks
6906 }
6909 }
6912 catch {unset pendinglinks}
6913 }
6914 }
6916 proc settabs {{firstab {}}} {
6917 global firsttabstop tabstop ctext have_tk85
6921 }
6922 set w [font measure textfont "0"]
6928 } else {
6930 }
6931 }
6933 proc incrsearch {name ix op} {
6934 global ctext searchstring searchdirn
6938 # no anchor set, use start of selection, or of visible area
6944 } else {
6946 }
6947 }
6952 }
6953 searchmarkvisible 1
6954 }
6955 }
6957 proc dosearch {} {
6958 global sstring ctext searchstring searchdirn
6962 set searchdirn -forwards
6968 set start "@0,0"
6969 }
6973 bell
6974 return
6975 }
6980 }
6981 }
6983 proc dosearchback {} {
6984 global sstring ctext searchstring searchdirn
6988 set searchdirn -backwards
6995 }
6999 bell
7000 return
7001 }
7006 }
7007 }
7009 proc searchmark {first last} {
7010 global ctext searchstring
7013 while {1} {
7018 }
7019 }
7021 proc searchmarkvisible {doall} {
7022 global ctext smarktop smarkbot
7027 # no overlap with previous
7031 } else {
7035 }
7039 }
7040 }
7041 }
7043 proc scrolltext {f0 f1} {
7044 global searchstring
7048 searchmarkvisible 0
7049 }
7050 }
7052 proc setcoords {} {
7053 global linespc charspc canvx0 canvy0
7054 global xspc1 xspc2 lthickness
7056 set linespc [font metrics mainfont -linespace]
7057 set charspc [font measure mainfont "m"]
7063 }
7065 proc redisplay {} {
7066 global canv
7067 global selectedline
7072 clear_display
7073 setcanvscroll
7075 drawvisible
7079 }
7080 }
7082 proc parsefont {f n} {
7083 global fontattr
7088 set s 10
7091 }
7097 "normal" -
7099 "roman" -
7101 }
7102 }
7103 }
7105 proc fontflags {f {isbold 0}} {
7106 global fontattr
7111 }
7113 proc fontname {f} {
7114 global fontattr
7118 lappend n "bold"
7119 }
7121 lappend n "italic"
7122 }
7124 }
7126 proc incrfont {inc} {
7127 global mainfont textfont ctext canv cflist showrefstop
7128 global stopped entries fontattr
7130 unmarkmatches
7134 set s 1
7135 }
7139 set mainfont [fontname mainfont]
7143 set s 1
7144 }
7148 set textfont [fontname textfont]
7149 setcoords
7150 settabs
7151 redisplay
7152 }
7154 proc clearsha1 {} {
7155 global sha1entry sha1string
7158 }
7159 }
7161 proc sha1change {n1 n2 op} {
7162 global sha1string currentid sha1but
7165 set state disabled
7166 } else {
7167 set state normal
7168 }
7172 } else {
7174 }
7175 }
7177 proc gotocommit {} {
7178 global sha1string tagids headids curview varcid
7186 } else {
7193 return
7194 }
7196 }
7197 }
7198 }
7201 return
7202 }
7205 } else {
7207 }
7209 }
7211 proc lineenter {x y id} {
7212 global hoverx hovery hoverid hovertimer
7213 global commitinfo canv
7219 if {[info exists hovertimer]} {
7221 }
7222 set hovertimer [after 500 linehover]
7224 }
7226 proc linemotion {x y id} {
7227 global hoverx hovery hoverid hovertimer
7232 if {[info exists hovertimer]} {
7234 }
7235 set hovertimer [after 500 linehover]
7236 }
7237 }
7239 proc lineleave {id} {
7240 global hoverid hovertimer canv
7244 if {[info exists hovertimer]} {
7246 unset hovertimer
7247 }
7248 unset hoverid
7249 }
7250 }
7252 proc linehover {} {
7253 global hoverx hovery hoverid hovertimer
7254 global canv linespc lthickness
7255 global commitinfo
7268 -fill \#ffff80 -outline black -width 1 -tags hover]
7271 -font mainfont]
7273 }
7275 proc clickisonarrow {id y} {
7276 global lthickness
7285 }
7286 }
7287 return {}
7288 }
7290 proc arrowjump {id n y} {
7291 global canv
7293 # 1 <-> 2, 3 <-> 4, etc...
7303 set yfrac 0
7304 }
7306 }
7308 proc lineclick {x y id isnew} {
7309 global ctext commitinfo children canv thickerline curview
7312 unmarkmatches
7313 unselectline
7314 normalline
7316 # draw this line thicker than normal
7324 }
7328 return
7329 }
7333 }
7334 # fill the details pane with info about this line
7336 clear_ctext
7337 settabs 0
7349 set i 0
7351 incr i
7361 }
7362 }
7364 init_flist {}
7365 }
7367 proc normalline {} {
7368 global thickerline
7369 if {[info exists thickerline]} {
7371 unset thickerline
7373 }
7374 }
7376 proc selbyid {id} {
7377 global curview
7380 }
7381 }
7383 proc mstime {} {
7384 global startmstime
7385 if {![info exists startmstime]} {
7386 set startmstime [clock clicks -milliseconds]
7387 }
7389 }
7391 proc rowmenu {x y id} {
7392 global rowctxmenu selectedline rowmenuid curview
7393 global nullid nullid2 fakerowmenu mainhead
7395 stopfinding
7398 set state disabled
7399 } else {
7400 set state normal
7401 }
7406 } else {
7408 }
7409 } else {
7411 }
7416 }
7418 proc diffvssel {dirn} {
7419 global rowmenuid selectedline
7425 } else {
7428 }
7431 }
7433 proc doseldiff {oldid newid} {
7434 global ctext
7435 global commitinfo
7438 clear_ctext
7439 init_flist [mc "Top"]
7454 }
7456 proc mkpatch {} {
7457 global rowmenuid currentid commitinfo patchtop patchnum
7459 if {![info exists currentid]} return
7464 set top .patch
7493 incr patchnum
7503 }
7505 proc mkpatchrev {} {
7506 global patchtop
7512 foreach e [list fromsha1 fromhead tosha1 tohead] \
7518 }
7519 }
7521 proc mkpatchgo {} {
7522 global patchtop nullid nullid2
7528 # trim off the initial "|"
7533 }
7535 unset patchtop
7536 }
7538 proc mkpatchcan {} {
7539 global patchtop
7542 unset patchtop
7543 }
7545 proc mktag {} {
7546 global rowmenuid mktagtop commitinfo
7548 set top .maketag
7574 }
7576 proc domktag {} {
7577 global mktagtop env tagids idtags
7582 error_popup [mc "No tag name specified"]
7583 return
7584 }
7587 return
7588 }
7589 if {[catch {
7591 } err]} {
7593 return
7594 }
7600 dispneartags 0
7601 run refill_reflist
7602 }
7604 proc redrawtags {id} {
7605 global canv linehtag idpos currentid curview cmitlisted
7606 global canvxmax iddrawn circleitem mainheadid circlecolors
7612 set ofill yellow
7613 } else {
7615 }
7625 setcanvscroll
7626 }
7629 }
7630 }
7632 proc mktagcan {} {
7633 global mktagtop
7636 unset mktagtop
7637 }
7639 proc mktaggo {} {
7640 domktag
7641 mktagcan
7642 }
7644 proc writecommit {} {
7645 global rowmenuid wrcomtop commitinfo wrcomcmd
7647 set top .writecommit
7677 }
7679 proc wrcomgo {} {
7680 global wrcomtop
7687 }
7689 unset wrcomtop
7690 }
7692 proc wrcomcan {} {
7693 global wrcomtop
7696 unset wrcomtop
7697 }
7699 proc mkbranch {} {
7700 global rowmenuid mkbrtop
7702 set top .makebranch
7724 }
7726 proc mkbrgo {top} {
7727 global headids idheads
7732 error_popup [mc "Please specify a name for the new branch"]
7733 return
7734 }
7736 nowbusy newbranch
7737 update
7738 if {[catch {
7740 } err]} {
7741 notbusy newbranch
7743 } else {
7747 notbusy newbranch
7749 dispneartags 0
7750 run refill_reflist
7751 }
7752 }
7754 proc cherrypick {} {
7755 global rowmenuid curview
7756 global mainhead mainheadid
7758 set oldhead [exec git rev-parse HEAD]
7761 set ok [confirm_popup [mc "Commit %s is already\
7762 included in branch %s -- really re-apply it?" \
7765 }
7766 nowbusy cherrypick [mc "Cherry-picking"]
7767 update
7768 # Unfortunately git-cherry-pick writes stuff to stderr even when
7769 # no error occurs, and exec takes that as an indication of error...
7771 notbusy cherrypick
7773 return
7774 }
7775 set newhead [exec git rev-parse HEAD]
7777 notbusy cherrypick
7778 error_popup [mc "No changes committed"]
7779 return
7780 }
7787 }
7792 }
7793 notbusy cherrypick
7794 }
7796 proc resethead {} {
7797 global mainhead rowmenuid confirm_ok resettype
7799 set confirm_ok 0
7800 set w ".confirmreset"
7806 -justify center -aspect 1000
7811 set resettype mixed
7813 -text [mc "Soft: Leave working tree and index untouched"]
7816 -text [mc "Mixed: Leave working tree untouched, reset index"]
7819 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7829 if {[catch {set fd [open \
7832 } else {
7833 dohidelocalchanges
7835 nowbusy reset [mc "Resetting"]
7837 }
7838 }
7840 proc readresetstat {fd} {
7841 global mainhead mainheadid showlocalchanges rprogcoord
7846 adjustprogress
7847 }
7848 return 1
7849 }
7850 set rprogcoord 0
7851 adjustprogress
7852 notbusy reset
7855 }
7857 set newhead [exec git rev-parse HEAD]
7864 }
7866 doshowlocalchanges
7867 }
7868 return 0
7869 }
7871 # context menu for a head
7872 proc headmenu {x y id head} {
7873 global headmenuid headmenuhead headctxmenu mainhead
7875 stopfinding
7878 set state normal
7880 set state disabled
7881 }
7885 }
7887 proc cobranch {} {
7888 global headmenuid headmenuhead headids
7889 global showlocalchanges mainheadid
7891 # check the tree is clean first??
7892 nowbusy checkout [mc "Checking out"]
7893 update
7894 dohidelocalchanges
7895 if {[catch {
7897 } err]} {
7898 notbusy checkout
7901 dodiffindex
7902 }
7903 } else {
7905 }
7906 }
7908 proc readcheckoutstat {fd newhead newheadid} {
7909 global mainhead mainheadid headids showlocalchanges progresscoords
7914 adjustprogress
7915 }
7916 return 1
7917 }
7918 set progresscoords {0 0}
7919 adjustprogress
7920 notbusy checkout
7923 }
7931 dodiffindex
7932 }
7933 }
7935 proc rmbranch {} {
7936 global headmenuid headmenuhead mainhead
7937 global idheads
7941 # this check shouldn't be needed any more...
7943 error_popup [mc "Cannot delete the currently checked-out branch"]
7944 return
7945 }
7948 # the stuff on this branch isn't on any other branch
7949 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7951 }
7952 nowbusy rmbranch
7953 update
7955 notbusy rmbranch
7957 return
7958 }
7962 notbusy rmbranch
7963 dispneartags 0
7964 run refill_reflist
7965 }
7967 # Display a list of tags and heads
7968 proc showrefs {} {
7969 global showrefstop bgcolor fgcolor selectbgcolor
7970 global bglist fglist reflistfilter reflist maincursor
7972 set top .showrefs
7976 refill_reflist
7977 return
7978 }
7985 -spacing1 1 -spacing3 1 -state disabled
7996 set reflistfilter "*"
7997 trace add variable reflistfilter write reflistfilter_change
8008 set reflist {}
8009 refill_reflist
8010 }
8012 proc sel_reflist {w x y} {
8013 global showrefstop reflist headids tagids otherrefids
8023 }
8025 }
8027 proc unsel_reflist {} {
8028 global showrefstop
8032 }
8034 proc reflistfilter_change {n1 n2 op} {
8035 global reflistfilter
8037 after cancel refill_reflist
8038 after 200 refill_reflist
8039 }
8041 proc refill_reflist {} {
8042 global reflist reflistfilter showrefstop headids tagids otherrefids
8043 global curview
8046 set refs {}
8047 foreach n [array names headids] {
8051 } else {
8053 }
8054 }
8055 }
8056 foreach n [array names tagids] {
8060 } else {
8062 }
8063 }
8064 }
8065 foreach n [array names otherrefids] {
8069 } else {
8071 }
8072 }
8073 }
8081 set i 0
8082 set j 0
8091 }
8092 } else {
8093 set cmp -1
8094 }
8095 } else {
8096 set cmp 1
8097 }
8099 -1 {
8101 incr i
8102 }
8103 0 {
8104 incr i
8105 incr j
8106 }
8107 1 {
8112 incr j
8113 }
8114 }
8115 }
8117 # delete last newline
8120 }
8122 # Stuff for finding nearby tags
8123 proc getallcommits {} {
8124 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8125 global idheads idtags idotherrefs allparents tagobjid
8127 if {![info exists allcommits]} {
8128 set nextarc 0
8129 set allcommits 0
8130 set seeds {}
8131 set allcwait 0
8132 set cachedarcs 0
8133 set allccache [file join [gitdir] "gitk.cache"]
8134 if {![catch {
8136 set allcwait 1
8138 }]} return
8139 }
8142 return
8143 }
8144 set cmd [list | git rev-list --parents]
8147 set ids "--all"
8148 } else {
8149 set refs [concat [array names idheads] [array names idtags] \
8150 [array names idotherrefs]]
8151 set ids {}
8152 set tagobjs {}
8153 foreach name [array names tagobjid] {
8155 }
8160 }
8161 }
8165 }
8166 }
8167 }
8171 incr allcommits
8172 nowbusy allcommits
8174 } else {
8175 dispneartags 0
8176 }
8177 }
8179 # Since most commits have 1 parent and 1 child, we group strings of
8180 # such commits into "arcs" joining branch/merge points (BMPs), which
8181 # are commits that either don't have 1 parent or don't have 1 child.
8182 #
8183 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8184 # arcout(id) - outgoing arcs for BMP
8185 # arcids(a) - list of IDs on arc including end but not start
8186 # arcstart(a) - BMP ID at start of arc
8187 # arcend(a) - BMP ID at end of arc
8188 # growing(a) - arc a is still growing
8189 # arctags(a) - IDs out of arcids (excluding end) that have tags
8190 # archeads(a) - IDs out of arcids (excluding end) that have heads
8191 # The start of an arc is at the descendent end, so "incoming" means
8192 # coming from descendents, and "outgoing" means going towards ancestors.
8194 proc getallclines {fd} {
8195 global allparents allchildren idtags idheads nextarc
8196 global arcnos arcids arctags arcout arcend arcstart archeads growing
8197 global seeds allcommits cachedarcs allcupdate
8199 set nid 0
8203 # seen it already
8204 continue
8205 }
8206 set cachedarcs 0
8213 } else {
8219 }
8222 }
8224 # seen parent already
8227 }
8231 }
8234 continue
8235 }
8236 }
8241 }
8243 set ao {}
8246 set a [incr nextarc]
8255 # seen it already, may need to make a new branch
8258 }
8262 }
8264 }
8266 }
8268 global cached_dheads cached_dtags cached_atags
8269 catch {unset cached_dheads}
8270 catch {unset cached_dtags}
8271 catch {unset cached_atags}
8272 }
8275 }
8276 set cacheok 1
8277 if {[catch {
8280 } err]} {
8281 # got an error reading the list of commits
8282 # if we were updating, try rereading the whole thing again
8284 incr allcommits -1
8286 return
8287 }
8288 error_popup "[mc "Error reading commit topology information;\
8289 branch and preceding/following tag information\
8291 set cacheok 0
8292 }
8293 if {[incr allcommits -1] == 0} {
8294 notbusy allcommits
8296 run savecache
8297 }
8298 }
8299 dispneartags 0
8300 return 0
8301 }
8303 proc recalcarc {a} {
8304 global arctags archeads arcids idtags idheads
8306 set at {}
8307 set ah {}
8311 }
8314 }
8315 }
8318 }
8320 proc splitarc {p} {
8321 global arcnos arcids nextarc arctags archeads idtags idheads
8322 global arcstart arcend arcout allparents growing
8327 return
8328 }
8333 return
8334 }
8335 set na [incr nextarc]
8338 } else {
8342 }
8352 }
8357 } else {
8360 }
8361 }
8363 # reconstruct tags and heads lists
8367 } else {
8370 }
8371 }
8373 # Update things for a new commit added that is a child of one
8374 # existing commit. Used when cherry-picking.
8375 proc addnewchild {id p} {
8376 global allparents allchildren idtags nextarc
8377 global arcnos arcids arctags arcout arcend arcstart archeads growing
8378 global seeds allcommits
8386 set a [incr nextarc]
8394 }
8397 }
8399 # This implements a cache for the topology information.
8400 # The cache saves, for each arc, the start and end of the arc,
8401 # the ids on the arc, and the outgoing arcs from the end.
8402 proc readcache {f} {
8403 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8404 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8405 global allcwait
8411 }
8412 if {[catch {
8414 # finish reading the cache and setting up arctags, etc.
8418 foreach id [array names idtags] {
8424 }
8425 }
8426 }
8427 foreach id [array names idheads] {
8433 }
8434 }
8435 }
8439 }
8440 }
8441 set allcwait 0
8442 } else {
8452 }
8456 } else {
8460 }
8461 }
8467 }
8470 }
8473 }
8475 }
8476 } err]} {
8478 return 0
8479 }
8481 getallcommits
8482 }
8484 }
8486 proc getcache {f} {
8487 global nextarc cachedarcs possible_seeds
8489 if {[catch {
8492 # make sure it's an integer
8495 set nextarc 0
8496 set possible_seeds {}
8498 } err]} {
8500 }
8501 return 0
8502 }
8504 proc dropcache {err} {
8505 global allcwait nextarc cachedarcs seeds
8508 foreach v {arcnos arcout arcids arcstart arcend growing \
8509 arctags archeads allparents allchildren} {
8512 }
8513 set allcwait 0
8514 set nextarc 0
8515 set cachedarcs 0
8516 set seeds {}
8517 getallcommits
8518 }
8520 proc writecache {f} {
8521 global cachearc cachedarcs allccache
8522 global arcstart arcend arcnos arcids arcout
8528 }
8529 if {[catch {
8533 } else {
8535 }
8536 }
8537 } err]} {
8541 return 0
8542 }
8547 return 0
8548 }
8549 return 1
8550 }
8552 proc savecache {} {
8553 global nextarc cachedarcs cachearc allccache
8556 set cachearc 0
8558 catch {
8562 }
8563 }
8565 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8566 # or 0 if neither is true.
8567 proc anc_or_desc {a b} {
8568 global arcout arcstart arcend arcnos cached_isanc
8571 # Both are on the same arc(s); either both are the same BMP,
8572 # or if one is not a BMP, the other is also not a BMP or is
8573 # the BMP at end of the arc (and it only has 1 incoming arc).
8574 # Or both can be BMPs with no incoming arcs.
8576 return 0
8577 }
8583 return 1
8584 } else {
8585 return -1
8586 }
8587 }
8593 } else {
8594 set aend {}
8595 }
8597 } else {
8599 }
8604 } else {
8605 set bend {}
8606 }
8608 } else {
8610 }
8612 return 1
8613 }
8615 return -1
8616 }
8619 return 1
8620 }
8621 }
8624 return -1
8625 }
8627 return 0
8628 }
8629 }
8637 continue
8638 }
8644 return 1
8648 return -1
8649 }
8655 }
8656 }
8657 }
8660 return 0
8661 }
8665 # and returns 0 if so and 1 if not.
8666 # If we subsequently discover a tag on such a growing tip, and that
8669 # isn't a good choice to display as a descendent tag of
8673 #
8674 proc is_certain {desc anc} {
8675 global arcnos arcout arcstart arcend growing problems
8677 set certain {}
8679 # tags on the same arc are certain
8681 return 1
8682 }
8687 }
8688 }
8691 } else {
8694 }
8696 return 1
8697 }
8700 set nnh 1
8701 set ngrowanc 0
8705 incr nnh -1
8706 }
8712 incr ngrowanc
8713 }
8714 } else {
8721 incr nnh -1
8722 }
8724 incr ngrowanc -1
8725 }
8735 incr nnh -1
8736 }
8738 incr ngrowanc -1
8739 }
8741 }
8742 }
8743 }
8744 }
8745 }
8746 }
8750 } else {
8753 incr nnh
8754 }
8755 }
8756 }
8757 }
8758 foreach x [array names growanc] {
8760 return 0
8761 }
8762 return 0
8763 }
8764 return 1
8765 }
8767 proc validate_arctags {a} {
8768 global arctags idtags
8770 set i -1
8773 incr i
8776 incr i -1
8777 }
8778 }
8780 }
8782 proc validate_archeads {a} {
8783 global archeads idheads
8785 set i -1
8788 incr i
8791 incr i -1
8792 }
8793 }
8795 }
8797 # Return the list of IDs that have tags that are descendents of id,
8798 # ignoring IDs that are descendents of IDs already reported.
8799 proc desctags {id} {
8800 global arcnos arcstart arcids arctags idtags allparents
8801 global growing cached_dtags
8804 return {}
8805 }
8806 set t1 [clock clicks -milliseconds]
8809 # part-way along an arc; check that arc first
8814 set tid {}
8819 }
8822 }
8823 }
8827 }
8828 }
8831 }
8836 set nc 1
8842 incr nc -1
8843 }
8844 # ignore tags on starting node
8848 set ta 1
8851 set ta 1
8852 }
8853 }
8860 }
8861 }
8870 }
8873 }
8875 incr nc -1
8876 }
8878 }
8879 }
8880 }
8885 incr nc
8886 }
8887 }
8888 }
8889 }
8890 set tags {}
8891 foreach id [array names tagloc] {
8896 }
8897 }
8898 }
8899 }
8900 set t2 [clock clicks -milliseconds]
8903 # remove tags that are descendents of other tags
8911 incr j -1
8912 incr i -1
8915 incr i -1
8916 break
8917 }
8918 }
8919 }
8921 if {[array names growing] ne {}} {
8922 # graph isn't finished, need to check if any tag could get
8923 # eclipsed by another tag coming later. Simply ignore any
8924 # tags that could later get eclipsed.
8925 set ctags {}
8929 }
8930 }
8933 } else {
8935 }
8936 } else {
8938 }
8939 set t3 [clock clicks -milliseconds]
8943 }
8945 }
8947 proc anctags {id} {
8948 global arcnos arcids arcout arcend arctags idtags allparents
8949 global growing cached_atags
8952 return {}
8953 }
8954 set t1 [clock clicks -milliseconds]
8957 # part-way along an arc; check that arc first
8966 }
8967 }
8968 }
8970 return {}
8971 }
8975 }
8976 }
8979 }
8984 set taglist {}
8985 set nc 1
8991 incr nc -1
8992 }
8993 # ignore tags on starting node
8997 set td 1
9000 set td 1
9001 }
9002 }
9008 }
9009 }
9021 }
9022 }
9025 }
9027 incr nc -1
9028 }
9030 }
9031 }
9032 }
9037 incr nc
9038 }
9039 }
9040 }
9041 }
9042 set t2 [clock clicks -milliseconds]
9044 set tags {}
9045 foreach id [array names tagloc] {
9050 }
9051 }
9052 }
9053 }
9055 # remove tags that are ancestors of other tags
9063 incr j -1
9064 incr i -1
9067 incr i -1
9068 break
9069 }
9070 }
9071 }
9073 if {[array names growing] ne {}} {
9074 # graph isn't finished, need to check if any tag could get
9075 # eclipsed by another tag coming later. Simply ignore any
9076 # tags that could later get eclipsed.
9077 set ctags {}
9081 }
9082 }
9085 } else {
9087 }
9088 } else {
9090 }
9091 set t3 [clock clicks -milliseconds]
9095 }
9097 }
9099 # Return the list of IDs that have heads that are descendents of id,
9100 # including id itself if it has a head.
9101 proc descheads {id} {
9102 global arcnos arcstart arcids archeads idheads cached_dheads
9103 global allparents
9106 return {}
9107 }
9108 set aret {}
9110 # part-way along an arc; check it first
9119 }
9120 }
9122 }
9126 set ret {}
9131 } else {
9134 }
9140 }
9141 }
9146 }
9147 }
9148 }
9149 }
9153 }
9155 proc addedtag {id} {
9156 global arcnos arcout cached_dtags cached_atags
9161 }
9162 catch {unset cached_dtags}
9163 catch {unset cached_atags}
9164 }
9166 proc addedhead {hid head} {
9167 global arcnos arcout cached_dheads
9172 }
9173 catch {unset cached_dheads}
9174 }
9176 proc removedhead {hid head} {
9177 global cached_dheads
9179 catch {unset cached_dheads}
9180 }
9182 proc movedhead {hid head} {
9183 global arcnos arcout cached_dheads
9188 }
9189 catch {unset cached_dheads}
9190 }
9192 proc changedrefs {} {
9193 global cached_dheads cached_dtags cached_atags
9194 global arctags archeads arcnos arcout idheads idtags
9196 foreach id [concat [array names idheads] [array names idtags]] {
9202 }
9203 }
9204 }
9205 catch {unset cached_dtags}
9206 catch {unset cached_atags}
9207 catch {unset cached_dheads}
9208 }
9210 proc rereadrefs {} {
9211 global idtags idheads idotherrefs mainheadid
9213 set refids [concat [array names idtags] \
9214 [array names idheads] [array names idotherrefs]]
9218 }
9219 }
9221 readrefs
9222 changedrefs
9224 [array names idheads] [array names idotherrefs]]]
9229 }
9230 }
9234 }
9235 run refill_reflist
9236 }
9238 proc listrefs {id} {
9239 global idtags idheads idotherrefs
9241 set x {}
9244 }
9245 set y {}
9248 }
9249 set z {}
9252 }
9254 }
9256 proc showtag {tag isnew} {
9257 global ctext tagcontents tagids linknum tagobjid
9261 }
9263 clear_ctext
9264 settabs 0
9265 set linknum 0
9267 catch {
9269 }
9270 }
9273 } else {
9275 }
9278 init_flist {}
9279 }
9281 proc doquit {} {
9282 global stopped
9283 global gitktmpdir
9285 set stopped 100
9286 savestuff .
9287 destroy .
9289 if {[info exists gitktmpdir]} {
9291 }
9292 }
9294 proc mkfontdisp {font top which} {
9303 }
9305 proc choosefont {font which} {
9306 global fontparam fontlist fonttop fontattr
9314 set top .gitkfont
9317 font create sample
9323 set fontlist [lsort [font families]]
9334 -textvariable fontparam(size) \
9335 -validatecommand {string is integer -strict %s}
9337 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9338 -variable fontparam(weight) -onvalue bold -offvalue normal
9340 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9341 -variable fontparam(slant) -onvalue italic -offvalue roman
9345 -background white
9347 -fill black -tags text
9357 trace add variable fontparam write chg_fontparam
9358 } else {
9361 }
9366 }
9367 }
9369 proc centertext {w} {
9371 }
9373 proc fontok {} {
9374 global fontparam fontpref prefstop
9380 }
9383 }
9387 fontcan
9388 }
9390 proc fontcan {} {
9391 global fonttop fontparam
9393 if {[info exists fonttop]} {
9395 catch {font delete sample}
9396 unset fonttop
9397 unset fontparam
9398 }
9399 }
9401 proc selfontfam {} {
9402 global fonttop fontparam
9407 }
9408 }
9410 proc chg_fontparam {v sub op} {
9411 global fontparam
9414 }
9416 proc doprefs {} {
9417 global maxwidth maxgraphpct
9418 global oldprefs prefstop showneartags showlocalchanges
9419 global bgcolor fgcolor ctext diffcolors selectbgcolor
9420 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9422 set top .gitkprefs
9426 return
9427 }
9428 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9429 limitdiffs tabstop perfile_attrs} {
9431 }
9438 -font optionfont
9442 -font optionfont
9480 -padx 10
9482 -command choose_extdiff
9509 "diff hunk header" \
9531 }
9533 proc choose_extdiff {} {
9534 global extdifftool
9536 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9539 }
9540 }
9542 proc choosecolor {v vi w x cmd} {
9551 }
9553 proc setselbg {c} {
9554 global bglist cflist
9557 }
9561 }
9563 proc setbg {c} {
9564 global bglist
9568 }
9569 }
9571 proc setfg {c} {
9572 global fglist canv
9576 }
9579 }
9581 proc prefscan {} {
9582 global oldprefs prefstop
9584 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9585 limitdiffs tabstop perfile_attrs} {
9588 }
9590 unset prefstop
9591 fontcan
9592 }
9594 proc prefsok {} {
9595 global maxwidth maxgraphpct
9596 global oldprefs prefstop showneartags showlocalchanges
9597 global fontpref mainfont textfont uifont
9598 global limitdiffs treediffs perfile_attrs
9601 unset prefstop
9602 fontcan
9603 set fontchanged 0
9607 eval font configure mainfont [fontflags mainfont]
9608 eval font configure mainfontbold [fontflags mainfont 1]
9609 setcoords
9610 set fontchanged 1
9611 }
9615 eval font configure textfont [fontflags textfont]
9616 eval font configure textfontbold [fontflags textfont 1]
9617 }
9621 eval font configure uifont [fontflags uifont]
9622 }
9623 settabs
9626 doshowlocalchanges
9627 } else {
9628 dohidelocalchanges
9629 }
9630 }
9633 # treediffs elements are limited by path;
9634 # won't have encodings cached if perfile_attrs was just turned on
9635 catch {unset treediffs}
9636 }
9639 redisplay
9642 reselectline
9643 }
9644 }
9646 proc formatdate {d} {
9647 global datetimeformat
9650 }
9652 }
9654 # This list of encoding names and aliases is distilled from
9655 # http://www.iana.org/assignments/character-sets.
9656 # Not all of them are supported by Tcl.
9657 set encoding_aliases {
9658 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9659 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9660 { ISO-10646-UTF-1 csISO10646UTF1 }
9661 { ISO_646.basic:1983 ref csISO646basic1983 }
9662 { INVARIANT csINVARIANT }
9663 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9664 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9665 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9666 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9667 { NATS-DANO iso-ir-9-1 csNATSDANO }
9668 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9669 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9670 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9671 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9672 { ISO-2022-KR csISO2022KR }
9673 { EUC-KR csEUCKR }
9674 { ISO-2022-JP csISO2022JP }
9675 { ISO-2022-JP-2 csISO2022JP2 }
9676 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9677 csISO13JISC6220jp }
9678 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9679 { IT iso-ir-15 ISO646-IT csISO15Italian }
9680 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9681 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9682 { greek7-old iso-ir-18 csISO18Greek7Old }
9683 { latin-greek iso-ir-19 csISO19LatinGreek }
9684 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9685 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9686 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9687 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9688 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9689 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9690 { INIS iso-ir-49 csISO49INIS }
9691 { INIS-8 iso-ir-50 csISO50INIS8 }
9692 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9693 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9694 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9695 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9696 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9697 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9698 csISO60Norwegian1 }
9699 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9700 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9701 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9702 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9703 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9704 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9705 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9706 { greek7 iso-ir-88 csISO88Greek7 }
9707 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9708 { iso-ir-90 csISO90 }
9709 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9710 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9711 csISO92JISC62991984b }
9712 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9713 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9714 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9715 csISO95JIS62291984handadd }
9716 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9717 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9718 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9719 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9720 CP819 csISOLatin1 }
9721 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9722 { T.61-7bit iso-ir-102 csISO102T617bit }
9723 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9724 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9725 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9726 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9727 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9728 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9729 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9730 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9731 arabic csISOLatinArabic }
9732 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9733 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9734 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9735 greek greek8 csISOLatinGreek }
9736 { T.101-G2 iso-ir-128 csISO128T101G2 }
9737 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9738 csISOLatinHebrew }
9739 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9740 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9741 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9742 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9743 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9744 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9745 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9746 csISOLatinCyrillic }
9747 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9748 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9749 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9750 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9751 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9752 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9753 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9754 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9755 { ISO_10367-box iso-ir-155 csISO10367Box }
9756 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9757 { latin-lap lap iso-ir-158 csISO158Lap }
9758 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9759 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9760 { us-dk csUSDK }
9761 { dk-us csDKUS }
9762 { JIS_X0201 X0201 csHalfWidthKatakana }
9763 { KSC5636 ISO646-KR csKSC5636 }
9764 { ISO-10646-UCS-2 csUnicode }
9765 { ISO-10646-UCS-4 csUCS4 }
9766 { DEC-MCS dec csDECMCS }
9767 { hp-roman8 roman8 r8 csHPRoman8 }
9768 { macintosh mac csMacintosh }
9769 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9770 csIBM037 }
9771 { IBM038 EBCDIC-INT cp038 csIBM038 }
9772 { IBM273 CP273 csIBM273 }
9773 { IBM274 EBCDIC-BE CP274 csIBM274 }
9774 { IBM275 EBCDIC-BR cp275 csIBM275 }
9775 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9776 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9777 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9778 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9779 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9780 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9781 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9782 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9783 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9784 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9785 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9786 { IBM437 cp437 437 csPC8CodePage437 }
9787 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9788 { IBM775 cp775 csPC775Baltic }
9789 { IBM850 cp850 850 csPC850Multilingual }
9790 { IBM851 cp851 851 csIBM851 }
9791 { IBM852 cp852 852 csPCp852 }
9792 { IBM855 cp855 855 csIBM855 }
9793 { IBM857 cp857 857 csIBM857 }
9794 { IBM860 cp860 860 csIBM860 }
9795 { IBM861 cp861 861 cp-is csIBM861 }
9796 { IBM862 cp862 862 csPC862LatinHebrew }
9797 { IBM863 cp863 863 csIBM863 }
9798 { IBM864 cp864 csIBM864 }
9799 { IBM865 cp865 865 csIBM865 }
9800 { IBM866 cp866 866 csIBM866 }
9801 { IBM868 CP868 cp-ar csIBM868 }
9802 { IBM869 cp869 869 cp-gr csIBM869 }
9803 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9804 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9805 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9806 { IBM891 cp891 csIBM891 }
9807 { IBM903 cp903 csIBM903 }
9808 { IBM904 cp904 904 csIBBM904 }
9809 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9810 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9811 { IBM1026 CP1026 csIBM1026 }
9812 { EBCDIC-AT-DE csIBMEBCDICATDE }
9813 { EBCDIC-AT-DE-A csEBCDICATDEA }
9814 { EBCDIC-CA-FR csEBCDICCAFR }
9815 { EBCDIC-DK-NO csEBCDICDKNO }
9816 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9817 { EBCDIC-FI-SE csEBCDICFISE }
9818 { EBCDIC-FI-SE-A csEBCDICFISEA }
9819 { EBCDIC-FR csEBCDICFR }
9820 { EBCDIC-IT csEBCDICIT }
9821 { EBCDIC-PT csEBCDICPT }
9822 { EBCDIC-ES csEBCDICES }
9823 { EBCDIC-ES-A csEBCDICESA }
9824 { EBCDIC-ES-S csEBCDICESS }
9825 { EBCDIC-UK csEBCDICUK }
9826 { EBCDIC-US csEBCDICUS }
9827 { UNKNOWN-8BIT csUnknown8BiT }
9828 { MNEMONIC csMnemonic }
9829 { MNEM csMnem }
9830 { VISCII csVISCII }
9831 { VIQR csVIQR }
9832 { KOI8-R csKOI8R }
9833 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9834 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9835 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9836 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9837 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9838 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9839 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9840 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9841 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9842 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9843 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9844 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9845 { IBM1047 IBM-1047 }
9846 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9847 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9848 { UNICODE-1-1 csUnicode11 }
9849 { CESU-8 csCESU-8 }
9850 { BOCU-1 csBOCU-1 }
9851 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9852 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9853 l8 }
9854 { ISO-8859-15 ISO_8859-15 Latin-9 }
9855 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9856 { GBK CP936 MS936 windows-936 }
9857 { JIS_Encoding csJISEncoding }
9858 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
9859 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9860 EUC-JP }
9861 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9862 { ISO-10646-UCS-Basic csUnicodeASCII }
9863 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9864 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9865 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9866 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9867 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9868 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9869 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9870 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9871 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9872 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9873 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9874 { Ventura-US csVenturaUS }
9875 { Ventura-International csVenturaInternational }
9876 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9877 { PC8-Turkish csPC8Turkish }
9878 { IBM-Symbols csIBMSymbols }
9879 { IBM-Thai csIBMThai }
9880 { HP-Legal csHPLegal }
9881 { HP-Pi-font csHPPiFont }
9882 { HP-Math8 csHPMath8 }
9883 { Adobe-Symbol-Encoding csHPPSMath }
9884 { HP-DeskTop csHPDesktop }
9885 { Ventura-Math csVenturaMath }
9886 { Microsoft-Publishing csMicrosoftPublishing }
9887 { Windows-31J csWindows31J }
9888 { GB2312 csGB2312 }
9889 { Big5 csBig5 }
9890 }
9892 proc tcl_encoding {enc} {
9893 global encoding_aliases tcl_encoding_cache
9896 }
9897 set names [encoding names]
9902 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9905 }
9906 }
9911 # look through the aliases for one that tcl knows about
9917 }
9918 }
9920 }
9921 break
9922 }
9923 }
9924 set tclenc {}
9927 }
9930 }
9932 proc gitattr {path attr default} {
9933 global path_attr_cache
9936 } else {
9937 set r "unspecified"
9940 }
9942 }
9945 }
9947 }
9949 proc cache_gitattr {attr pathlist} {
9950 global path_attr_cache
9951 set newlist {}
9955 }
9956 }
9957 set lim 1000
9958 if {[tk windowingsystem] == "win32"} {
9959 # windows has a 32k limit on the arguments to a command...
9960 set lim 30
9961 }
9970 }
9972 }
9973 }
9974 }
9975 }
9976 }
9978 proc get_path_encoding {path} {
9979 global gui_encoding perfile_attrs
9985 }
9986 }
9988 }
9990 # First check that Tcl/Tk is recent enough
9991 if {[catch {package require Tk 8.4} err]} {
9992 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9993 Gitk requires at least Tcl/Tk 8.4."]
9994 exit 1
9995 }
9997 # defaults...
9998 set wrcomcmd "git diff-tree --stdin -p --pretty"
10000 set gitencoding {}
10001 catch {
10002 set gitencoding [exec git config --get i18n.commitencoding]
10003 }
10005 set gitencoding "utf-8"
10006 }
10010 }
10012 set gui_encoding [encoding system]
10013 catch {
10014 set enc [exec git config --get gui.encoding]
10019 } else {
10021 }
10022 }
10023 }
10025 set mainfont {Helvetica 9}
10026 set textfont {Courier 9}
10027 set uifont {Helvetica 9 bold}
10028 set tabstop 8
10029 set findmergefiles 0
10030 set maxgraphpct 50
10031 set maxwidth 16
10032 set revlistorder 0
10033 set fastdate 0
10034 set uparrowlen 5
10035 set downarrowlen 5
10036 set mingaplen 100
10037 set cmitmode "patch"
10038 set wrapcomment "none"
10039 set showneartags 1
10040 set maxrefs 20
10041 set maxlinelen 200
10042 set showlocalchanges 1
10043 set limitdiffs 1
10044 set datetimeformat "%Y-%m-%d %H:%M:%S"
10045 set autoselect 1
10046 set perfile_attrs 0
10048 set extdifftool "meld"
10050 set colors {green red blue magenta darkgrey brown orange}
10051 set bgcolor white
10052 set fgcolor black
10053 set diffcolors {red "#00a000" blue}
10054 set diffcontext 3
10055 set ignorespace 0
10056 set selectbgcolor gray85
10058 set circlecolors {white blue gray blue blue}
10060 # button for popping up context menus
10061 if {[tk windowingsystem] eq "aqua"} {
10062 set ctxbut <Button-2>
10063 } else {
10064 set ctxbut <Button-3>
10065 }
10067 ## For msgcat loading, first locate the installation location.
10068 if { [info exists ::env(GITK_MSGSDIR)] } {
10069 ## Msgsdir was manually set in the environment.
10070 set gitk_msgsdir $::env(GITK_MSGSDIR)
10071 } else {
10072 ## Let's guess the prefix from argv0.
10076 unset gitk_prefix
10077 }
10079 ## Internationalization (i18n) through msgcat and gettext. See
10080 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10081 package require msgcat
10082 namespace import ::msgcat::mc
10083 ## And eventually load the actual message catalog
10086 catch {source ~/.gitk}
10088 font create optionfont -family sans-serif -size -12
10091 eval font create mainfont [fontflags mainfont]
10092 eval font create mainfontbold [fontflags mainfont 1]
10095 eval font create textfont [fontflags textfont]
10096 eval font create textfontbold [fontflags textfont 1]
10099 eval font create uifont [fontflags uifont]
10101 setoptions
10103 # check that we can find a .git directory somewhere...
10104 if {[catch {set gitdir [gitdir]}]} {
10105 show_error {} . [mc "Cannot find a git repository here."]
10106 exit 1
10107 }
10110 exit 1
10111 }
10113 set selecthead {}
10114 set selectheadid {}
10116 set revtreeargs {}
10117 set cmdline_files {}
10118 set i 0
10119 set revtreeargscmd {}
10122 "" { }
10123 "--" {
10125 break
10126 }
10127 "--select-commit=*" {
10129 }
10130 "--argscmd=*" {
10132 }
10133 default {
10135 }
10136 }
10137 incr i
10138 }
10141 set selecthead {}
10142 }
10145 # no -- on command line, but some arguments (other than --argscmd)
10146 if {[catch {
10151 # Unfortunately git rev-parse doesn't produce an error when
10152 # something is both a revision and a filename. To be consistent
10153 # with git log and git rev-list, check revtreeargs for filenames.
10156 show_error {} . [mc "Ambiguous argument '%s': both revision\
10158 exit 1
10159 }
10160 }
10161 } err]} {
10163 # so look for "fatal:".
10167 }
10169 exit 1
10170 }
10171 }
10173 set nullid "0000000000000000000000000000000000000000"
10174 set nullid2 "0000000000000000000000000000000000000001"
10175 set nullfile "/dev/null"
10179 set runq {}
10180 set history {}
10181 set historyindex 0
10182 set fh_serial 0
10183 set nhl_names {}
10184 set highlight_paths {}
10185 set findpattern {}
10186 set searchdirn -forwards
10187 set boldrows {}
10188 set boldnamerows {}
10189 set diffelide {0 0}
10190 set markingmatches 0
10191 set linkentercount 0
10192 set need_redisplay 0
10193 set nrows_drawn 0
10194 set firsttabstop 0
10196 set nextviewnum 1
10197 set curview 0
10198 set selectedview 0
10199 set selectedhlview [mc "None"]
10200 set highlight_related [mc "None"]
10201 set highlight_files {}
10202 set viewfiles(0) {}
10203 set viewperm(0) 0
10204 set viewargs(0) {}
10205 set viewargscmd(0) {}
10207 set selectedline {}
10208 set numcommits 0
10209 set loginstance 0
10210 set cmdlineok 0
10211 set stopped 0
10212 set stuffsaved 0
10213 set patchnum 0
10214 set lserial 0
10215 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10216 setcoords
10217 makewindow
10218 # wait for the window to become visible
10219 tkwait visibility .
10221 readrefs
10224 # create a view for the files/dirs specified on the command line
10225 set curview 1
10226 set selectedview 1
10227 set nextviewnum 2
10228 set viewname(1) [mc "Command line"]
10232 set viewperm(1) 0
10233 set vdatemode(1) 0
10234 addviewmenu 1
10235 .bar.view entryconf [mca "Edit view..."] -state normal
10236 .bar.view entryconf [mca "Delete view"] -state normal
10237 }
10239 if {[info exists permviews]} {
10242 incr nextviewnum
10249 }
10250 }
10251 getcommits {}