| blob | 00037976970d57888e2db09eec77d836b2215bbb |
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
2254 set maincursor [. cget -cursor]
2258 set rowctxmenu .rowctxmenu
2260 {mc "Diff this -> selected" command {diffvssel 0}}
2261 {mc "Diff selected -> this" command {diffvssel 1}}
2262 {mc "Make patch" command mkpatch}
2263 {mc "Create tag" command mktag}
2264 {mc "Write commit to file" command writecommit}
2265 {mc "Create new branch" command mkbranch}
2266 {mc "Cherry-pick this commit" command cherrypick}
2267 {mc "Reset HEAD branch to here" command resethead}
2268 }
2271 set fakerowmenu .fakerowmenu
2273 {mc "Diff this -> selected" command {diffvssel 0}}
2274 {mc "Diff selected -> this" command {diffvssel 1}}
2275 {mc "Make patch" command mkpatch}
2276 }
2279 set headctxmenu .headctxmenu
2281 {mc "Check out this branch" command cobranch}
2282 {mc "Remove this branch" command rmbranch}
2283 }
2286 global flist_menu
2287 set flist_menu .flistctxmenu
2289 {mc "Highlight this too" command {flist_hl 0}}
2290 {mc "Highlight this only" command {flist_hl 1}}
2291 {mc "External diff" command {external_diff}}
2292 {mc "Blame parent commit" command {external_blame 1}}
2293 }
2296 global diff_menu
2297 set diff_menu .diffctxmenu
2299 {mc "Run git gui blame on this line" command {external_blame_diff}}
2300 }
2302 }
2304 # Windows sends all mouse wheel events to the current focused window, not
2305 # the one where the mouse hovers, so bind those events here and redirect
2306 # to the correct window
2307 proc windows_mousewheel_redirector {W X Y D} {
2308 global canv canv2 canv3
2314 } else {
2315 catch {
2317 }
2318 }
2319 }
2320 }
2322 # Update row number label when selectedline changes
2323 proc selectedline_change {n1 n2 op} {
2324 global selectedline rownumsel
2327 set rownumsel {}
2328 } else {
2330 }
2331 }
2333 # mouse-2 makes all windows scan vertically, but only the one
2334 # the cursor is in scans horizontally
2335 proc canvscan {op w x y} {
2336 global canv canv2 canv3
2340 } else {
2342 }
2343 }
2344 }
2346 proc scrollcanv {cscroll f0 f1} {
2348 drawvisible
2349 flushhighlights
2350 }
2352 # when we make a key binding for the toplevel, make sure
2353 # it doesn't get triggered when that key is pressed in the
2354 # find string entry widget.
2355 proc bindkey {ev script} {
2356 global entries
2360 set escript [bind Entry <Key>]
2361 }
2364 }
2365 }
2367 # set the focus back to the toplevel for any click outside
2368 # the entry widgets
2369 proc click {w} {
2370 global ctext entries
2373 }
2374 focus .
2375 }
2377 # Adjust the progress bar for a change in requested extent or canvas size
2378 proc adjustprogress {} {
2379 global progresscanv progressitem progresscoords
2380 global fprogitem fprogcoord lastprogupdate progupdatepending
2381 global rprogitem rprogcoord
2390 set now [clock clicks -milliseconds]
2392 set progupdatepending 0
2393 update
2395 set progupdatepending 1
2397 }
2398 }
2400 proc doprogupdate {} {
2401 global lastprogupdate progupdatepending
2404 set progupdatepending 0
2405 set lastprogupdate [clock clicks -milliseconds]
2406 update
2407 }
2408 }
2410 proc savestuff {w} {
2411 global canv canv2 canv3 mainfont textfont uifont tabstop
2412 global stuffsaved findmergefiles maxgraphpct
2413 global maxwidth showneartags showlocalchanges
2414 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2415 global cmitmode wrapcomment datetimeformat limitdiffs
2416 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2417 global autoselect extdifftool perfile_attrs
2420 if {![winfo viewable .]} return
2421 catch {
2422 set f [open "~/.gitk-new" w]
2458 }
2459 }
2462 file rename -force "~/.gitk-new" "~/.gitk"
2463 }
2464 set stuffsaved 1
2465 }
2467 proc resizeclistpanes {win w} {
2468 global oldwidth
2475 } else {
2480 set sash0 30
2481 }
2484 }
2489 }
2490 }
2491 }
2494 }
2496 }
2498 proc resizecdetpanes {win w} {
2499 global oldwidth
2504 } else {
2508 set sash0 45
2509 }
2512 }
2513 }
2515 }
2517 }
2519 proc allcanvs args {
2520 global canv canv2 canv3
2524 }
2526 proc bindall {event action} {
2527 global canv canv2 canv3
2531 }
2533 proc about {} {
2534 global uifont
2535 set w .about
2538 return
2539 }
2543 Gitk - a commit viewer for git
2545 Copyright © 2005-2008 Paul Mackerras
2547 Use and redistribute under the terms of the GNU General Public License"] \
2548 -justify center -aspect 400 -border 2 -bg white -relief groove
2555 }
2557 proc keys {} {
2558 set w .keys
2561 return
2562 }
2563 if {[tk windowingsystem] eq {aqua}} {
2564 set M1T Cmd
2565 } else {
2566 set M1T Ctrl
2567 }
2571 [mc "Gitk key bindings:"]
2574 [mc "<Home> Move to first commit"]
2575 [mc "<End> Move to last commit"]
2576 [mc "<Up>, p, i Move up one commit"]
2577 [mc "<Down>, n, k Move down one commit"]
2578 [mc "<Left>, z, j Go back in history list"]
2579 [mc "<Right>, x, l Go forward in history list"]
2580 [mc "<PageUp> Move up one page in commit list"]
2581 [mc "<PageDown> Move down one page in commit list"]
2588 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2589 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2590 [mc "<Delete>, b Scroll diff view up one page"]
2591 [mc "<Backspace> Scroll diff view up one page"]
2592 [mc "<Space> Scroll diff view down one page"]
2593 [mc "u Scroll diff view up 18 lines"]
2594 [mc "d Scroll diff view down 18 lines"]
2597 [mc "<Return> Move to next find hit"]
2598 [mc "/ Move to next find hit, or redo find"]
2599 [mc "? Move to previous find hit"]
2600 [mc "f Scroll diff view to next file"]
2607 [mc "<F5> Update"]
2608 " \
2609 -justify left -bg white -border 2 -relief groove
2616 }
2618 # Procedures for manipulating the file list window at the
2619 # bottom right of the overall window.
2621 proc treeview {w l openlevs} {
2622 global treecontents treediropen treeheight treeparent treeindex
2624 set ix 0
2625 set treeindex() 0
2626 set lev 0
2627 set prefix {}
2628 set prefixend -1
2629 set prefendstack {}
2630 set htstack {}
2631 set ht 0
2632 set treecontents() {}
2639 }
2646 incr lev -1
2647 }
2651 set ht 0
2663 set ht 1
2668 set str "\n"
2676 }
2677 incr lev
2678 }
2681 incr ht
2682 set str "\n"
2686 }
2688 }
2689 }
2697 }
2699 }
2701 proc linetoelt {l} {
2702 global treeheight treecontents
2704 set y 2
2705 set prefix {}
2706 while {1} {
2710 }
2711 set n 1
2716 incr y
2717 break
2718 }
2719 }
2721 }
2722 }
2723 }
2725 proc highlight_tree {y prefix} {
2726 global treeheight treecontents cflist
2732 }
2733 incr y
2736 }
2737 }
2739 }
2741 proc treeclosedir {w dir} {
2742 global treediropen treeheight treeparent treeindex
2754 }
2755 }
2757 proc treeopendir {w dir} {
2758 global treediropen treeheight treeparent treecontents treeindex
2765 set lev 0
2766 set str "\n"
2769 incr lev
2770 append str "\t"
2772 }
2787 } else {
2790 }
2791 }
2804 }
2806 }
2807 }
2809 proc treeclick {w x y} {
2810 global treediropen cmitmode ctext cflist cflist_top
2813 if {![info exists cflist_top]} return
2820 return
2821 }
2827 } else {
2829 }
2830 }
2832 proc setfilelist {id} {
2833 global treefilelist cflist
2836 }
2838 image create bitmap tri-rt -background black -foreground blue -data {
2839 #define tri-rt_width 13
2840 #define tri-rt_height 13
2841 static unsigned char tri-rt_bits[] = {
2842 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2843 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2844 0x00, 0x00};
2845 } -maskdata {
2846 #define tri-rt-mask_width 13
2847 #define tri-rt-mask_height 13
2848 static unsigned char tri-rt-mask_bits[] = {
2849 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2850 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2851 0x08, 0x00};
2852 }
2853 image create bitmap tri-dn -background black -foreground blue -data {
2854 #define tri-dn_width 13
2855 #define tri-dn_height 13
2856 static unsigned char tri-dn_bits[] = {
2857 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2858 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2859 0x00, 0x00};
2860 } -maskdata {
2861 #define tri-dn-mask_width 13
2862 #define tri-dn-mask_height 13
2863 static unsigned char tri-dn-mask_bits[] = {
2864 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2865 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2866 0x00, 0x00};
2867 }
2869 image create bitmap reficon-T -background black -foreground yellow -data {
2870 #define tagicon_width 13
2871 #define tagicon_height 9
2872 static unsigned char tagicon_bits[] = {
2873 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2874 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2875 } -maskdata {
2876 #define tagicon-mask_width 13
2877 #define tagicon-mask_height 9
2878 static unsigned char tagicon-mask_bits[] = {
2879 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2880 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2881 }
2882 set rectdata {
2883 #define headicon_width 13
2884 #define headicon_height 9
2885 static unsigned char headicon_bits[] = {
2886 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2887 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2888 }
2889 set rectmask {
2890 #define headicon-mask_width 13
2891 #define headicon-mask_height 9
2892 static unsigned char headicon-mask_bits[] = {
2893 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2894 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2895 }
2896 image create bitmap reficon-H -background black -foreground green \
2898 image create bitmap reficon-o -background black -foreground "#ddddff" \
2901 proc init_flist {first} {
2902 global cflist cflist_top difffilestart
2908 set cflist_top 1
2910 } else {
2911 catch {unset cflist_top}
2912 }
2914 set difffilestart {}
2915 }
2917 proc highlight_tag {f} {
2918 global highlight_paths
2922 return "bold"
2923 }
2924 }
2925 return {}
2926 }
2928 proc highlight_filelist {} {
2929 global cmitmode cflist
2938 }
2939 }
2940 } else {
2941 highlight_tree 2 {}
2942 }
2944 }
2946 proc unhighlight_filelist {} {
2947 global cflist
2952 }
2954 proc add_flist {fl} {
2955 global cflist
2961 }
2963 }
2965 proc sel_flist {w x y} {
2966 global ctext difffilestart cflist cflist_top cmitmode
2969 if {![info exists cflist_top]} return
2976 } else {
2978 }
2979 }
2981 proc pop_flist_menu {w X Y x y} {
2982 global ctext cflist cmitmode flist_menu flist_menu_file
2983 global treediffs diffids
2985 stopfinding
2991 } else {
2993 }
2995 set xdiffstate "normal"
2997 set xdiffstate "disabled"
2998 }
2999 # Disable "External diff" item in tree mode
3002 }
3004 proc find_ctext_fileinfo {line} {
3005 global ctext_file_names ctext_file_lines
3011 return {}
3012 } else {
3014 }
3015 }
3017 proc pop_diff_menu {w X Y x y} {
3018 global ctext diff_menu flist_menu_file
3019 global diff_menu_txtpos diff_menu_line
3020 global diff_menu_filebase
3022 stopfinding
3030 }
3032 proc flist_hl {only} {
3033 global flist_menu_file findstring gdttype
3038 } else {
3040 }
3041 set gdttype [mc "touching paths:"]
3042 }
3044 proc save_file_from_commit {filename output what} {
3045 global nullfile
3050 }
3052 return {}
3053 }
3055 }
3057 proc external_diff_get_one_file {diffid filename diffdir} {
3058 global nullid nullid2 nullfile
3059 global gitdir
3065 }
3067 }
3071 }
3075 }
3077 proc external_diff {} {
3078 global gitktmpdir nullid nullid2
3079 global flist_menu_file
3080 global diffids
3081 global diffnum
3082 global gitdir extdifftool
3085 # no reference commit given
3088 # diffing working copy with index
3091 # diffing index with HEAD
3092 set diffidfrom "HEAD"
3093 } else {
3094 # use first parent commit
3095 global parentlist selectedline
3097 }
3098 } else {
3101 }
3103 # make sure that several diffs wont collide
3104 if {![info exists gitktmpdir]} {
3106 [format ".gitk-tmp.%s" [pid]]]
3109 unset gitktmpdir
3110 return
3111 }
3112 set diffnum 0
3113 }
3114 incr diffnum
3118 return
3119 }
3121 # gather files to diff
3131 } else {
3134 }
3135 }
3136 }
3138 proc find_hunk_blamespec {base line} {
3139 global ctext
3141 # Find and parse the hunk header
3147 s_line old_specs osz osz1 new_line nsz]} {
3148 return
3149 }
3151 # base lines for the parents
3155 old_spec old_line osz]} {
3156 return
3157 }
3159 }
3161 # Now scan the lines to determine offset within the hunk
3162 set parent {}
3164 set dline 0
3169 # Determine if the line is removed
3172 # Choose a parent index
3176 } else {
3180 } else {
3181 # blame the current commit
3182 set parent -1
3183 }
3184 }
3185 }
3186 # then count other lines that belong to it
3190 incr dline
3191 }
3192 } else {
3194 incr dline
3195 }
3196 }
3197 }
3200 incr parent
3203 }
3205 proc external_blame_diff {} {
3206 global currentid diffmergeid cmitmode
3207 global diff_menu_txtpos diff_menu_line
3208 global diff_menu_filebase flist_menu_file
3211 set parent_idx 0
3213 } else {
3218 } else {
3219 set parent_idx 0
3220 set line 0
3221 }
3222 }
3225 }
3227 proc external_blame {parent_idx {line {}}} {
3228 global flist_menu_file
3229 global nullid nullid2
3230 global parentlist selectedline currentid
3234 } else {
3236 }
3239 error_popup [mc "No such commit"]
3240 return
3241 }
3243 set cmdline [list git gui blame]
3246 }
3250 }
3251 }
3254 proc delete_at_eof {f dir} {
3259 }
3261 return 0
3262 }
3263 return 1
3264 }
3266 # Functions for adding and removing shell-type quoting
3268 proc shellquote {str} {
3271 }
3274 }
3277 }
3279 }
3281 proc shellarglist {l} {
3282 set str {}
3285 append str " "
3286 }
3288 }
3290 }
3292 proc shelldequote {str} {
3293 set ret {}
3294 set used -1
3295 while {1} {
3296 incr used
3300 break
3301 }
3307 }
3309 incr used
3313 error "unmatched single-quote"
3314 }
3317 continue
3318 }
3321 error "trailing backslash"
3322 }
3324 continue
3325 }
3326 # here ch == "\""
3327 while {1} {
3329 error "unmatched double-quote"
3330 }
3336 }
3338 incr used
3340 incr used
3341 }
3342 }
3344 }
3346 proc shellsplit {str} {
3347 set l {}
3348 while {1} {
3356 }
3358 }
3360 # Code to implement multiple views
3362 proc newview {ishighlight} {
3363 global nextviewnum newviewname newviewperm newishighlight
3364 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3367 set top .gitkview
3370 return
3371 }
3377 }
3379 proc editview {} {
3380 global curview
3381 global viewname viewperm newviewname newviewperm
3382 global viewargs newviewargs viewargscmd newviewargscmd
3387 return
3388 }
3394 }
3396 proc vieweditor {top n title} {
3397 global newviewname newviewperm viewfiles bgcolor
3408 -text [mc "Commits to include (arguments to git log):"]
3415 -text [mc "Command to generate more commits to include:"]
3418 -background white
3422 -text [mc "Enter files and directories to include, one per line:"]
3429 }
3432 }
3442 }
3444 proc doviewmenu {m first cmd op argv} {
3449 break
3450 }
3451 }
3452 }
3454 proc allviewmenus {n op args} {
3455 # global viewhlmenu
3459 }
3461 proc newviewok {top n} {
3462 global nextviewnum newviewperm newviewname newishighlight
3463 global viewname viewfiles viewperm selectedview curview
3464 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3466 if {[catch {
3468 } err]} {
3472 return
3473 }
3474 set files {}
3479 }
3480 }
3482 # creating a new view
3483 incr nextviewnum
3492 } else {
3494 }
3495 } else {
3496 # editing an existing view
3504 }
3511 run reloadcommits
3512 }
3513 }
3514 }
3516 }
3518 proc delview {} {
3519 global curview viewperm hlview selectedhlview
3523 set selectedhlview [mc "None"]
3524 unset hlview
3525 }
3528 showview 0
3529 }
3531 proc addviewmenu {n} {
3532 global viewname viewhlmenu
3538 }
3540 proc showview {n} {
3541 global curview cached_commitrow ordertok
3542 global displayorder parentlist rowidlist rowisopt rowfinal
3543 global colormap rowtextx nextcolor canvxmax
3544 global numcommits viewcomplete
3545 global selectedline currentid canv canvy0
3546 global treediffs
3547 global pending_select mainheadid
3548 global commitidx
3549 global selectedview
3550 global hlview selectedhlview commitinterest
3553 set selid {}
3564 }
3565 } elseif {[info exists pending_select]} {
3567 unset pending_select
3568 }
3569 unselectline
3570 normalline
3571 catch {unset treediffs}
3572 clear_display
3574 unset hlview
3575 set selectedhlview [mc "None"]
3576 }
3577 catch {unset commitinterest}
3578 catch {unset cached_commitrow}
3579 catch {unset ordertok}
3586 run refill_reflist
3589 return
3590 }
3592 set displayorder {}
3593 set parentlist {}
3594 set rowidlist {}
3595 set rowisopt {}
3596 set rowfinal {}
3599 catch {unset colormap}
3600 catch {unset rowtextx}
3601 set nextcolor 0
3604 set row 0
3605 setcanvscroll
3606 set yf 0
3607 set row {}
3610 # try to get the selected row in the same position on the screen
3614 set ytop 0
3615 }
3617 }
3619 drawvisible
3624 } else {
3625 reset_pending_select {}
3629 } else {
3630 set row [first_real_row]
3633 }
3634 }
3635 }
3638 show_status [mc "Reading commits..."]
3639 }
3641 show_status [mc "No commits selected"]
3642 }
3643 }
3645 # Stuff relating to the highlighting facility
3647 proc ishighlighted {id} {
3648 global vhighlights fhighlights nhighlights rhighlights
3652 }
3655 }
3658 }
3661 }
3662 return 0
3663 }
3665 proc bolden {row font} {
3666 global canv linehtag selectedline boldrows
3673 -outline {{}} -tags secsel \
3676 }
3677 }
3679 proc bolden_name {row font} {
3680 global canv2 linentag selectedline boldnamerows
3687 -outline {{}} -tags secsel \
3690 }
3691 }
3693 proc unbolden {} {
3694 global boldrows
3696 set stillbold {}
3700 } else {
3702 }
3703 }
3705 }
3707 proc addvhighlight {n} {
3708 global hlview viewcomplete curview vhl_done commitidx
3710 if {[info exists hlview]} {
3711 delvhighlight
3712 }
3716 }
3719 drawvisible
3720 }
3721 }
3723 proc delvhighlight {} {
3724 global hlview vhighlights
3726 if {![info exists hlview]} return
3727 unset hlview
3728 catch {unset vhighlights}
3729 unbolden
3730 }
3732 proc vhighlightmore {} {
3733 global hlview vhl_done commitidx vhighlights curview
3736 set vr [visiblerows]
3746 }
3748 }
3749 }
3750 }
3752 return 0
3753 }
3755 proc askvhighlight {row id} {
3756 global hlview vhighlights iddrawn
3761 }
3763 } else {
3765 }
3766 }
3768 proc hfiles_change {} {
3769 global highlight_files filehighlight fhighlights fh_serial
3770 global highlight_paths gdttype
3772 if {[info exists filehighlight]} {
3773 # delete previous highlights
3775 unset filehighlight
3776 catch {unset fhighlights}
3777 unbolden
3778 unhighlight_filelist
3779 }
3780 set highlight_paths {}
3782 incr fh_serial
3785 }
3786 }
3788 proc gdttype_change {name ix op} {
3789 global gdttype highlight_files findstring findpattern
3791 stopfinding
3795 set highlight_files {}
3796 hfiles_change
3797 }
3798 findcom_change
3799 } else {
3801 set findpattern {}
3802 findcom_change
3803 }
3805 hfiles_change
3806 }
3807 drawvisible
3808 }
3809 # enable/disable findtype/findloc menus too
3810 }
3812 proc find_change {name ix op} {
3813 global gdttype findstring highlight_files
3815 stopfinding
3817 findcom_change
3818 } else {
3821 hfiles_change
3822 }
3823 }
3824 drawvisible
3825 }
3827 proc findcom_change args {
3828 global nhighlights boldnamerows
3829 global findpattern findtype findstring gdttype
3831 stopfinding
3832 # delete previous highlights, if any
3835 }
3836 set boldnamerows {}
3837 catch {unset nhighlights}
3838 unbolden
3839 unmarkmatches
3841 set findpattern {}
3844 } else {
3845 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3848 }
3849 }
3851 proc makepatterns {l} {
3852 set ret {}
3857 } else {
3860 }
3861 }
3863 }
3865 proc do_file_hl {serial} {
3866 global highlight_files filehighlight highlight_paths gdttype fhl_list
3871 highlight_filelist
3875 } else {
3876 # must be "containing:", i.e. we're searching commit info
3877 return
3878 }
3883 set fhl_list {}
3884 drawvisible
3885 flushhighlights
3886 }
3888 proc flushhighlights {} {
3889 global filehighlight fhl_list
3891 if {[info exists filehighlight]} {
3892 lappend fhl_list {}
3895 }
3896 }
3898 proc askfilehighlight {row id} {
3899 global filehighlight fhighlights fhl_list
3904 }
3906 proc readfhighlight {} {
3907 global filehighlight fhighlights curview iddrawn
3908 global fhl_list find_dirn
3910 if {![info exists filehighlight]} {
3911 return 0
3912 }
3913 set nr 0
3921 }
3928 }
3930 }
3932 # strange...
3933 puts "oops, git diff-tree died"
3935 unset filehighlight
3936 return 0
3937 }
3938 if {[info exists find_dirn]} {
3939 run findmore
3940 }
3941 return 1
3942 }
3944 proc doesmatch {f} {
3945 global findtype findpattern
3951 } else {
3953 }
3954 }
3956 proc askfindhighlight {row id} {
3957 global nhighlights commitinfo iddrawn
3958 global findloc
3959 global markingmatches
3963 }
3965 set isbold 0
3966 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3971 set isbold 2
3972 break
3973 }
3974 set isbold 1
3975 }
3976 }
3982 }
3983 }
3986 }
3987 }
3989 }
3991 proc markrowmatches {row id} {
3992 global canv canv2 linehtag linentag commitinfo findloc
4003 }
4004 }
4010 }
4011 }
4012 }
4014 proc vrel_change {name ix op} {
4015 global highlight_related
4017 rhighlight_none
4019 run drawvisible
4020 }
4021 }
4023 # prepare for testing whether commits are descendents or ancestors of a
4024 proc rhighlight_sel {a} {
4025 global descendent desc_todo ancestor anc_todo
4026 global highlight_related
4028 catch {unset descendent}
4030 catch {unset ancestor}
4033 rhighlight_none
4034 run drawvisible
4035 }
4036 }
4038 proc rhighlight_none {} {
4039 global rhighlights
4041 catch {unset rhighlights}
4042 unbolden
4043 }
4045 proc is_descendent {a} {
4046 global curview children descendent desc_todo
4051 set leftover {}
4052 set done 0
4057 continue
4058 }
4064 set done 1
4065 }
4066 }
4067 }
4070 return
4071 }
4072 }
4075 }
4077 proc is_ancestor {a} {
4078 global curview parents ancestor anc_todo
4083 set leftover {}
4084 set done 0
4089 continue
4090 }
4096 set done 1
4097 }
4098 }
4099 }
4102 return
4103 }
4104 }
4107 }
4109 proc askrelhighlight {row id} {
4110 global descendent highlight_related iddrawn rhighlights
4111 global selectedline ancestor
4114 set isbold 0
4119 }
4121 set isbold 1
4122 }
4127 }
4129 set isbold 1
4130 }
4131 }
4135 }
4136 }
4138 }
4140 # Graph layout functions
4142 proc shortids {ids} {
4143 set res {}
4149 } else {
4151 }
4152 }
4154 }
4156 proc ntimes {n o} {
4157 set ret {}
4162 }
4164 }
4166 }
4168 proc ordertoken {id} {
4169 global ordertok curview varcid varcstart varctok curview parents children
4170 global nullid nullid2
4174 }
4176 set todo {}
4177 while {1} {
4181 } else {
4183 }
4186 break
4187 }
4190 # it's a root
4192 break
4193 }
4196 } else {
4200 }
4202 }
4203 }
4208 }
4211 }
4213 # Work out where id should go in idlist so that order-token
4214 # values increase from left to right
4215 proc idcol {idlist id {i 0}} {
4218 set i 0
4219 }
4223 }
4225 incr i
4226 } else {
4230 }
4231 }
4233 }
4235 proc initlayout {} {
4236 global rowidlist rowisopt rowfinal displayorder parentlist
4237 global numcommits canvxmax canv
4238 global nextcolor
4239 global colormap rowtextx
4241 set numcommits 0
4242 set displayorder {}
4243 set parentlist {}
4244 set nextcolor 0
4245 set rowidlist {}
4246 set rowisopt {}
4247 set rowfinal {}
4249 catch {unset colormap}
4250 catch {unset rowtextx}
4251 setcanvscroll
4252 }
4254 proc setcanvscroll {} {
4255 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4256 global lastscrollset lastscrollrows
4262 set lastscrollset [clock clicks -milliseconds]
4264 }
4266 proc visiblerows {} {
4267 global canv numcommits linespc
4275 set r0 0
4276 }
4281 }
4283 }
4285 proc layoutmore {} {
4286 global commitidx viewcomplete curview
4287 global numcommits pending_select curview
4288 global lastscrollset lastscrollrows
4292 setcanvscroll
4293 }
4294 if {[info exists pending_select] &&
4296 update
4298 }
4299 drawvisible
4300 }
4302 proc doshowlocalchanges {} {
4303 global curview mainheadid
4307 dodiffindex
4308 } else {
4310 }
4311 }
4313 proc dohidelocalchanges {} {
4314 global nullid nullid2 lserial curview
4318 }
4321 }
4322 incr lserial
4323 }
4325 # spawn off a process to do git diff-index --cached HEAD
4326 proc dodiffindex {} {
4327 global lserial showlocalchanges
4328 global isworktree
4331 incr lserial
4332 set fd [open "|git diff-index --cached HEAD" r]
4336 }
4338 proc readdiffindex {fd serial inst} {
4339 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4341 set isdiff 1
4344 return 1
4345 }
4346 set isdiff 0
4347 }
4348 # we only need to see one line and we don't really care what it says...
4352 return 0
4353 }
4355 # now see if there are any local changes not checked in to the index
4356 set fd [open "|git diff-files" r]
4362 # add the line for the changes in the index to the graph
4363 set hl [mc "Local changes checked in to index but not committed"]
4368 }
4372 }
4373 return 0
4374 }
4376 proc readdifffiles {fd serial inst} {
4377 global mainheadid nullid nullid2 curview
4378 global commitinfo commitdata lserial
4380 set isdiff 1
4383 return 1
4384 }
4385 set isdiff 0
4386 }
4387 # we only need to see one line and we don't really care what it says...
4391 return 0
4392 }
4395 # add the line for the local diff to the graph
4396 set hl [mc "Local uncommitted changes, not checked in to index"]
4401 } else {
4403 }
4407 }
4408 return 0
4409 }
4411 proc nextuse {id row} {
4412 global curview children
4417 return -1
4418 }
4421 }
4422 }
4423 }
4426 }
4427 return -1
4428 }
4430 proc prevuse {id row} {
4431 global curview children
4433 set ret -1
4439 }
4440 }
4441 }
4443 }
4445 proc make_idlist {row} {
4446 global displayorder parentlist uparrowlen downarrowlen mingaplen
4447 global commitidx curview children
4451 set r 0
4452 }
4455 set ra 0
4456 }
4460 }
4462 set ids {}
4471 }
4472 }
4473 }
4481 }
4482 }
4483 }
4491 }
4492 }
4493 incr r
4499 }
4500 }
4501 }
4502 set idlist {}
4505 }
4507 }
4509 proc rowsequal {a b} {
4512 }
4515 }
4517 }
4519 proc makeupline {id row rend col} {
4520 global rowidlist uparrowlen downarrowlen mingaplen
4526 }
4529 }
4536 }
4537 }
4538 }
4540 proc layoutrows {row endrow} {
4541 global rowidlist rowisopt rowfinal displayorder
4542 global uparrowlen downarrowlen maxwidth mingaplen
4543 global children parentlist
4544 global commitidx viewcomplete curview
4547 set idlist {}
4553 }
4554 }
4556 }
4561 set final 1
4562 } else {
4570 # if not the first child, we have to insert a line going up
4573 }
4574 }
4575 }
4585 }
4586 }
4587 }
4594 }
4595 }
4605 }
4606 }
4614 }
4615 }
4616 }
4617 }
4618 }
4622 set final 0
4623 }
4627 lappend rowisopt 0
4633 }
4635 } else {
4642 }
4643 }
4645 }
4647 proc changedrow {row} {
4648 global displayorder iddrawn rowisopt need_redisplay
4657 }
4658 }
4659 }
4662 set need_redisplay 1
4663 }
4664 }
4666 proc insert_pad {row col npad} {
4667 global rowidlist
4676 }
4679 }
4681 proc optimize_rows {row col endrow} {
4682 global rowidlist rowisopt displayorder curview children
4685 set row 1
4686 }
4689 set haspad 0
4698 } else {
4699 set pprevidlist {}
4700 }
4701 set x0 -1
4702 set xm -1
4707 set haspad 1
4708 continue
4709 }
4713 set isarrow 0
4714 set z0 {}
4719 }
4720 }
4725 set isarrow 1
4726 }
4727 }
4730 set isarrow 1
4731 }
4732 # Looking at lines from this row to the previous row,
4733 # make them go straight up if they end in an arrow on
4734 # the previous row; otherwise make them go straight up
4735 # or at 45 degrees.
4737 # Line currently goes left too much;
4738 # insert pads in the previous row, then optimize it
4743 }
4751 }
4753 # Line currently goes right too much;
4754 # insert pads in this line
4760 set haspad 1
4761 }
4768 }
4769 }
4770 # avoid lines jigging left then immediately right
4773 incr x0
4776 }
4777 }
4779 # Find the first column that doesn't have a line going right
4785 # check if this is the link to the first child
4788 # it is, work out offset to child
4790 }
4791 }
4793 }
4794 # Insert a pad at that column as long as it has a line and
4795 # isn't the last column
4800 }
4801 }
4802 }
4803 }
4805 proc xc {row col} {
4806 global canvx0 linespc
4808 }
4810 proc yc {row} {
4811 global canvy0 linespc
4813 }
4815 proc linewidth {id} {
4816 global thickerline lthickness
4821 }
4823 }
4825 proc rowranges {id} {
4826 global curview children uparrowlen downarrowlen
4827 global rowidlist
4831 return {}
4832 }
4833 set ret {}
4838 if {![info exists prev]} {
4840 } else {
4842 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4843 }
4844 # see if the line extends the whole way from prevrow to row
4848 # it doesn't, see where it ends
4853 } else {
4856 incr r -1
4857 }
4859 # see where it starts up again
4864 } else {
4867 incr r
4868 }
4870 }
4871 }
4874 }
4877 }
4879 }
4881 proc drawlineseg {id row endrow arrowlow} {
4882 global rowidlist displayorder iddrawn linesegs
4883 global canv colormap linespc curview maxlinelen parentlist
4887 set arrowhigh 1
4888 while {1} {
4891 incr le -1
4892 break
4893 }
4897 set arrowhigh 0
4898 break
4899 }
4904 set arrowhigh 0
4905 }
4906 break
4907 }
4908 incr le
4909 }
4912 }
4914 set lines {}
4915 set i 0
4916 set joinhigh 0
4923 set joinhigh 1
4924 }
4925 break
4926 }
4927 incr i
4928 }
4929 }
4930 set joinlow 0
4935 set joinlow 1
4936 }
4937 }
4950 }
4951 } else {
4953 }
4961 set arrowlow 0
4962 }
4963 }
4971 }
4973 }
4976 # join parent line to first child
4987 } else {
4989 }
4997 }
4999 }
5001 } else {
5005 }
5013 } else {
5017 }
5019 }
5020 } else {
5026 }
5030 } else {
5031 # coalesce two pieces
5036 }
5040 }
5041 }
5045 }
5047 proc drawparentlinks {id row} {
5048 global rowidlist canv colormap curview parentlist
5049 global idpos linespc
5062 # rmx = right-most X coord used
5063 set rmx 0
5068 continue
5069 }
5073 }
5076 # drawlineseg will do this one for us
5077 continue
5078 }
5080 # should handle duplicated parents here...
5083 # if attaching to a vertical segment, draw a smaller
5084 # slant for visual distinctness
5088 } else {
5090 }
5092 # segment slants towards us already
5094 } else {
5099 }
5101 }
5102 } else {
5104 }
5109 }
5113 }
5114 }
5116 proc drawlines {id} {
5117 global canv
5120 }
5122 proc drawcmittext {id row col} {
5123 global linespc canv canv2 canv3 fgcolor curview
5124 global cmitlisted commitinfo rowidlist parentlist
5125 global rowtextx idpos idtags idheads idotherrefs
5126 global linehtag linentag linedtag selectedline
5127 global canvxmax boldrows boldnamerows fgcolor
5128 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5130 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5133 set ofill red
5135 set ofill green
5137 set ofill yellow
5138 } else {
5140 }
5149 # triangle pointing left for left-side commits
5155 } else {
5156 # triangle pointing right for right-side commits
5162 }
5174 }
5175 }
5176 }
5183 }
5188 set font mainfont
5189 set nfont mainfont
5193 set font mainfontbold
5196 set nfont mainfontbold
5197 }
5198 }
5208 }
5212 setcanvscroll
5213 }
5214 }
5216 proc drawcmitrow {row} {
5217 global displayorder rowidlist nrows_drawn
5218 global iddrawn markingmatches
5219 global commitinfo numcommits
5220 global filehighlight fhighlights findpattern nhighlights
5221 global hlview vhighlights
5222 global highlight_related rhighlights
5229 }
5232 }
5235 }
5238 }
5243 return
5244 }
5247 }
5251 incr nrows_drawn
5252 }
5255 }
5256 }
5258 proc drawcommits {row {endrow {}}} {
5259 global numcommits iddrawn displayorder curview need_redisplay
5260 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5263 set row 0
5264 }
5267 }
5270 }
5274 set rl1 0
5275 }
5278 set ro1 0
5279 }
5283 }
5288 }
5290 }
5291 }
5294 }
5297 clear_display
5298 drawvisible
5299 }
5301 # make the lines join to already-drawn rows either side
5305 }
5310 }
5325 # see if this is the first child of any of its parents
5328 # make this line extend up to the child
5330 }
5331 }
5332 } else {
5334 }
5335 }
5336 }
5337 }
5339 proc undolayout {row} {
5340 global uparrowlen mingaplen downarrowlen
5341 global rowidlist rowisopt rowfinal need_redisplay
5345 set r 0
5346 }
5348 incr r -1
5352 set need_redisplay 1
5353 run drawvisible
5354 }
5355 }
5357 proc drawvisible {} {
5358 global canv linespc curview vrowmod selectedline targetrow targetid
5359 global need_redisplay cscroll numcommits
5369 if {[info exists targetid]} {
5373 # Fix up the scrollregion and change the scrolling position
5374 # now that our target row has moved.
5377 setcanvscroll
5385 set need_redisplay 1
5386 }
5387 } else {
5388 unset targetid
5389 }
5390 }
5396 }
5400 } elseif {[info exists targetid]} {
5402 }
5403 if {[info exists targetrow]} {
5406 }
5408 }
5410 }
5412 proc clear_display {} {
5413 global iddrawn linesegs need_redisplay nrows_drawn
5414 global vhighlights fhighlights nhighlights rhighlights
5415 global linehtag linentag linedtag boldrows boldnamerows
5417 allcanvs delete all
5418 catch {unset iddrawn}
5419 catch {unset linesegs}
5420 catch {unset linehtag}
5421 catch {unset linentag}
5422 catch {unset linedtag}
5423 set boldrows {}
5424 set boldnamerows {}
5425 catch {unset vhighlights}
5426 catch {unset fhighlights}
5427 catch {unset nhighlights}
5428 catch {unset rhighlights}
5429 set need_redisplay 0
5430 set nrows_drawn 0
5431 }
5433 proc findcrossings {id} {
5434 global rowidlist parentlist numcommits displayorder
5436 set cross {}
5437 set ccross {}
5441 }
5460 }
5461 }
5462 }
5463 }
5464 }
5466 }
5468 proc assigncolor {id} {
5469 global colormap colors nextcolor
5470 global parents children children curview
5476 } else {
5477 set kids {}
5478 }
5484 return
5485 }
5486 }
5487 set badcolors {}
5488 set origbad {}
5491 # delimiter between corner crossings and other crossings
5494 }
5498 }
5499 }
5502 }
5509 }
5514 }
5515 }
5516 }
5519 }
5520 }
5524 set nextcolor 0
5525 }
5527 }
5529 }
5531 proc bindline {t id} {
5532 global canv
5538 }
5540 proc drawtags {id x xt y1} {
5541 global idtags idheads idotherrefs mainhead
5542 global linespc lthickness
5543 global canv rowtextx curview fgcolor bgcolor ctxbut
5545 set marks {}
5546 set ntags 0
5547 set nheads 0
5551 }
5555 }
5558 }
5561 }
5566 set xvals {}
5567 set wvals {}
5568 set i -1
5570 incr i
5573 } else {
5575 }
5579 }
5586 set font mainfont
5587 if {[incr ntags -1] >= 0} {
5588 # draw a tag
5594 } else {
5595 # draw a head or other ref
5596 if {[incr nheads -1] >= 0} {
5597 set col green
5599 set font mainfontbold
5600 }
5601 } else {
5602 set col "#ddddff"
5603 }
5614 }
5615 }
5622 }
5623 }
5625 }
5627 proc xcoord {i level ln} {
5628 global canvx0 xspc1 xspc2
5635 }
5637 }
5639 proc show_status {msg} {
5640 global canv fgcolor
5642 clear_display
5645 }
5647 # Don't change the text pane cursor if it is currently the hand cursor,
5648 # showing that we are over a sha1 ID link.
5649 proc settextcursor {c} {
5650 global ctext curtextcursor
5654 }
5656 }
5658 proc nowbusy {what {name {}}} {
5659 global isbusy busyname statusw
5661 if {[array names isbusy] eq {}} {
5662 . config -cursor watch
5663 settextcursor watch
5664 }
5669 }
5670 }
5672 proc notbusy {what} {
5673 global isbusy maincursor textcursor busyname statusw
5675 catch {
5680 }
5681 }
5682 if {[array names isbusy] eq {}} {
5685 }
5686 }
5688 proc findmatches {f} {
5689 global findtype findstring
5692 } else {
5697 }
5698 set matches {}
5699 set i 0
5704 }
5705 }
5707 }
5709 proc dofind {{dirn 1} {wrap 1}} {
5710 global findstring findstartline findcurline selectedline numcommits
5711 global gdttype filehighlight fh_serial find_dirn findallowwrap
5713 if {[info exists find_dirn]} {
5715 stopfinding
5716 }
5717 focus .
5721 } else {
5723 }
5725 nowbusy finding [mc "Searching"]
5729 }
5732 run findmore
5733 }
5735 proc stopfinding {} {
5736 global find_dirn findcurline fprogcoord
5738 if {[info exists find_dirn]} {
5739 unset find_dirn
5740 unset findcurline
5741 notbusy finding
5742 set fprogcoord 0
5743 adjustprogress
5744 }
5745 }
5747 proc findmore {} {
5748 global commitdata commitinfo numcommits findpattern findloc
5749 global findstartline findcurline findallowwrap
5750 global find_dirn gdttype fhighlights fprogcoord
5751 global curview varcorder vrownum varccommits vrowmod
5753 if {![info exists find_dirn]} {
5754 return 0
5755 }
5756 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5758 set moretodo 0
5760 incr l
5762 set l 0
5763 }
5766 } else {
5769 }
5770 } else {
5773 }
5774 incr l -1
5777 } else {
5778 set lim -1
5780 }
5781 }
5784 set n 500
5785 set moretodo 1
5786 }
5789 }
5790 set found 0
5791 set domore 1
5805 }
5807 # shouldn't happen unless git log doesn't give all the commits...
5810 continue
5811 }
5814 }
5819 set found 1
5820 break
5821 }
5822 }
5824 }
5825 } else {
5833 }
5838 }
5841 break
5842 }
5845 set domore 0
5847 }
5848 }
5849 }
5850 }
5852 unset findcurline
5853 unset find_dirn
5854 notbusy finding
5855 set fprogcoord 0
5856 adjustprogress
5859 } else {
5860 bell
5861 }
5862 return 0
5863 }
5865 flushhighlights
5866 } else {
5868 }
5872 }
5874 adjustprogress
5876 }
5878 proc findselectline {l} {
5879 global findloc commentend ctext findcurline markingmatches gdttype
5881 set markingmatches 1
5885 # highlight the matches in the comments
5892 }
5893 }
5894 drawvisible
5895 }
5897 # mark the bits of a headline or author that match a find string
5898 proc markmatches {canv l str tag matches font row} {
5899 global selectedline
5917 }
5918 }
5919 }
5921 proc unmarkmatches {} {
5922 global markingmatches
5924 allcanvs delete matches
5925 set markingmatches 0
5926 stopfinding
5927 }
5929 proc selcanvline {w x y} {
5930 global canv canvy0 ctext linespc
5931 global rowtextx
5938 set l 0
5939 }
5944 }
5945 unmarkmatches
5947 }
5949 proc commit_descriptor {p} {
5950 global commitinfo
5953 }
5954 set l "..."
5957 }
5959 }
5961 # append some text to the ctext widget, and make any SHA1 ID
5962 # that we know about be a clickable link.
5963 proc appendwithlinks {text tags} {
5964 global ctext linknum curview
5973 incr e
5977 incr linknum
5978 }
5979 }
5981 proc setlink {id lk} {
5982 global curview ctext pendinglinks
5984 set known 0
5989 set known 1
5991 }
5992 } else {
5994 }
6000 } else {
6003 }
6004 }
6006 proc makelink {id} {
6007 global pendinglinks
6012 }
6014 }
6016 proc linkcursor {w inc} {
6017 global linkentercount curtextcursor
6021 } else {
6024 set linkentercount 0
6025 }
6026 }
6027 }
6029 proc viewnextline {dir} {
6030 global canv linespc
6038 set newtop 0
6041 }
6043 }
6045 # add a list of tag or branch names at position pos
6046 # returns the number of names inserted
6047 proc appendrefs {pos ids var} {
6051 return 0
6052 }
6055 set tags {}
6059 }
6060 }
6063 } else {
6065 set sep {}
6069 incr linknum
6074 set sep ", "
6075 }
6076 }
6079 }
6081 # called when we have finished computing the nearby tags
6082 proc dispneartags {delay} {
6083 global selectedline currentid showneartags tagphase
6086 after cancel dispnexttag
6088 after 200 dispnexttag
6089 set tagphase -1
6090 } else {
6091 after idle dispnexttag
6092 set tagphase 0
6093 }
6094 }
6096 proc dispnexttag {} {
6097 global selectedline currentid showneartags tagphase ctext
6101 0 {
6105 }
6106 }
6107 1 {
6111 }
6112 }
6113 2 {
6118 # turn "Branch" into "Branches"
6122 }
6123 }
6124 }
6125 }
6126 if {[incr tagphase] <= 2} {
6127 after idle dispnexttag
6128 }
6129 }
6131 proc make_secsel {l} {
6132 global linehtag linentag linedtag canv canv2 canv3
6147 }
6149 proc selectline {l isnew} {
6150 global canv ctext commitinfo selectedline
6151 global canvy0 linespc parents children curview
6152 global currentid sha1entry
6153 global commentend idtags linknum
6154 global mergemax numcommits pending_select
6155 global cmitmode showneartags allcommits
6156 global targetrow targetid lastscrollrows
6157 global autoselect
6159 catch {unset pending_select}
6161 normalline
6162 unsel_reflist
6163 stopfinding
6171 setcanvscroll
6172 }
6186 } else {
6190 }
6191 }
6195 } else {
6199 }
6200 }
6201 }
6204 set newtop 0
6205 }
6207 drawvisible
6208 }
6214 }
6221 }
6225 clear_ctext
6226 set linknum 0
6229 }
6239 }
6241 }
6243 set headers {}
6246 set np 0
6249 set tag mmax
6250 } else {
6252 }
6255 incr np
6256 }
6257 } else {
6260 }
6261 }
6265 }
6267 # make anything that looks like a SHA1 ID be a clickable link
6270 if {![info exists allcommits]} {
6271 getallcommits
6272 }
6283 dispneartags 1
6284 }
6289 }
6296 init_flist [mc "Comments"]
6301 } else {
6303 }
6304 }
6306 proc selfirstline {} {
6307 unmarkmatches
6308 selectline 0 1
6309 }
6311 proc sellastline {} {
6312 global numcommits
6313 unmarkmatches
6316 }
6318 proc selnextline {dir} {
6319 global selectedline
6320 focus .
6323 unmarkmatches
6325 }
6327 proc selnextpage {dir} {
6328 global canv linespc selectedline numcommits
6332 set lpp 1
6333 }
6335 drawvisible
6339 set l 0
6342 }
6343 unmarkmatches
6345 }
6347 proc unselectline {} {
6348 global selectedline currentid
6350 set selectedline {}
6351 catch {unset currentid}
6352 allcanvs delete secsel
6353 rhighlight_none
6354 }
6356 proc reselectline {} {
6357 global selectedline
6361 }
6362 }
6364 proc addtohistory {cmd} {
6365 global history historyindex curview
6370 return
6371 }
6375 } else {
6377 }
6378 incr historyindex
6380 .tf.bar.leftbut conf -state normal
6381 } else {
6382 .tf.bar.leftbut conf -state disabled
6383 }
6384 .tf.bar.rightbut conf -state disabled
6385 }
6387 proc godo {elt} {
6388 global curview
6394 }
6396 }
6398 proc goback {} {
6399 global history historyindex
6400 focus .
6403 incr historyindex -1
6405 .tf.bar.rightbut conf -state normal
6406 }
6408 .tf.bar.leftbut conf -state disabled
6409 }
6410 }
6412 proc goforw {} {
6413 global history historyindex
6414 focus .
6418 incr historyindex
6420 .tf.bar.leftbut conf -state normal
6421 }
6423 .tf.bar.rightbut conf -state disabled
6424 }
6425 }
6427 proc gettree {id} {
6428 global treefilelist treeidlist diffids diffmergeid treepending
6429 global nullid nullid2
6432 catch {unset diffmergeid}
6434 if {![info exists treepending]} {
6436 set cmd [list | git ls-files]
6438 set cmd [list | git ls-files --stage -t]
6439 } else {
6441 }
6443 return
6444 }
6450 }
6451 } else {
6453 }
6454 }
6456 proc gettreeline {gtf id} {
6457 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6459 set nl 0
6463 } else {
6471 }
6474 }
6477 }
6480 }
6482 unset treepending
6484 if {![info exists diffmergeid]} {
6486 }
6489 } else {
6491 }
6492 return 0
6493 }
6495 proc showfile {f} {
6496 global treefilelist treeidlist diffids nullid nullid2
6497 global ctext_file_names ctext_file_lines
6498 global ctext commentend
6503 return
6504 }
6508 return
6509 }
6510 } else {
6514 return
6515 }
6516 }
6527 settabs 0
6528 }
6530 proc getblobline {bf id} {
6531 global diffids cmitmode ctext
6535 return 0
6536 }
6538 set nl 0
6541 }
6543 # delete last newline
6546 return 0
6547 }
6550 }
6552 proc mergediff {id} {
6553 global diffmergeid mdifffd
6554 global diffids treediffs
6555 global parents
6556 global diffcontext
6557 global diffencoding
6558 global limitdiffs vfilelimit curview
6563 # this doesn't seem to actually affect anything...
6567 }
6570 return
6571 }
6575 set diffencoding [get_path_encoding {}]
6578 }
6580 proc getmergediffline {mdf id np} {
6581 global diffmergeid ctext cflist mergemax
6582 global difffilestart mdifffd treediffs
6583 global ctext_file_names ctext_file_lines
6584 global diffencoding
6587 set nr 0
6592 return 0
6593 }
6595 # start of a new file
6612 # do nothing
6613 } else {
6615 # parse the prefix - one ' ', '-' or '+' for each parent
6616 set spaces {}
6617 set minuses {}
6618 set pluses {}
6619 set isbad 0
6628 } else {
6629 set isbad 1
6630 break
6631 }
6632 }
6633 set tags {}
6634 set num {}
6640 lappend tags mresult
6642 }
6645 set num "max"
6646 }
6648 }
6650 }
6651 }
6655 return 0
6656 }
6658 }
6660 proc startdiff {ids} {
6661 global treediffs diffids treepending diffmergeid nullid nullid2
6663 settabs 1
6665 catch {unset diffmergeid}
6669 if {![info exists treepending]} {
6671 }
6672 } else {
6674 }
6675 }
6677 proc path_filter {filter name} {
6682 return 1
6683 }
6684 } else {
6688 return 1
6689 }
6690 }
6691 }
6692 return 0
6693 }
6695 proc addtocflist {ids} {
6696 global treediffs
6700 }
6702 proc diffcmd {ids flags} {
6703 global nullid nullid2
6709 # comparing working directory with some specific revision
6713 } else {
6715 }
6716 } else {
6717 # comparing working directory with index
6720 lappend cmd -R
6721 }
6722 }
6726 # comparing index with specific revision
6729 } else {
6731 }
6732 } else {
6733 # comparing index with HEAD
6734 lappend cmd HEAD
6735 }
6736 } else {
6738 }
6740 }
6742 proc gettreediffs {ids} {
6743 global treediff treepending
6748 set treediff {}
6751 }
6753 proc gettreediffline {gdtf ids} {
6754 global treediff treediffs treepending diffids diffmergeid
6755 global cmitmode vfilelimit curview limitdiffs perfile_attrs
6757 set nr 0
6758 set sublist {}
6759 set max 1000
6761 # cache_gitattr is slow, and even slower on win32 where we
6762 # have to invoke it for only about 30 paths at a time
6763 set max 500
6764 if {[tk windowingsystem] == "win32"} {
6765 set max 120
6766 }
6767 }
6774 }
6778 }
6779 }
6782 }
6785 }
6788 set flist {}
6792 }
6793 }
6795 } else {
6797 }
6798 unset treepending
6802 if {![info exists diffmergeid]} {
6804 }
6805 } else {
6807 }
6808 return 0
6809 }
6811 # empty string or positive integer
6812 proc diffcontextvalidate {v} {
6814 }
6816 proc diffcontextchange {n1 n2 op} {
6817 global diffcontextstring diffcontext
6822 reselectline
6823 }
6824 }
6825 }
6827 proc changeignorespace {} {
6828 reselectline
6829 }
6831 proc getblobdiffs {ids} {
6832 global blobdifffd diffids env
6833 global diffinhdr treediffs
6834 global diffcontext
6835 global ignorespace
6836 global limitdiffs vfilelimit curview
6837 global diffencoding
6841 append cmd " -w"
6842 }
6845 }
6848 return
6849 }
6850 set diffinhdr 0
6851 set diffencoding [get_path_encoding {}]
6855 }
6857 proc setinlist {var i val} {
6862 }
6865 } else {
6867 }
6868 }
6870 proc makediffhdr {fname ids} {
6871 global ctext curdiffstart treediffs
6872 global ctext_file_names
6877 }
6882 }
6884 proc getblobdiffline {bdf ids} {
6885 global diffids blobdifffd ctext curdiffstart
6886 global diffnexthead diffnextnote difffilestart
6887 global ctext_file_names ctext_file_lines
6888 global diffinhdr treediffs
6889 global diffencoding
6891 set nr 0
6896 return 0
6897 }
6899 # trim off "diff --git "
6901 set diffinhdr 1
6902 # start of a new file
6905 lappend ctext_file_names ""
6908 # If the name hasn't changed the length will be odd,
6909 # the middle char will be a space, and the two bits either
6910 # side will be a/name and b/name, or "a/name" and "b/name".
6911 # If the name has changed we'll get "rename from" and
6912 # "rename to" or "copy from" and "copy to" lines following this,
6913 # and we'll use them to get the filenames.
6914 # This complexity is necessary because spaces in the filename(s)
6915 # don't get escaped.
6921 continue
6922 }
6923 # unescape if quoted and chop off the a/ from the front
6926 } else {
6928 }
6933 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6937 set diffinhdr 0
6944 }
6949 }
6955 }
6960 # do nothing
6961 continue
6963 set diffinhdr 0
6964 continue
6965 }
6968 } else {
6976 } else {
6977 # "\ No newline at end of file",
6978 # or something else we don't recognize
6980 }
6981 }
6982 }
6986 return 0
6987 }
6989 }
6991 proc changediffdisp {} {
6992 global ctext diffelide
6996 }
6998 proc highlightfile {loc cline} {
6999 global ctext cflist cflist_top
7006 }
7008 proc prevfile {} {
7009 global difffilestart ctext cmitmode
7012 set prev 0.0
7013 set prevline 1
7018 return
7019 }
7021 incr prevline
7022 }
7024 }
7026 proc nextfile {} {
7027 global difffilestart ctext cmitmode
7031 set line 1
7033 incr line
7036 return
7037 }
7038 }
7039 }
7041 proc clear_ctext {{first 1.0}} {
7042 global ctext smarktop smarkbot
7043 global ctext_file_names ctext_file_lines
7044 global pendinglinks
7049 }
7052 }
7055 catch {unset pendinglinks}
7056 }
7057 set ctext_file_names {}
7058 set ctext_file_lines {}
7059 }
7061 proc settabs {{firstab {}}} {
7062 global firsttabstop tabstop ctext have_tk85
7066 }
7067 set w [font measure textfont "0"]
7073 } else {
7075 }
7076 }
7078 proc incrsearch {name ix op} {
7079 global ctext searchstring searchdirn
7083 # no anchor set, use start of selection, or of visible area
7089 } else {
7091 }
7092 }
7097 }
7098 searchmarkvisible 1
7099 }
7100 }
7102 proc dosearch {} {
7103 global sstring ctext searchstring searchdirn
7107 set searchdirn -forwards
7113 set start "@0,0"
7114 }
7118 bell
7119 return
7120 }
7125 }
7126 }
7128 proc dosearchback {} {
7129 global sstring ctext searchstring searchdirn
7133 set searchdirn -backwards
7140 }
7144 bell
7145 return
7146 }
7151 }
7152 }
7154 proc searchmark {first last} {
7155 global ctext searchstring
7158 while {1} {
7163 }
7164 }
7166 proc searchmarkvisible {doall} {
7167 global ctext smarktop smarkbot
7172 # no overlap with previous
7176 } else {
7180 }
7184 }
7185 }
7186 }
7188 proc scrolltext {f0 f1} {
7189 global searchstring
7193 searchmarkvisible 0
7194 }
7195 }
7197 proc setcoords {} {
7198 global linespc charspc canvx0 canvy0
7199 global xspc1 xspc2 lthickness
7201 set linespc [font metrics mainfont -linespace]
7202 set charspc [font measure mainfont "m"]
7208 }
7210 proc redisplay {} {
7211 global canv
7212 global selectedline
7217 clear_display
7218 setcanvscroll
7220 drawvisible
7224 }
7225 }
7227 proc parsefont {f n} {
7228 global fontattr
7233 set s 10
7236 }
7242 "normal" -
7244 "roman" -
7246 }
7247 }
7248 }
7250 proc fontflags {f {isbold 0}} {
7251 global fontattr
7256 }
7258 proc fontname {f} {
7259 global fontattr
7263 lappend n "bold"
7264 }
7266 lappend n "italic"
7267 }
7269 }
7271 proc incrfont {inc} {
7272 global mainfont textfont ctext canv cflist showrefstop
7273 global stopped entries fontattr
7275 unmarkmatches
7279 set s 1
7280 }
7284 set mainfont [fontname mainfont]
7288 set s 1
7289 }
7293 set textfont [fontname textfont]
7294 setcoords
7295 settabs
7296 redisplay
7297 }
7299 proc clearsha1 {} {
7300 global sha1entry sha1string
7303 }
7304 }
7306 proc sha1change {n1 n2 op} {
7307 global sha1string currentid sha1but
7310 set state disabled
7311 } else {
7312 set state normal
7313 }
7317 } else {
7319 }
7320 }
7322 proc gotocommit {} {
7323 global sha1string tagids headids curview varcid
7331 } else {
7338 return
7339 }
7341 }
7342 }
7343 }
7346 return
7347 }
7350 } else {
7352 }
7354 }
7356 proc lineenter {x y id} {
7357 global hoverx hovery hoverid hovertimer
7358 global commitinfo canv
7364 if {[info exists hovertimer]} {
7366 }
7367 set hovertimer [after 500 linehover]
7369 }
7371 proc linemotion {x y id} {
7372 global hoverx hovery hoverid hovertimer
7377 if {[info exists hovertimer]} {
7379 }
7380 set hovertimer [after 500 linehover]
7381 }
7382 }
7384 proc lineleave {id} {
7385 global hoverid hovertimer canv
7389 if {[info exists hovertimer]} {
7391 unset hovertimer
7392 }
7393 unset hoverid
7394 }
7395 }
7397 proc linehover {} {
7398 global hoverx hovery hoverid hovertimer
7399 global canv linespc lthickness
7400 global commitinfo
7413 -fill \#ffff80 -outline black -width 1 -tags hover]
7416 -font mainfont]
7418 }
7420 proc clickisonarrow {id y} {
7421 global lthickness
7430 }
7431 }
7432 return {}
7433 }
7435 proc arrowjump {id n y} {
7436 global canv
7438 # 1 <-> 2, 3 <-> 4, etc...
7448 set yfrac 0
7449 }
7451 }
7453 proc lineclick {x y id isnew} {
7454 global ctext commitinfo children canv thickerline curview
7457 unmarkmatches
7458 unselectline
7459 normalline
7461 # draw this line thicker than normal
7469 }
7473 return
7474 }
7478 }
7479 # fill the details pane with info about this line
7481 clear_ctext
7482 settabs 0
7494 set i 0
7496 incr i
7506 }
7507 }
7509 init_flist {}
7510 }
7512 proc normalline {} {
7513 global thickerline
7514 if {[info exists thickerline]} {
7516 unset thickerline
7518 }
7519 }
7521 proc selbyid {id} {
7522 global curview
7525 }
7526 }
7528 proc mstime {} {
7529 global startmstime
7530 if {![info exists startmstime]} {
7531 set startmstime [clock clicks -milliseconds]
7532 }
7534 }
7536 proc rowmenu {x y id} {
7537 global rowctxmenu selectedline rowmenuid curview
7538 global nullid nullid2 fakerowmenu mainhead
7540 stopfinding
7543 set state disabled
7544 } else {
7545 set state normal
7546 }
7551 } else {
7553 }
7554 } else {
7556 }
7561 }
7563 proc diffvssel {dirn} {
7564 global rowmenuid selectedline
7570 } else {
7573 }
7576 }
7578 proc doseldiff {oldid newid} {
7579 global ctext
7580 global commitinfo
7583 clear_ctext
7584 init_flist [mc "Top"]
7599 }
7601 proc mkpatch {} {
7602 global rowmenuid currentid commitinfo patchtop patchnum
7604 if {![info exists currentid]} return
7609 set top .patch
7638 incr patchnum
7648 }
7650 proc mkpatchrev {} {
7651 global patchtop
7657 foreach e [list fromsha1 fromhead tosha1 tohead] \
7663 }
7664 }
7666 proc mkpatchgo {} {
7667 global patchtop nullid nullid2
7673 # trim off the initial "|"
7678 }
7680 unset patchtop
7681 }
7683 proc mkpatchcan {} {
7684 global patchtop
7687 unset patchtop
7688 }
7690 proc mktag {} {
7691 global rowmenuid mktagtop commitinfo
7693 set top .maketag
7719 }
7721 proc domktag {} {
7722 global mktagtop env tagids idtags
7727 error_popup [mc "No tag name specified"]
7728 return
7729 }
7732 return
7733 }
7734 if {[catch {
7736 } err]} {
7738 return
7739 }
7745 dispneartags 0
7746 run refill_reflist
7747 }
7749 proc redrawtags {id} {
7750 global canv linehtag idpos currentid curview cmitlisted
7751 global canvxmax iddrawn circleitem mainheadid circlecolors
7757 set ofill yellow
7758 } else {
7760 }
7770 setcanvscroll
7771 }
7774 }
7775 }
7777 proc mktagcan {} {
7778 global mktagtop
7781 unset mktagtop
7782 }
7784 proc mktaggo {} {
7785 domktag
7786 mktagcan
7787 }
7789 proc writecommit {} {
7790 global rowmenuid wrcomtop commitinfo wrcomcmd
7792 set top .writecommit
7822 }
7824 proc wrcomgo {} {
7825 global wrcomtop
7832 }
7834 unset wrcomtop
7835 }
7837 proc wrcomcan {} {
7838 global wrcomtop
7841 unset wrcomtop
7842 }
7844 proc mkbranch {} {
7845 global rowmenuid mkbrtop
7847 set top .makebranch
7869 }
7871 proc mkbrgo {top} {
7872 global headids idheads
7876 set cmdargs {}
7877 set old_id {}
7879 error_popup [mc "Please specify a name for the new branch"]
7880 return
7881 }
7883 if {![confirm_popup [mc \
7885 return
7886 }
7888 lappend cmdargs -f
7889 }
7892 nowbusy newbranch
7893 update
7894 if {[catch {
7896 } err]} {
7897 notbusy newbranch
7899 } else {
7900 notbusy newbranch
7906 } else {
7911 }
7912 dispneartags 0
7913 run refill_reflist
7914 }
7915 }
7917 proc cherrypick {} {
7918 global rowmenuid curview
7919 global mainhead mainheadid
7921 set oldhead [exec git rev-parse HEAD]
7924 set ok [confirm_popup [mc "Commit %s is already\
7925 included in branch %s -- really re-apply it?" \
7928 }
7929 nowbusy cherrypick [mc "Cherry-picking"]
7930 update
7931 # Unfortunately git-cherry-pick writes stuff to stderr even when
7932 # no error occurs, and exec takes that as an indication of error...
7934 notbusy cherrypick
7936 return
7937 }
7938 set newhead [exec git rev-parse HEAD]
7940 notbusy cherrypick
7941 error_popup [mc "No changes committed"]
7942 return
7943 }
7950 }
7955 }
7956 notbusy cherrypick
7957 }
7959 proc resethead {} {
7960 global mainhead rowmenuid confirm_ok resettype
7962 set confirm_ok 0
7963 set w ".confirmreset"
7969 -justify center -aspect 1000
7974 set resettype mixed
7976 -text [mc "Soft: Leave working tree and index untouched"]
7979 -text [mc "Mixed: Leave working tree untouched, reset index"]
7982 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7992 if {[catch {set fd [open \
7995 } else {
7996 dohidelocalchanges
7998 nowbusy reset [mc "Resetting"]
8000 }
8001 }
8003 proc readresetstat {fd} {
8004 global mainhead mainheadid showlocalchanges rprogcoord
8009 adjustprogress
8010 }
8011 return 1
8012 }
8013 set rprogcoord 0
8014 adjustprogress
8015 notbusy reset
8018 }
8020 set newhead [exec git rev-parse HEAD]
8027 }
8029 doshowlocalchanges
8030 }
8031 return 0
8032 }
8034 # context menu for a head
8035 proc headmenu {x y id head} {
8036 global headmenuid headmenuhead headctxmenu mainhead
8038 stopfinding
8041 set state normal
8043 set state disabled
8044 }
8048 }
8050 proc cobranch {} {
8051 global headmenuid headmenuhead headids
8052 global showlocalchanges mainheadid
8054 # check the tree is clean first??
8055 nowbusy checkout [mc "Checking out"]
8056 update
8057 dohidelocalchanges
8058 if {[catch {
8060 } err]} {
8061 notbusy checkout
8064 dodiffindex
8065 }
8066 } else {
8068 }
8069 }
8071 proc readcheckoutstat {fd newhead newheadid} {
8072 global mainhead mainheadid headids showlocalchanges progresscoords
8077 adjustprogress
8078 }
8079 return 1
8080 }
8081 set progresscoords {0 0}
8082 adjustprogress
8083 notbusy checkout
8086 }
8094 dodiffindex
8095 }
8096 }
8098 proc rmbranch {} {
8099 global headmenuid headmenuhead mainhead
8100 global idheads
8104 # this check shouldn't be needed any more...
8106 error_popup [mc "Cannot delete the currently checked-out branch"]
8107 return
8108 }
8111 # the stuff on this branch isn't on any other branch
8112 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8114 }
8115 nowbusy rmbranch
8116 update
8118 notbusy rmbranch
8120 return
8121 }
8125 notbusy rmbranch
8126 dispneartags 0
8127 run refill_reflist
8128 }
8130 # Display a list of tags and heads
8131 proc showrefs {} {
8132 global showrefstop bgcolor fgcolor selectbgcolor
8133 global bglist fglist reflistfilter reflist maincursor
8135 set top .showrefs
8139 refill_reflist
8140 return
8141 }
8148 -spacing1 1 -spacing3 1 -state disabled
8159 set reflistfilter "*"
8160 trace add variable reflistfilter write reflistfilter_change
8171 set reflist {}
8172 refill_reflist
8173 }
8175 proc sel_reflist {w x y} {
8176 global showrefstop reflist headids tagids otherrefids
8186 }
8188 }
8190 proc unsel_reflist {} {
8191 global showrefstop
8195 }
8197 proc reflistfilter_change {n1 n2 op} {
8198 global reflistfilter
8200 after cancel refill_reflist
8201 after 200 refill_reflist
8202 }
8204 proc refill_reflist {} {
8205 global reflist reflistfilter showrefstop headids tagids otherrefids
8206 global curview
8209 set refs {}
8210 foreach n [array names headids] {
8214 } else {
8216 }
8217 }
8218 }
8219 foreach n [array names tagids] {
8223 } else {
8225 }
8226 }
8227 }
8228 foreach n [array names otherrefids] {
8232 } else {
8234 }
8235 }
8236 }
8244 set i 0
8245 set j 0
8254 }
8255 } else {
8256 set cmp -1
8257 }
8258 } else {
8259 set cmp 1
8260 }
8262 -1 {
8264 incr i
8265 }
8266 0 {
8267 incr i
8268 incr j
8269 }
8270 1 {
8275 incr j
8276 }
8277 }
8278 }
8280 # delete last newline
8283 }
8285 # Stuff for finding nearby tags
8286 proc getallcommits {} {
8287 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8288 global idheads idtags idotherrefs allparents tagobjid
8290 if {![info exists allcommits]} {
8291 set nextarc 0
8292 set allcommits 0
8293 set seeds {}
8294 set allcwait 0
8295 set cachedarcs 0
8296 set allccache [file join [gitdir] "gitk.cache"]
8297 if {![catch {
8299 set allcwait 1
8301 }]} return
8302 }
8305 return
8306 }
8307 set cmd [list | git rev-list --parents]
8310 set ids "--all"
8311 } else {
8312 set refs [concat [array names idheads] [array names idtags] \
8313 [array names idotherrefs]]
8314 set ids {}
8315 set tagobjs {}
8316 foreach name [array names tagobjid] {
8318 }
8323 }
8324 }
8328 }
8329 }
8330 }
8334 incr allcommits
8335 nowbusy allcommits
8337 } else {
8338 dispneartags 0
8339 }
8340 }
8342 # Since most commits have 1 parent and 1 child, we group strings of
8343 # such commits into "arcs" joining branch/merge points (BMPs), which
8344 # are commits that either don't have 1 parent or don't have 1 child.
8345 #
8346 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8347 # arcout(id) - outgoing arcs for BMP
8348 # arcids(a) - list of IDs on arc including end but not start
8349 # arcstart(a) - BMP ID at start of arc
8350 # arcend(a) - BMP ID at end of arc
8351 # growing(a) - arc a is still growing
8352 # arctags(a) - IDs out of arcids (excluding end) that have tags
8353 # archeads(a) - IDs out of arcids (excluding end) that have heads
8354 # The start of an arc is at the descendent end, so "incoming" means
8355 # coming from descendents, and "outgoing" means going towards ancestors.
8357 proc getallclines {fd} {
8358 global allparents allchildren idtags idheads nextarc
8359 global arcnos arcids arctags arcout arcend arcstart archeads growing
8360 global seeds allcommits cachedarcs allcupdate
8362 set nid 0
8366 # seen it already
8367 continue
8368 }
8369 set cachedarcs 0
8376 } else {
8382 }
8385 }
8387 # seen parent already
8390 }
8394 }
8397 continue
8398 }
8399 }
8404 }
8406 set ao {}
8409 set a [incr nextarc]
8418 # seen it already, may need to make a new branch
8421 }
8425 }
8427 }
8429 }
8431 global cached_dheads cached_dtags cached_atags
8432 catch {unset cached_dheads}
8433 catch {unset cached_dtags}
8434 catch {unset cached_atags}
8435 }
8438 }
8439 set cacheok 1
8440 if {[catch {
8443 } err]} {
8444 # got an error reading the list of commits
8445 # if we were updating, try rereading the whole thing again
8447 incr allcommits -1
8449 return
8450 }
8451 error_popup "[mc "Error reading commit topology information;\
8452 branch and preceding/following tag information\
8454 set cacheok 0
8455 }
8456 if {[incr allcommits -1] == 0} {
8457 notbusy allcommits
8459 run savecache
8460 }
8461 }
8462 dispneartags 0
8463 return 0
8464 }
8466 proc recalcarc {a} {
8467 global arctags archeads arcids idtags idheads
8469 set at {}
8470 set ah {}
8474 }
8477 }
8478 }
8481 }
8483 proc splitarc {p} {
8484 global arcnos arcids nextarc arctags archeads idtags idheads
8485 global arcstart arcend arcout allparents growing
8490 return
8491 }
8496 return
8497 }
8498 set na [incr nextarc]
8501 } else {
8505 }
8515 }
8520 } else {
8523 }
8524 }
8526 # reconstruct tags and heads lists
8530 } else {
8533 }
8534 }
8536 # Update things for a new commit added that is a child of one
8537 # existing commit. Used when cherry-picking.
8538 proc addnewchild {id p} {
8539 global allparents allchildren idtags nextarc
8540 global arcnos arcids arctags arcout arcend arcstart archeads growing
8541 global seeds allcommits
8549 set a [incr nextarc]
8557 }
8560 }
8562 # This implements a cache for the topology information.
8563 # The cache saves, for each arc, the start and end of the arc,
8564 # the ids on the arc, and the outgoing arcs from the end.
8565 proc readcache {f} {
8566 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8567 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8568 global allcwait
8574 }
8575 if {[catch {
8577 # finish reading the cache and setting up arctags, etc.
8581 foreach id [array names idtags] {
8587 }
8588 }
8589 }
8590 foreach id [array names idheads] {
8596 }
8597 }
8598 }
8602 }
8603 }
8604 set allcwait 0
8605 } else {
8615 }
8619 } else {
8623 }
8624 }
8630 }
8633 }
8636 }
8638 }
8639 } err]} {
8641 return 0
8642 }
8644 getallcommits
8645 }
8647 }
8649 proc getcache {f} {
8650 global nextarc cachedarcs possible_seeds
8652 if {[catch {
8655 # make sure it's an integer
8658 set nextarc 0
8659 set possible_seeds {}
8661 } err]} {
8663 }
8664 return 0
8665 }
8667 proc dropcache {err} {
8668 global allcwait nextarc cachedarcs seeds
8671 foreach v {arcnos arcout arcids arcstart arcend growing \
8672 arctags archeads allparents allchildren} {
8675 }
8676 set allcwait 0
8677 set nextarc 0
8678 set cachedarcs 0
8679 set seeds {}
8680 getallcommits
8681 }
8683 proc writecache {f} {
8684 global cachearc cachedarcs allccache
8685 global arcstart arcend arcnos arcids arcout
8691 }
8692 if {[catch {
8696 } else {
8698 }
8699 }
8700 } err]} {
8704 return 0
8705 }
8710 return 0
8711 }
8712 return 1
8713 }
8715 proc savecache {} {
8716 global nextarc cachedarcs cachearc allccache
8719 set cachearc 0
8721 catch {
8725 }
8726 }
8728 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8729 # or 0 if neither is true.
8730 proc anc_or_desc {a b} {
8731 global arcout arcstart arcend arcnos cached_isanc
8734 # Both are on the same arc(s); either both are the same BMP,
8735 # or if one is not a BMP, the other is also not a BMP or is
8736 # the BMP at end of the arc (and it only has 1 incoming arc).
8737 # Or both can be BMPs with no incoming arcs.
8739 return 0
8740 }
8746 return 1
8747 } else {
8748 return -1
8749 }
8750 }
8756 } else {
8757 set aend {}
8758 }
8760 } else {
8762 }
8767 } else {
8768 set bend {}
8769 }
8771 } else {
8773 }
8775 return 1
8776 }
8778 return -1
8779 }
8782 return 1
8783 }
8784 }
8787 return -1
8788 }
8790 return 0
8791 }
8792 }
8800 continue
8801 }
8807 return 1
8811 return -1
8812 }
8818 }
8819 }
8820 }
8823 return 0
8824 }
8828 # and returns 0 if so and 1 if not.
8829 # If we subsequently discover a tag on such a growing tip, and that
8832 # isn't a good choice to display as a descendent tag of
8836 #
8837 proc is_certain {desc anc} {
8838 global arcnos arcout arcstart arcend growing problems
8840 set certain {}
8842 # tags on the same arc are certain
8844 return 1
8845 }
8850 }
8851 }
8854 } else {
8857 }
8859 return 1
8860 }
8863 set nnh 1
8864 set ngrowanc 0
8868 incr nnh -1
8869 }
8875 incr ngrowanc
8876 }
8877 } else {
8884 incr nnh -1
8885 }
8887 incr ngrowanc -1
8888 }
8898 incr nnh -1
8899 }
8901 incr ngrowanc -1
8902 }
8904 }
8905 }
8906 }
8907 }
8908 }
8909 }
8913 } else {
8916 incr nnh
8917 }
8918 }
8919 }
8920 }
8921 foreach x [array names growanc] {
8923 return 0
8924 }
8925 return 0
8926 }
8927 return 1
8928 }
8930 proc validate_arctags {a} {
8931 global arctags idtags
8933 set i -1
8936 incr i
8939 incr i -1
8940 }
8941 }
8943 }
8945 proc validate_archeads {a} {
8946 global archeads idheads
8948 set i -1
8951 incr i
8954 incr i -1
8955 }
8956 }
8958 }
8960 # Return the list of IDs that have tags that are descendents of id,
8961 # ignoring IDs that are descendents of IDs already reported.
8962 proc desctags {id} {
8963 global arcnos arcstart arcids arctags idtags allparents
8964 global growing cached_dtags
8967 return {}
8968 }
8969 set t1 [clock clicks -milliseconds]
8972 # part-way along an arc; check that arc first
8977 set tid {}
8982 }
8985 }
8986 }
8990 }
8991 }
8994 }
8999 set nc 1
9005 incr nc -1
9006 }
9007 # ignore tags on starting node
9011 set ta 1
9014 set ta 1
9015 }
9016 }
9023 }
9024 }
9033 }
9036 }
9038 incr nc -1
9039 }
9041 }
9042 }
9043 }
9048 incr nc
9049 }
9050 }
9051 }
9052 }
9053 set tags {}
9054 foreach id [array names tagloc] {
9059 }
9060 }
9061 }
9062 }
9063 set t2 [clock clicks -milliseconds]
9066 # remove tags that are descendents of other tags
9074 incr j -1
9075 incr i -1
9078 incr i -1
9079 break
9080 }
9081 }
9082 }
9084 if {[array names growing] ne {}} {
9085 # graph isn't finished, need to check if any tag could get
9086 # eclipsed by another tag coming later. Simply ignore any
9087 # tags that could later get eclipsed.
9088 set ctags {}
9092 }
9093 }
9096 } else {
9098 }
9099 } else {
9101 }
9102 set t3 [clock clicks -milliseconds]
9106 }
9108 }
9110 proc anctags {id} {
9111 global arcnos arcids arcout arcend arctags idtags allparents
9112 global growing cached_atags
9115 return {}
9116 }
9117 set t1 [clock clicks -milliseconds]
9120 # part-way along an arc; check that arc first
9129 }
9130 }
9131 }
9133 return {}
9134 }
9138 }
9139 }
9142 }
9147 set taglist {}
9148 set nc 1
9154 incr nc -1
9155 }
9156 # ignore tags on starting node
9160 set td 1
9163 set td 1
9164 }
9165 }
9171 }
9172 }
9184 }
9185 }
9188 }
9190 incr nc -1
9191 }
9193 }
9194 }
9195 }
9200 incr nc
9201 }
9202 }
9203 }
9204 }
9205 set t2 [clock clicks -milliseconds]
9207 set tags {}
9208 foreach id [array names tagloc] {
9213 }
9214 }
9215 }
9216 }
9218 # remove tags that are ancestors of other tags
9226 incr j -1
9227 incr i -1
9230 incr i -1
9231 break
9232 }
9233 }
9234 }
9236 if {[array names growing] ne {}} {
9237 # graph isn't finished, need to check if any tag could get
9238 # eclipsed by another tag coming later. Simply ignore any
9239 # tags that could later get eclipsed.
9240 set ctags {}
9244 }
9245 }
9248 } else {
9250 }
9251 } else {
9253 }
9254 set t3 [clock clicks -milliseconds]
9258 }
9260 }
9262 # Return the list of IDs that have heads that are descendents of id,
9263 # including id itself if it has a head.
9264 proc descheads {id} {
9265 global arcnos arcstart arcids archeads idheads cached_dheads
9266 global allparents
9269 return {}
9270 }
9271 set aret {}
9273 # part-way along an arc; check it first
9282 }
9283 }
9285 }
9289 set ret {}
9294 } else {
9297 }
9303 }
9304 }
9309 }
9310 }
9311 }
9312 }
9316 }
9318 proc addedtag {id} {
9319 global arcnos arcout cached_dtags cached_atags
9324 }
9325 catch {unset cached_dtags}
9326 catch {unset cached_atags}
9327 }
9329 proc addedhead {hid head} {
9330 global arcnos arcout cached_dheads
9335 }
9336 catch {unset cached_dheads}
9337 }
9339 proc removedhead {hid head} {
9340 global cached_dheads
9342 catch {unset cached_dheads}
9343 }
9345 proc movedhead {hid head} {
9346 global arcnos arcout cached_dheads
9351 }
9352 catch {unset cached_dheads}
9353 }
9355 proc changedrefs {} {
9356 global cached_dheads cached_dtags cached_atags
9357 global arctags archeads arcnos arcout idheads idtags
9359 foreach id [concat [array names idheads] [array names idtags]] {
9365 }
9366 }
9367 }
9368 catch {unset cached_dtags}
9369 catch {unset cached_atags}
9370 catch {unset cached_dheads}
9371 }
9373 proc rereadrefs {} {
9374 global idtags idheads idotherrefs mainheadid
9376 set refids [concat [array names idtags] \
9377 [array names idheads] [array names idotherrefs]]
9381 }
9382 }
9384 readrefs
9385 changedrefs
9387 [array names idheads] [array names idotherrefs]]]
9392 }
9393 }
9397 }
9398 run refill_reflist
9399 }
9401 proc listrefs {id} {
9402 global idtags idheads idotherrefs
9404 set x {}
9407 }
9408 set y {}
9411 }
9412 set z {}
9415 }
9417 }
9419 proc showtag {tag isnew} {
9420 global ctext tagcontents tagids linknum tagobjid
9424 }
9426 clear_ctext
9427 settabs 0
9428 set linknum 0
9430 catch {
9432 }
9433 }
9436 } else {
9438 }
9441 init_flist {}
9442 }
9444 proc doquit {} {
9445 global stopped
9446 global gitktmpdir
9448 set stopped 100
9449 savestuff .
9450 destroy .
9452 if {[info exists gitktmpdir]} {
9454 }
9455 }
9457 proc mkfontdisp {font top which} {
9466 }
9468 proc choosefont {font which} {
9469 global fontparam fontlist fonttop fontattr
9477 set top .gitkfont
9480 font create sample
9486 set fontlist [lsort [font families]]
9497 -textvariable fontparam(size) \
9498 -validatecommand {string is integer -strict %s}
9500 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9501 -variable fontparam(weight) -onvalue bold -offvalue normal
9503 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9504 -variable fontparam(slant) -onvalue italic -offvalue roman
9508 -background white
9510 -fill black -tags text
9520 trace add variable fontparam write chg_fontparam
9521 } else {
9524 }
9529 }
9530 }
9532 proc centertext {w} {
9534 }
9536 proc fontok {} {
9537 global fontparam fontpref prefstop
9543 }
9546 }
9550 fontcan
9551 }
9553 proc fontcan {} {
9554 global fonttop fontparam
9556 if {[info exists fonttop]} {
9558 catch {font delete sample}
9559 unset fonttop
9560 unset fontparam
9561 }
9562 }
9564 proc selfontfam {} {
9565 global fonttop fontparam
9570 }
9571 }
9573 proc chg_fontparam {v sub op} {
9574 global fontparam
9577 }
9579 proc doprefs {} {
9580 global maxwidth maxgraphpct
9581 global oldprefs prefstop showneartags showlocalchanges
9582 global bgcolor fgcolor ctext diffcolors selectbgcolor
9583 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9585 set top .gitkprefs
9589 return
9590 }
9591 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9592 limitdiffs tabstop perfile_attrs} {
9594 }
9601 -font optionfont
9605 -font optionfont
9643 -padx 10
9645 -command choose_extdiff
9672 "diff hunk header" \
9694 }
9696 proc choose_extdiff {} {
9697 global extdifftool
9699 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9702 }
9703 }
9705 proc choosecolor {v vi w x cmd} {
9714 }
9716 proc setselbg {c} {
9717 global bglist cflist
9720 }
9724 }
9726 proc setbg {c} {
9727 global bglist
9731 }
9732 }
9734 proc setfg {c} {
9735 global fglist canv
9739 }
9742 }
9744 proc prefscan {} {
9745 global oldprefs prefstop
9747 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9748 limitdiffs tabstop perfile_attrs} {
9751 }
9753 unset prefstop
9754 fontcan
9755 }
9757 proc prefsok {} {
9758 global maxwidth maxgraphpct
9759 global oldprefs prefstop showneartags showlocalchanges
9760 global fontpref mainfont textfont uifont
9761 global limitdiffs treediffs perfile_attrs
9764 unset prefstop
9765 fontcan
9766 set fontchanged 0
9770 eval font configure mainfont [fontflags mainfont]
9771 eval font configure mainfontbold [fontflags mainfont 1]
9772 setcoords
9773 set fontchanged 1
9774 }
9778 eval font configure textfont [fontflags textfont]
9779 eval font configure textfontbold [fontflags textfont 1]
9780 }
9784 eval font configure uifont [fontflags uifont]
9785 }
9786 settabs
9789 doshowlocalchanges
9790 } else {
9791 dohidelocalchanges
9792 }
9793 }
9796 # treediffs elements are limited by path;
9797 # won't have encodings cached if perfile_attrs was just turned on
9798 catch {unset treediffs}
9799 }
9802 redisplay
9805 reselectline
9806 }
9807 }
9809 proc formatdate {d} {
9810 global datetimeformat
9813 }
9815 }
9817 # This list of encoding names and aliases is distilled from
9818 # http://www.iana.org/assignments/character-sets.
9819 # Not all of them are supported by Tcl.
9820 set encoding_aliases {
9821 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9822 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9823 { ISO-10646-UTF-1 csISO10646UTF1 }
9824 { ISO_646.basic:1983 ref csISO646basic1983 }
9825 { INVARIANT csINVARIANT }
9826 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9827 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9828 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9829 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9830 { NATS-DANO iso-ir-9-1 csNATSDANO }
9831 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9832 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9833 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9834 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9835 { ISO-2022-KR csISO2022KR }
9836 { EUC-KR csEUCKR }
9837 { ISO-2022-JP csISO2022JP }
9838 { ISO-2022-JP-2 csISO2022JP2 }
9839 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9840 csISO13JISC6220jp }
9841 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9842 { IT iso-ir-15 ISO646-IT csISO15Italian }
9843 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9844 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9845 { greek7-old iso-ir-18 csISO18Greek7Old }
9846 { latin-greek iso-ir-19 csISO19LatinGreek }
9847 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9848 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9849 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9850 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9851 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9852 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9853 { INIS iso-ir-49 csISO49INIS }
9854 { INIS-8 iso-ir-50 csISO50INIS8 }
9855 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9856 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9857 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9858 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9859 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9860 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9861 csISO60Norwegian1 }
9862 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9863 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9864 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9865 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9866 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9867 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9868 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9869 { greek7 iso-ir-88 csISO88Greek7 }
9870 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9871 { iso-ir-90 csISO90 }
9872 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9873 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9874 csISO92JISC62991984b }
9875 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9876 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9877 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9878 csISO95JIS62291984handadd }
9879 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9880 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9881 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9882 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9883 CP819 csISOLatin1 }
9884 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9885 { T.61-7bit iso-ir-102 csISO102T617bit }
9886 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9887 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9888 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9889 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9890 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9891 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9892 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9893 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9894 arabic csISOLatinArabic }
9895 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9896 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9897 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9898 greek greek8 csISOLatinGreek }
9899 { T.101-G2 iso-ir-128 csISO128T101G2 }
9900 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9901 csISOLatinHebrew }
9902 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9903 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9904 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9905 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9906 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9907 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9908 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9909 csISOLatinCyrillic }
9910 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9911 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9912 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9913 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9914 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9915 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9916 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9917 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9918 { ISO_10367-box iso-ir-155 csISO10367Box }
9919 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9920 { latin-lap lap iso-ir-158 csISO158Lap }
9921 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9922 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9923 { us-dk csUSDK }
9924 { dk-us csDKUS }
9925 { JIS_X0201 X0201 csHalfWidthKatakana }
9926 { KSC5636 ISO646-KR csKSC5636 }
9927 { ISO-10646-UCS-2 csUnicode }
9928 { ISO-10646-UCS-4 csUCS4 }
9929 { DEC-MCS dec csDECMCS }
9930 { hp-roman8 roman8 r8 csHPRoman8 }
9931 { macintosh mac csMacintosh }
9932 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9933 csIBM037 }
9934 { IBM038 EBCDIC-INT cp038 csIBM038 }
9935 { IBM273 CP273 csIBM273 }
9936 { IBM274 EBCDIC-BE CP274 csIBM274 }
9937 { IBM275 EBCDIC-BR cp275 csIBM275 }
9938 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9939 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9940 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9941 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9942 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9943 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9944 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9945 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9946 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9947 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9948 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9949 { IBM437 cp437 437 csPC8CodePage437 }
9950 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9951 { IBM775 cp775 csPC775Baltic }
9952 { IBM850 cp850 850 csPC850Multilingual }
9953 { IBM851 cp851 851 csIBM851 }
9954 { IBM852 cp852 852 csPCp852 }
9955 { IBM855 cp855 855 csIBM855 }
9956 { IBM857 cp857 857 csIBM857 }
9957 { IBM860 cp860 860 csIBM860 }
9958 { IBM861 cp861 861 cp-is csIBM861 }
9959 { IBM862 cp862 862 csPC862LatinHebrew }
9960 { IBM863 cp863 863 csIBM863 }
9961 { IBM864 cp864 csIBM864 }
9962 { IBM865 cp865 865 csIBM865 }
9963 { IBM866 cp866 866 csIBM866 }
9964 { IBM868 CP868 cp-ar csIBM868 }
9965 { IBM869 cp869 869 cp-gr csIBM869 }
9966 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9967 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9968 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9969 { IBM891 cp891 csIBM891 }
9970 { IBM903 cp903 csIBM903 }
9971 { IBM904 cp904 904 csIBBM904 }
9972 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9973 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9974 { IBM1026 CP1026 csIBM1026 }
9975 { EBCDIC-AT-DE csIBMEBCDICATDE }
9976 { EBCDIC-AT-DE-A csEBCDICATDEA }
9977 { EBCDIC-CA-FR csEBCDICCAFR }
9978 { EBCDIC-DK-NO csEBCDICDKNO }
9979 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9980 { EBCDIC-FI-SE csEBCDICFISE }
9981 { EBCDIC-FI-SE-A csEBCDICFISEA }
9982 { EBCDIC-FR csEBCDICFR }
9983 { EBCDIC-IT csEBCDICIT }
9984 { EBCDIC-PT csEBCDICPT }
9985 { EBCDIC-ES csEBCDICES }
9986 { EBCDIC-ES-A csEBCDICESA }
9987 { EBCDIC-ES-S csEBCDICESS }
9988 { EBCDIC-UK csEBCDICUK }
9989 { EBCDIC-US csEBCDICUS }
9990 { UNKNOWN-8BIT csUnknown8BiT }
9991 { MNEMONIC csMnemonic }
9992 { MNEM csMnem }
9993 { VISCII csVISCII }
9994 { VIQR csVIQR }
9995 { KOI8-R csKOI8R }
9996 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9997 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9998 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9999 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10000 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10001 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10002 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10003 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10004 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10005 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10006 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10007 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10008 { IBM1047 IBM-1047 }
10009 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10010 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10011 { UNICODE-1-1 csUnicode11 }
10012 { CESU-8 csCESU-8 }
10013 { BOCU-1 csBOCU-1 }
10014 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10015 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10016 l8 }
10017 { ISO-8859-15 ISO_8859-15 Latin-9 }
10018 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10019 { GBK CP936 MS936 windows-936 }
10020 { JIS_Encoding csJISEncoding }
10021 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10022 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10023 EUC-JP }
10024 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10025 { ISO-10646-UCS-Basic csUnicodeASCII }
10026 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10027 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10028 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10029 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10030 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10031 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10032 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10033 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10034 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10035 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10036 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10037 { Ventura-US csVenturaUS }
10038 { Ventura-International csVenturaInternational }
10039 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10040 { PC8-Turkish csPC8Turkish }
10041 { IBM-Symbols csIBMSymbols }
10042 { IBM-Thai csIBMThai }
10043 { HP-Legal csHPLegal }
10044 { HP-Pi-font csHPPiFont }
10045 { HP-Math8 csHPMath8 }
10046 { Adobe-Symbol-Encoding csHPPSMath }
10047 { HP-DeskTop csHPDesktop }
10048 { Ventura-Math csVenturaMath }
10049 { Microsoft-Publishing csMicrosoftPublishing }
10050 { Windows-31J csWindows31J }
10051 { GB2312 csGB2312 }
10052 { Big5 csBig5 }
10053 }
10055 proc tcl_encoding {enc} {
10056 global encoding_aliases tcl_encoding_cache
10059 }
10060 set names [encoding names]
10065 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10068 }
10069 }
10074 # look through the aliases for one that tcl knows about
10080 }
10081 }
10083 }
10084 break
10085 }
10086 }
10087 set tclenc {}
10090 }
10093 }
10095 proc gitattr {path attr default} {
10096 global path_attr_cache
10099 } else {
10100 set r "unspecified"
10103 }
10105 }
10108 }
10110 }
10112 proc cache_gitattr {attr pathlist} {
10113 global path_attr_cache
10114 set newlist {}
10118 }
10119 }
10120 set lim 1000
10121 if {[tk windowingsystem] == "win32"} {
10122 # windows has a 32k limit on the arguments to a command...
10123 set lim 30
10124 }
10133 }
10135 }
10136 }
10137 }
10138 }
10139 }
10141 proc get_path_encoding {path} {
10142 global gui_encoding perfile_attrs
10148 }
10149 }
10151 }
10153 # First check that Tcl/Tk is recent enough
10154 if {[catch {package require Tk 8.4} err]} {
10155 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10156 Gitk requires at least Tcl/Tk 8.4."]
10157 exit 1
10158 }
10160 # defaults...
10161 set wrcomcmd "git diff-tree --stdin -p --pretty"
10163 set gitencoding {}
10164 catch {
10165 set gitencoding [exec git config --get i18n.commitencoding]
10166 }
10168 set gitencoding "utf-8"
10169 }
10173 }
10175 set gui_encoding [encoding system]
10176 catch {
10177 set enc [exec git config --get gui.encoding]
10182 } else {
10184 }
10185 }
10186 }
10188 set mainfont {Helvetica 9}
10189 set textfont {Courier 9}
10190 set uifont {Helvetica 9 bold}
10191 set tabstop 8
10192 set findmergefiles 0
10193 set maxgraphpct 50
10194 set maxwidth 16
10195 set revlistorder 0
10196 set fastdate 0
10197 set uparrowlen 5
10198 set downarrowlen 5
10199 set mingaplen 100
10200 set cmitmode "patch"
10201 set wrapcomment "none"
10202 set showneartags 1
10203 set maxrefs 20
10204 set maxlinelen 200
10205 set showlocalchanges 1
10206 set limitdiffs 1
10207 set datetimeformat "%Y-%m-%d %H:%M:%S"
10208 set autoselect 1
10209 set perfile_attrs 0
10211 set extdifftool "meld"
10213 set colors {green red blue magenta darkgrey brown orange}
10214 set bgcolor white
10215 set fgcolor black
10216 set diffcolors {red "#00a000" blue}
10217 set diffcontext 3
10218 set ignorespace 0
10219 set selectbgcolor gray85
10221 set circlecolors {white blue gray blue blue}
10223 # button for popping up context menus
10224 if {[tk windowingsystem] eq "aqua"} {
10225 set ctxbut <Button-2>
10226 } else {
10227 set ctxbut <Button-3>
10228 }
10230 ## For msgcat loading, first locate the installation location.
10231 if { [info exists ::env(GITK_MSGSDIR)] } {
10232 ## Msgsdir was manually set in the environment.
10233 set gitk_msgsdir $::env(GITK_MSGSDIR)
10234 } else {
10235 ## Let's guess the prefix from argv0.
10239 unset gitk_prefix
10240 }
10242 ## Internationalization (i18n) through msgcat and gettext. See
10243 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10244 package require msgcat
10245 namespace import ::msgcat::mc
10246 ## And eventually load the actual message catalog
10249 catch {source ~/.gitk}
10251 font create optionfont -family sans-serif -size -12
10254 eval font create mainfont [fontflags mainfont]
10255 eval font create mainfontbold [fontflags mainfont 1]
10258 eval font create textfont [fontflags textfont]
10259 eval font create textfontbold [fontflags textfont 1]
10262 eval font create uifont [fontflags uifont]
10264 setoptions
10266 # check that we can find a .git directory somewhere...
10267 if {[catch {set gitdir [gitdir]}]} {
10268 show_error {} . [mc "Cannot find a git repository here."]
10269 exit 1
10270 }
10273 exit 1
10274 }
10276 set selecthead {}
10277 set selectheadid {}
10279 set revtreeargs {}
10280 set cmdline_files {}
10281 set i 0
10282 set revtreeargscmd {}
10285 "" { }
10286 "--" {
10288 break
10289 }
10290 "--select-commit=*" {
10292 }
10293 "--argscmd=*" {
10295 }
10296 default {
10298 }
10299 }
10300 incr i
10301 }
10304 set selecthead {}
10305 }
10308 # no -- on command line, but some arguments (other than --argscmd)
10309 if {[catch {
10314 # Unfortunately git rev-parse doesn't produce an error when
10315 # something is both a revision and a filename. To be consistent
10316 # with git log and git rev-list, check revtreeargs for filenames.
10319 show_error {} . [mc "Ambiguous argument '%s': both revision\
10321 exit 1
10322 }
10323 }
10324 } err]} {
10326 # so look for "fatal:".
10330 }
10332 exit 1
10333 }
10334 }
10336 set nullid "0000000000000000000000000000000000000000"
10337 set nullid2 "0000000000000000000000000000000000000001"
10338 set nullfile "/dev/null"
10342 set runq {}
10343 set history {}
10344 set historyindex 0
10345 set fh_serial 0
10346 set nhl_names {}
10347 set highlight_paths {}
10348 set findpattern {}
10349 set searchdirn -forwards
10350 set boldrows {}
10351 set boldnamerows {}
10352 set diffelide {0 0}
10353 set markingmatches 0
10354 set linkentercount 0
10355 set need_redisplay 0
10356 set nrows_drawn 0
10357 set firsttabstop 0
10359 set nextviewnum 1
10360 set curview 0
10361 set selectedview 0
10362 set selectedhlview [mc "None"]
10363 set highlight_related [mc "None"]
10364 set highlight_files {}
10365 set viewfiles(0) {}
10366 set viewperm(0) 0
10367 set viewargs(0) {}
10368 set viewargscmd(0) {}
10370 set selectedline {}
10371 set numcommits 0
10372 set loginstance 0
10373 set cmdlineok 0
10374 set stopped 0
10375 set stuffsaved 0
10376 set patchnum 0
10377 set lserial 0
10378 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10379 setcoords
10380 makewindow
10381 # wait for the window to become visible
10382 tkwait visibility .
10384 readrefs
10387 # create a view for the files/dirs specified on the command line
10388 set curview 1
10389 set selectedview 1
10390 set nextviewnum 2
10391 set viewname(1) [mc "Command line"]
10395 set viewperm(1) 0
10396 set vdatemode(1) 0
10397 addviewmenu 1
10398 .bar.view entryconf [mca "Edit view..."] -state normal
10399 .bar.view entryconf [mca "Delete view"] -state normal
10400 }
10402 if {[info exists permviews]} {
10405 incr nextviewnum
10412 }
10413 }
10414 getcommits {}