| blob | e6aafe8a687ee501a86666a00b2ccd9d5a014114 |
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 }
1743 global have_tk85
1745 # In MacOS Tk 8.4 transient appears to work by setting
1746 # overrideredirect, which is utterly useless, since the
1747 # windows get no border, and are not even kept above
1748 # the parent.
1751 wm transient $window $origin
1753 # Windows fails to place transient windows normally, so
1754 # schedule a callback to center them on the parent.
1757 }
1758 }
1769 tkwait window $top
1770 }
1773 set w .error
1774 toplevel $w
1775 make_transient $w $owner
1776 show_error $w $w $msg
1777 }
1780 global confirm_ok
1782 set w .confirm
1783 toplevel $w
1784 make_transient $w $owner
1795 tkwait window $w
1797 }
1799 proc setoptions {} {
1801 option add *Panedwindow.sashRelief raised startupFile
1802 option add *Button.font uifont startupFile
1803 option add *Checkbutton.font uifont startupFile
1804 option add *Radiobutton.font uifont startupFile
1805 option add *Menu.font uifont startupFile
1806 option add *Menubutton.font uifont startupFile
1807 option add *Label.font uifont startupFile
1808 option add *Message.font uifont startupFile
1809 option add *Entry.font uifont startupFile
1810 }
1812 # Make a menu and submenus.
1813 # m is the window name for the menu, items is the list of menu items to add.
1814 # Each item is a list {mc label type description options...}
1815 # mc is ignored; it's so we can put mc there to alert xgettext
1816 # label is the string that appears in the menu
1817 # type is cascade, command or radiobutton (should add checkbutton)
1818 # description depends on type; it's the sublist for cascade, the
1819 # command to invoke for command, or {variable value} for radiobutton
1821 menu $m
1823 set Meta1 Cmd
1825 set Meta1 Ctrl
1826 }
1837 }
1838 }
1843 }
1846 }
1850 }
1851 }
1857 }
1858 }
1859 }
1861 # translate string and remove ampersands
1864 }
1866 proc makewindow {} {
1867 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1868 global tabstop
1869 global findtype findtypemenu findloc findstring fstring geometry
1870 global entries sha1entry sha1string sha1but
1871 global diffcontextstring diffcontext
1872 global ignorespace
1873 global maincursor textcursor curtextcursor
1874 global rowctxmenu fakerowmenu mergemax wrapcomment
1875 global highlight_files gdttype
1876 global searchstring sstring
1877 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1878 global headctxmenu progresscanv progressitem progresscoords statusw
1879 global fprogitem fprogcoord lastprogupdate progupdatepending
1880 global rprogitem rprogcoord rownumsel numcommits
1881 global have_tk85
1883 # The "mc" arguments here are purely so that xgettext
1884 # sees the following string as needing to be translated
1885 makemenu .bar {
1892 }}
1895 }}
1902 }}
1906 }}
1907 }
1908 . configure -menu .bar
1910 # the gui has upper and lower half, parts of a paned window.
1911 panedwindow .ctop -orient vertical
1913 # possibly use assumed geometry
1921 }
1923 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1925 frame .tf.histframe
1928 # create three canvases
1929 set cscroll .tf.histframe.csb
1930 set canv .tf.histframe.pwclist.canv
1931 canvas $canv \
1935 .tf.histframe.pwclist add $canv
1936 set canv2 .tf.histframe.pwclist.canv2
1937 canvas $canv2 \
1940 .tf.histframe.pwclist add $canv2
1941 set canv3 .tf.histframe.pwclist.canv3
1942 canvas $canv3 \
1945 .tf.histframe.pwclist add $canv3
1949 # a scroll bar to rule them
1953 lappend bglist $canv $canv2 $canv3
1956 # we have two button bars at bottom of top frame. Bar 1
1957 frame .tf.bar
1960 set sha1entry .tf.bar.sha1
1962 set sha1but .tf.bar.sha1label
1966 pack .tf.bar.sha1label -side left
1968 trace add variable sha1string write sha1change
1972 #define left_width 16
1973 #define left_height 16
1974 static unsigned char left_bits[] = {
1978 }
1980 #define right_width 16
1981 #define right_height 16
1982 static unsigned char right_bits[] = {
1986 }
2001 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2002 -side left
2003 global selectedline
2004 trace add variable selectedline write selectedline_change
2006 # Status label and progress bar
2007 set statusw .tf.bar.status
2011 set progresscanv .tf.bar.progress
2024 # build up the bottom bar of upper window
2029 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2036 trace add variable gdttype write gdttype_change
2040 set fstring .tf.lbar.findstring
2041 lappend entries $fstring
2043 trace add variable findstring write find_change
2047 trace add variable findtype write findcom_change
2051 trace add variable findloc write find_change
2052 pack .tf.lbar.findloc -side right
2053 pack .tf.lbar.findtype -side right
2056 # Finish putting the upper half of the viewer together
2060 .ctop add .tf
2064 # now build up the bottom
2065 panedwindow .pwbottom -orient horizontal
2067 # lower left, a text box over search bar, scroll bar to the right
2068 # if we know window height, then that will set the lower text height, otherwise
2069 # we set lower text height which will drive window height
2074 }
2075 frame .bleft.top
2076 frame .bleft.mid
2077 frame .bleft.bottom
2081 set sstring .bleft.top.sstring
2083 lappend entries $sstring
2084 trace add variable searchstring write incrsearch
2097 -textvariable diffcontextstring
2099 trace add variable diffcontextstring write diffcontextchange
2100 lappend entries .bleft.mid.diffcontext
2101 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2105 set ctext .bleft.bottom.ctext
2112 }
2119 grid .bleft.bottom.sbhorizontal -sticky ew
2124 lappend bglist $ctext
2125 lappend fglist $ctext
2154 .pwbottom add .bleft
2157 # lower right
2158 frame .bright
2159 frame .bright.mode
2166 set cflist .bright.cfiles
2168 text $cflist \
2171 -font mainfont \
2176 lappend bglist $cflist
2177 lappend fglist $cflist
2181 $cflist tag configure highlight \
2185 .pwbottom add .bright
2186 .ctop add .pwbottom
2188 # restore window width & height if known
2193 }
2196 }
2198 }
2199 }
2202 set M1B M1
2204 set M1B Control
2205 }
2210 #bindall <B1-Motion> {selcanvline %W %x %y}
2220 allcanvs yview scroll $delta units
2221 }
2222 }
2223 }
2245 bindkey p "selnextline -1"
2246 bindkey n "selnextline 1"
2247 bindkey z "goback"
2248 bindkey x "goforw"
2249 bindkey i "selnextline -1"
2250 bindkey k "selnextline 1"
2251 bindkey j "goback"
2252 bindkey l "goforw"
2253 bindkey b prevfile
2259 bindkey f nextfile
2276 wm protocol . WM_DELETE_WINDOW doquit
2285 global ctxbut
2289 set maincursor [. cget -cursor]
2293 set rowctxmenu .rowctxmenu
2295 {mc "Diff this -> selected" command {diffvssel 0}}
2296 {mc "Diff selected -> this" command {diffvssel 1}}
2297 {mc "Make patch" command mkpatch}
2298 {mc "Create tag" command mktag}
2299 {mc "Write commit to file" command writecommit}
2300 {mc "Create new branch" command mkbranch}
2301 {mc "Cherry-pick this commit" command cherrypick}
2302 {mc "Reset HEAD branch to here" command resethead}
2303 }
2306 set fakerowmenu .fakerowmenu
2308 {mc "Diff this -> selected" command {diffvssel 0}}
2309 {mc "Diff selected -> this" command {diffvssel 1}}
2310 {mc "Make patch" command mkpatch}
2311 }
2314 set headctxmenu .headctxmenu
2316 {mc "Check out this branch" command cobranch}
2317 {mc "Remove this branch" command rmbranch}
2318 }
2321 global flist_menu
2322 set flist_menu .flistctxmenu
2324 {mc "Highlight this too" command {flist_hl 0}}
2325 {mc "Highlight this only" command {flist_hl 1}}
2326 {mc "External diff" command {external_diff}}
2327 {mc "Blame parent commit" command {external_blame 1}}
2328 }
2331 global diff_menu
2332 set diff_menu .diffctxmenu
2334 {mc "Show origin of this line" command show_line_source}
2335 {mc "Run git gui blame on this line" command {external_blame_diff}}
2336 }
2338 }
2340 # Windows sends all mouse wheel events to the current focused window, not
2341 # the one where the mouse hovers, so bind those events here and redirect
2342 # to the correct window
2343 proc windows_mousewheel_redirector {W X Y D} {
2344 global canv canv2 canv3
2350 } else {
2351 catch {
2353 }
2354 }
2355 }
2356 }
2358 # Update row number label when selectedline changes
2359 proc selectedline_change {n1 n2 op} {
2360 global selectedline rownumsel
2363 set rownumsel {}
2364 } else {
2366 }
2367 }
2369 # mouse-2 makes all windows scan vertically, but only the one
2370 # the cursor is in scans horizontally
2371 proc canvscan {op w x y} {
2372 global canv canv2 canv3
2376 } else {
2378 }
2379 }
2380 }
2382 proc scrollcanv {cscroll f0 f1} {
2384 drawvisible
2385 flushhighlights
2386 }
2388 # when we make a key binding for the toplevel, make sure
2389 # it doesn't get triggered when that key is pressed in the
2390 # find string entry widget.
2391 proc bindkey {ev script} {
2392 global entries
2396 set escript [bind Entry <Key>]
2397 }
2400 }
2401 }
2403 # set the focus back to the toplevel for any click outside
2404 # the entry widgets
2405 proc click {w} {
2406 global ctext entries
2409 }
2410 focus .
2411 }
2413 # Adjust the progress bar for a change in requested extent or canvas size
2414 proc adjustprogress {} {
2415 global progresscanv progressitem progresscoords
2416 global fprogitem fprogcoord lastprogupdate progupdatepending
2417 global rprogitem rprogcoord
2426 set now [clock clicks -milliseconds]
2428 set progupdatepending 0
2429 update
2431 set progupdatepending 1
2433 }
2434 }
2436 proc doprogupdate {} {
2437 global lastprogupdate progupdatepending
2440 set progupdatepending 0
2441 set lastprogupdate [clock clicks -milliseconds]
2442 update
2443 }
2444 }
2446 proc savestuff {w} {
2447 global canv canv2 canv3 mainfont textfont uifont tabstop
2448 global stuffsaved findmergefiles maxgraphpct
2449 global maxwidth showneartags showlocalchanges
2450 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2451 global cmitmode wrapcomment datetimeformat limitdiffs
2452 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2453 global autoselect extdifftool perfile_attrs markbgcolor
2456 if {![winfo viewable .]} return
2457 catch {
2458 set f [open "~/.gitk-new" w]
2495 }
2496 }
2499 file rename -force "~/.gitk-new" "~/.gitk"
2500 }
2501 set stuffsaved 1
2502 }
2504 proc resizeclistpanes {win w} {
2505 global oldwidth
2512 } else {
2517 set sash0 30
2518 }
2521 }
2526 }
2527 }
2528 }
2531 }
2533 }
2535 proc resizecdetpanes {win w} {
2536 global oldwidth
2541 } else {
2545 set sash0 45
2546 }
2549 }
2550 }
2552 }
2554 }
2556 proc allcanvs args {
2557 global canv canv2 canv3
2561 }
2563 proc bindall {event action} {
2564 global canv canv2 canv3
2568 }
2570 proc about {} {
2571 global uifont
2572 set w .about
2575 return
2576 }
2581 Gitk - a commit viewer for git
2583 Copyright © 2005-2008 Paul Mackerras
2585 Use and redistribute under the terms of the GNU General Public License"] \
2586 -justify center -aspect 400 -border 2 -bg white -relief groove
2593 }
2595 proc keys {} {
2596 set w .keys
2599 return
2600 }
2601 if {[tk windowingsystem] eq {aqua}} {
2602 set M1T Cmd
2603 } else {
2604 set M1T Ctrl
2605 }
2610 [mc "Gitk key bindings:"]
2613 [mc "<Home> Move to first commit"]
2614 [mc "<End> Move to last commit"]
2615 [mc "<Up>, p, i Move up one commit"]
2616 [mc "<Down>, n, k Move down one commit"]
2617 [mc "<Left>, z, j Go back in history list"]
2618 [mc "<Right>, x, l Go forward in history list"]
2619 [mc "<PageUp> Move up one page in commit list"]
2620 [mc "<PageDown> Move down one page in commit list"]
2627 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2628 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2629 [mc "<Delete>, b Scroll diff view up one page"]
2630 [mc "<Backspace> Scroll diff view up one page"]
2631 [mc "<Space> Scroll diff view down one page"]
2632 [mc "u Scroll diff view up 18 lines"]
2633 [mc "d Scroll diff view down 18 lines"]
2636 [mc "<Return> Move to next find hit"]
2637 [mc "/ Move to next find hit, or redo find"]
2638 [mc "? Move to previous find hit"]
2639 [mc "f Scroll diff view to next file"]
2646 [mc "<F5> Update"]
2647 " \
2648 -justify left -bg white -border 2 -relief groove
2656 }
2658 # Procedures for manipulating the file list window at the
2659 # bottom right of the overall window.
2661 proc treeview {w l openlevs} {
2662 global treecontents treediropen treeheight treeparent treeindex
2664 set ix 0
2665 set treeindex() 0
2666 set lev 0
2667 set prefix {}
2668 set prefixend -1
2669 set prefendstack {}
2670 set htstack {}
2671 set ht 0
2672 set treecontents() {}
2679 }
2686 incr lev -1
2687 }
2691 set ht 0
2703 set ht 1
2708 set str "\n"
2716 }
2717 incr lev
2718 }
2721 incr ht
2722 set str "\n"
2726 }
2728 }
2729 }
2737 }
2739 }
2741 proc linetoelt {l} {
2742 global treeheight treecontents
2744 set y 2
2745 set prefix {}
2746 while {1} {
2750 }
2751 set n 1
2756 incr y
2757 break
2758 }
2759 }
2761 }
2762 }
2763 }
2765 proc highlight_tree {y prefix} {
2766 global treeheight treecontents cflist
2772 }
2773 incr y
2776 }
2777 }
2779 }
2781 proc treeclosedir {w dir} {
2782 global treediropen treeheight treeparent treeindex
2794 }
2795 }
2797 proc treeopendir {w dir} {
2798 global treediropen treeheight treeparent treecontents treeindex
2805 set lev 0
2806 set str "\n"
2809 incr lev
2810 append str "\t"
2812 }
2827 } else {
2830 }
2831 }
2844 }
2846 }
2847 }
2849 proc treeclick {w x y} {
2850 global treediropen cmitmode ctext cflist cflist_top
2853 if {![info exists cflist_top]} return
2860 return
2861 }
2867 } else {
2869 }
2870 }
2872 proc setfilelist {id} {
2873 global treefilelist cflist jump_to_here
2880 }
2881 }
2882 }
2884 image create bitmap tri-rt -background black -foreground blue -data {
2885 #define tri-rt_width 13
2886 #define tri-rt_height 13
2887 static unsigned char tri-rt_bits[] = {
2888 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2889 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2890 0x00, 0x00};
2891 } -maskdata {
2892 #define tri-rt-mask_width 13
2893 #define tri-rt-mask_height 13
2894 static unsigned char tri-rt-mask_bits[] = {
2895 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2896 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2897 0x08, 0x00};
2898 }
2899 image create bitmap tri-dn -background black -foreground blue -data {
2900 #define tri-dn_width 13
2901 #define tri-dn_height 13
2902 static unsigned char tri-dn_bits[] = {
2903 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2904 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2905 0x00, 0x00};
2906 } -maskdata {
2907 #define tri-dn-mask_width 13
2908 #define tri-dn-mask_height 13
2909 static unsigned char tri-dn-mask_bits[] = {
2910 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2911 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2912 0x00, 0x00};
2913 }
2915 image create bitmap reficon-T -background black -foreground yellow -data {
2916 #define tagicon_width 13
2917 #define tagicon_height 9
2918 static unsigned char tagicon_bits[] = {
2919 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2920 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2921 } -maskdata {
2922 #define tagicon-mask_width 13
2923 #define tagicon-mask_height 9
2924 static unsigned char tagicon-mask_bits[] = {
2925 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2926 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2927 }
2928 set rectdata {
2929 #define headicon_width 13
2930 #define headicon_height 9
2931 static unsigned char headicon_bits[] = {
2932 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2933 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2934 }
2935 set rectmask {
2936 #define headicon-mask_width 13
2937 #define headicon-mask_height 9
2938 static unsigned char headicon-mask_bits[] = {
2939 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2940 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2941 }
2942 image create bitmap reficon-H -background black -foreground green \
2944 image create bitmap reficon-o -background black -foreground "#ddddff" \
2947 proc init_flist {first} {
2948 global cflist cflist_top difffilestart
2954 set cflist_top 1
2956 } else {
2957 catch {unset cflist_top}
2958 }
2960 set difffilestart {}
2961 }
2963 proc highlight_tag {f} {
2964 global highlight_paths
2968 return "bold"
2969 }
2970 }
2971 return {}
2972 }
2974 proc highlight_filelist {} {
2975 global cmitmode cflist
2984 }
2985 }
2986 } else {
2987 highlight_tree 2 {}
2988 }
2990 }
2992 proc unhighlight_filelist {} {
2993 global cflist
2998 }
3000 proc add_flist {fl} {
3001 global cflist
3007 }
3009 }
3011 proc sel_flist {w x y} {
3012 global ctext difffilestart cflist cflist_top cmitmode
3015 if {![info exists cflist_top]} return
3022 } else {
3024 }
3025 }
3027 proc pop_flist_menu {w X Y x y} {
3028 global ctext cflist cmitmode flist_menu flist_menu_file
3029 global treediffs diffids
3031 stopfinding
3037 } else {
3039 }
3041 set xdiffstate "normal"
3043 set xdiffstate "disabled"
3044 }
3045 # Disable "External diff" item in tree mode
3048 }
3050 proc find_ctext_fileinfo {line} {
3051 global ctext_file_names ctext_file_lines
3057 return {}
3058 } else {
3060 }
3061 }
3063 proc pop_diff_menu {w X Y x y} {
3064 global ctext diff_menu flist_menu_file
3065 global diff_menu_txtpos diff_menu_line
3066 global diff_menu_filebase
3070 # don't pop up the menu on hunk-separator or file-separator lines
3072 return
3073 }
3074 stopfinding
3080 }
3082 proc flist_hl {only} {
3083 global flist_menu_file findstring gdttype
3088 } else {
3090 }
3091 set gdttype [mc "touching paths:"]
3092 }
3094 proc save_file_from_commit {filename output what} {
3095 global nullfile
3100 }
3102 return {}
3103 }
3105 }
3107 proc external_diff_get_one_file {diffid filename diffdir} {
3108 global nullid nullid2 nullfile
3109 global gitdir
3115 }
3117 }
3121 }
3125 }
3127 proc external_diff {} {
3128 global gitktmpdir nullid nullid2
3129 global flist_menu_file
3130 global diffids
3131 global diffnum
3132 global gitdir extdifftool
3135 # no reference commit given
3138 # diffing working copy with index
3141 # diffing index with HEAD
3142 set diffidfrom "HEAD"
3143 } else {
3144 # use first parent commit
3145 global parentlist selectedline
3147 }
3148 } else {
3151 }
3153 # make sure that several diffs wont collide
3154 if {![info exists gitktmpdir]} {
3156 [format ".gitk-tmp.%s" [pid]]]
3159 unset gitktmpdir
3160 return
3161 }
3162 set diffnum 0
3163 }
3164 incr diffnum
3168 return
3169 }
3171 # gather files to diff
3181 } else {
3184 }
3185 }
3186 }
3188 proc find_hunk_blamespec {base line} {
3189 global ctext
3191 # Find and parse the hunk header
3197 s_line old_specs osz osz1 new_line nsz]} {
3198 return
3199 }
3201 # base lines for the parents
3205 old_spec old_line osz]} {
3206 return
3207 }
3209 }
3211 # Now scan the lines to determine offset within the hunk
3213 set dline 0
3216 # Determine if the line is removed
3220 # Choose a parent index
3223 } else {
3227 } else {
3228 # blame the current commit
3229 set parent -1
3230 }
3231 }
3232 # then count other lines that belong to it
3235 # Determine if the line is removed
3240 incr dline
3241 }
3242 } else {
3244 incr dline
3245 }
3246 }
3247 }
3248 incr parent
3249 } else {
3250 set parent 0
3251 }
3255 }
3257 proc external_blame_diff {} {
3258 global currentid cmitmode
3259 global diff_menu_txtpos diff_menu_line
3260 global diff_menu_filebase flist_menu_file
3263 set parent_idx 0
3265 } else {
3270 } else {
3271 set parent_idx 0
3272 set line 0
3273 }
3274 }
3277 }
3280 # at stage 0 or 2
3281 proc index_sha1 {fname} {
3289 }
3290 }
3292 return {}
3293 }
3295 proc external_blame {parent_idx {line {}}} {
3296 global flist_menu_file
3297 global nullid nullid2
3298 global parentlist selectedline currentid
3302 } else {
3304 }
3307 error_popup [mc "No such commit"]
3308 return
3309 }
3311 set cmdline [list git gui blame]
3314 }
3318 }
3319 }
3321 proc show_line_source {} {
3322 global cmitmode currentid parents curview blamestuff blameinst
3323 global diff_menu_line diff_menu_filebase flist_menu_file
3324 global nullid nullid2 gitdir
3326 set from_index {}
3330 } else {
3336 return
3337 }
3338 incr pi -1
3341 # must be a merge in progress...
3342 if {[catch {
3343 # get the last line from .git/MERGE_HEAD
3347 } err]} {
3349 return
3350 }
3352 # need to do the blame from the index
3353 if {[catch {
3355 } err]} {
3357 return
3358 }
3359 }
3360 } else {
3362 }
3364 }
3365 set blameargs {}
3368 }
3371 lappend blameargs --contents -
3372 } else {
3374 }
3376 if {[catch {
3378 } err]} {
3380 return
3381 }
3387 }
3389 proc stopblaming {} {
3390 global blameinst
3392 if {[info exists blameinst]} {
3394 unset blameinst
3395 }
3396 }
3398 proc read_line_source {fd inst} {
3399 global blamestuff curview commfd blameinst nullid nullid2
3403 }
3405 return 1
3406 }
3408 unset blameinst
3412 return 0
3413 }
3415 set fname {}
3421 # look for "filename" line
3425 break
3426 }
3427 }
3428 }
3430 # all looks good, select it
3432 # blame uses all-zeroes to mean not committed,
3433 # which would mean a change in the index
3435 }
3438 } else {
3439 error_popup [mc "That line comes from commit %s, \
3441 }
3442 } else {
3443 puts "oops couldn't parse git blame output"
3444 }
3445 return 0
3446 }
3449 proc delete_at_eof {f dir} {
3454 }
3456 return 0
3457 }
3458 return 1
3459 }
3461 # Functions for adding and removing shell-type quoting
3463 proc shellquote {str} {
3466 }
3469 }
3472 }
3474 }
3476 proc shellarglist {l} {
3477 set str {}
3480 append str " "
3481 }
3483 }
3485 }
3487 proc shelldequote {str} {
3488 set ret {}
3489 set used -1
3490 while {1} {
3491 incr used
3495 break
3496 }
3502 }
3504 incr used
3508 error "unmatched single-quote"
3509 }
3512 continue
3513 }
3516 error "trailing backslash"
3517 }
3519 continue
3520 }
3521 # here ch == "\""
3522 while {1} {
3524 error "unmatched double-quote"
3525 }
3531 }
3533 incr used
3535 incr used
3536 }
3537 }
3539 }
3541 proc shellsplit {str} {
3542 set l {}
3543 while {1} {
3551 }
3553 }
3555 # Code to implement multiple views
3557 proc newview {ishighlight} {
3558 global nextviewnum newviewname newishighlight
3559 global revtreeargs viewargscmd newviewopts curview
3562 set top .gitkview
3565 return
3566 }
3572 }
3574 set known_view_options {
3575 {perm b . {} {mc "Remember this view"}}
3576 {args t50= + {} {mc "Commits to include (arguments to git log):"}}
3577 {all b * "--all" {mc "Use all refs"}}
3578 {dorder b . {"--date-order" "-d"} {mc "Strictly sort by date"}}
3579 {lright b . "--left-right" {mc "Mark branch sides"}}
3580 {since t15 + {"--since=*" "--after=*"} {mc "Since date:"}}
3581 {until t15 . {"--until=*" "--before=*"} {mc "Until date:"}}
3582 {limit t10 + "--max-count=*" {mc "Max count:"}}
3583 {skip t10 . "--skip=*" {mc "Skip:"}}
3584 {first b . "--first-parent" {mc "Limit to first parent"}}
3585 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3586 }
3588 proc encode_view_opts {n} {
3589 global known_view_options newviewopts
3591 set rargs [list]
3602 }
3603 } else {
3608 }
3609 }
3610 }
3612 }
3614 proc decode_view_opts {n view_args} {
3615 global known_view_options newviewopts
3619 set val 0
3620 } else {
3621 set val {}
3622 }
3624 }
3625 set oargs [list]
3628 && ![info exists found(limit)]} {
3630 set found(limit) 1
3631 continue
3632 }
3633 catch { unset val }
3642 } else {
3643 set val 1
3644 }
3647 break
3648 }
3649 if {[info exists val]} break
3650 }
3651 if {[info exists val]} continue
3653 }
3655 }
3657 proc edit_or_newview {} {
3658 global curview
3661 editview
3662 } else {
3663 newview 0
3664 }
3665 }
3667 proc editview {} {
3668 global curview
3669 global viewname viewperm newviewname newviewopts
3670 global viewargs viewargscmd
3675 return
3676 }
3682 }
3684 proc vieweditor {top n title} {
3685 global newviewname newviewopts viewfiles bgcolor
3686 global known_view_options
3692 # View name
3700 # View options
3702 set cexpand 0
3703 set cnt 0
3709 set lxpad 0
3713 incr cnt
3717 } else {
3718 set lxpad 5
3719 }
3737 }
3738 }
3740 # Path list
3742 -text [mc "Enter files and directories to include, one per line:"]
3749 }
3752 }
3767 }
3769 proc doviewmenu {m first cmd op argv} {
3774 break
3775 }
3776 }
3777 }
3779 proc allviewmenus {n op args} {
3780 # global viewhlmenu
3784 }
3786 proc newviewok {top n {apply 0}} {
3787 global nextviewnum newviewperm newviewname newishighlight
3788 global viewname viewfiles viewperm selectedview curview
3789 global viewargs viewargscmd newviewopts viewhlmenu
3791 if {[catch {
3793 } err]} {
3795 return
3796 }
3797 set files {}
3802 }
3803 }
3805 # creating a new view
3806 incr nextviewnum
3815 } else {
3817 }
3818 } else {
3819 # editing an existing view
3827 }
3834 run reloadcommits
3835 }
3836 }
3837 }
3840 }
3842 proc delview {} {
3843 global curview viewperm hlview selectedhlview
3847 set selectedhlview [mc "None"]
3848 unset hlview
3849 }
3852 showview 0
3853 }
3855 proc addviewmenu {n} {
3856 global viewname viewhlmenu
3862 }
3864 proc showview {n} {
3865 global curview cached_commitrow ordertok
3866 global displayorder parentlist rowidlist rowisopt rowfinal
3867 global colormap rowtextx nextcolor canvxmax
3868 global numcommits viewcomplete
3869 global selectedline currentid canv canvy0
3870 global treediffs
3871 global pending_select mainheadid
3872 global commitidx
3873 global selectedview
3874 global hlview selectedhlview commitinterest
3877 set selid {}
3888 }
3889 } elseif {[info exists pending_select]} {
3891 unset pending_select
3892 }
3893 unselectline
3894 normalline
3895 catch {unset treediffs}
3896 clear_display
3898 unset hlview
3899 set selectedhlview [mc "None"]
3900 }
3901 catch {unset commitinterest}
3902 catch {unset cached_commitrow}
3903 catch {unset ordertok}
3910 run refill_reflist
3913 return
3914 }
3916 set displayorder {}
3917 set parentlist {}
3918 set rowidlist {}
3919 set rowisopt {}
3920 set rowfinal {}
3923 catch {unset colormap}
3924 catch {unset rowtextx}
3925 set nextcolor 0
3928 set row 0
3929 setcanvscroll
3930 set yf 0
3931 set row {}
3934 # try to get the selected row in the same position on the screen
3938 set ytop 0
3939 }
3941 }
3943 drawvisible
3948 } else {
3949 reset_pending_select {}
3953 } else {
3954 set row [first_real_row]
3957 }
3958 }
3959 }
3962 show_status [mc "Reading commits..."]
3963 }
3965 show_status [mc "No commits selected"]
3966 }
3967 }
3969 # Stuff relating to the highlighting facility
3971 proc ishighlighted {id} {
3972 global vhighlights fhighlights nhighlights rhighlights
3976 }
3979 }
3982 }
3985 }
3986 return 0
3987 }
3989 proc bolden {row font} {
3990 global canv linehtag selectedline boldrows
3997 -outline {{}} -tags secsel \
4000 }
4001 }
4003 proc bolden_name {row font} {
4004 global canv2 linentag selectedline boldnamerows
4011 -outline {{}} -tags secsel \
4014 }
4015 }
4017 proc unbolden {} {
4018 global boldrows
4020 set stillbold {}
4024 } else {
4026 }
4027 }
4029 }
4031 proc addvhighlight {n} {
4032 global hlview viewcomplete curview vhl_done commitidx
4034 if {[info exists hlview]} {
4035 delvhighlight
4036 }
4040 }
4043 drawvisible
4044 }
4045 }
4047 proc delvhighlight {} {
4048 global hlview vhighlights
4050 if {![info exists hlview]} return
4051 unset hlview
4052 catch {unset vhighlights}
4053 unbolden
4054 }
4056 proc vhighlightmore {} {
4057 global hlview vhl_done commitidx vhighlights curview
4060 set vr [visiblerows]
4070 }
4072 }
4073 }
4074 }
4076 return 0
4077 }
4079 proc askvhighlight {row id} {
4080 global hlview vhighlights iddrawn
4085 }
4087 } else {
4089 }
4090 }
4092 proc hfiles_change {} {
4093 global highlight_files filehighlight fhighlights fh_serial
4094 global highlight_paths gdttype
4096 if {[info exists filehighlight]} {
4097 # delete previous highlights
4099 unset filehighlight
4100 catch {unset fhighlights}
4101 unbolden
4102 unhighlight_filelist
4103 }
4104 set highlight_paths {}
4106 incr fh_serial
4109 }
4110 }
4112 proc gdttype_change {name ix op} {
4113 global gdttype highlight_files findstring findpattern
4115 stopfinding
4119 set highlight_files {}
4120 hfiles_change
4121 }
4122 findcom_change
4123 } else {
4125 set findpattern {}
4126 findcom_change
4127 }
4129 hfiles_change
4130 }
4131 drawvisible
4132 }
4133 # enable/disable findtype/findloc menus too
4134 }
4136 proc find_change {name ix op} {
4137 global gdttype findstring highlight_files
4139 stopfinding
4141 findcom_change
4142 } else {
4145 hfiles_change
4146 }
4147 }
4148 drawvisible
4149 }
4151 proc findcom_change args {
4152 global nhighlights boldnamerows
4153 global findpattern findtype findstring gdttype
4155 stopfinding
4156 # delete previous highlights, if any
4159 }
4160 set boldnamerows {}
4161 catch {unset nhighlights}
4162 unbolden
4163 unmarkmatches
4165 set findpattern {}
4168 } else {
4169 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4172 }
4173 }
4175 proc makepatterns {l} {
4176 set ret {}
4181 } else {
4184 }
4185 }
4187 }
4189 proc do_file_hl {serial} {
4190 global highlight_files filehighlight highlight_paths gdttype fhl_list
4195 highlight_filelist
4199 } else {
4200 # must be "containing:", i.e. we're searching commit info
4201 return
4202 }
4207 set fhl_list {}
4208 drawvisible
4209 flushhighlights
4210 }
4212 proc flushhighlights {} {
4213 global filehighlight fhl_list
4215 if {[info exists filehighlight]} {
4216 lappend fhl_list {}
4219 }
4220 }
4222 proc askfilehighlight {row id} {
4223 global filehighlight fhighlights fhl_list
4228 }
4230 proc readfhighlight {} {
4231 global filehighlight fhighlights curview iddrawn
4232 global fhl_list find_dirn
4234 if {![info exists filehighlight]} {
4235 return 0
4236 }
4237 set nr 0
4245 }
4252 }
4254 }
4256 # strange...
4257 puts "oops, git diff-tree died"
4259 unset filehighlight
4260 return 0
4261 }
4262 if {[info exists find_dirn]} {
4263 run findmore
4264 }
4265 return 1
4266 }
4268 proc doesmatch {f} {
4269 global findtype findpattern
4275 } else {
4277 }
4278 }
4280 proc askfindhighlight {row id} {
4281 global nhighlights commitinfo iddrawn
4282 global findloc
4283 global markingmatches
4287 }
4289 set isbold 0
4290 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4295 set isbold 2
4296 break
4297 }
4298 set isbold 1
4299 }
4300 }
4306 }
4307 }
4310 }
4311 }
4313 }
4315 proc markrowmatches {row id} {
4316 global canv canv2 linehtag linentag commitinfo findloc
4327 }
4328 }
4334 }
4335 }
4336 }
4338 proc vrel_change {name ix op} {
4339 global highlight_related
4341 rhighlight_none
4343 run drawvisible
4344 }
4345 }
4347 # prepare for testing whether commits are descendents or ancestors of a
4348 proc rhighlight_sel {a} {
4349 global descendent desc_todo ancestor anc_todo
4350 global highlight_related
4352 catch {unset descendent}
4354 catch {unset ancestor}
4357 rhighlight_none
4358 run drawvisible
4359 }
4360 }
4362 proc rhighlight_none {} {
4363 global rhighlights
4365 catch {unset rhighlights}
4366 unbolden
4367 }
4369 proc is_descendent {a} {
4370 global curview children descendent desc_todo
4375 set leftover {}
4376 set done 0
4381 continue
4382 }
4388 set done 1
4389 }
4390 }
4391 }
4394 return
4395 }
4396 }
4399 }
4401 proc is_ancestor {a} {
4402 global curview parents ancestor anc_todo
4407 set leftover {}
4408 set done 0
4413 continue
4414 }
4420 set done 1
4421 }
4422 }
4423 }
4426 return
4427 }
4428 }
4431 }
4433 proc askrelhighlight {row id} {
4434 global descendent highlight_related iddrawn rhighlights
4435 global selectedline ancestor
4438 set isbold 0
4443 }
4445 set isbold 1
4446 }
4451 }
4453 set isbold 1
4454 }
4455 }
4459 }
4460 }
4462 }
4464 # Graph layout functions
4466 proc shortids {ids} {
4467 set res {}
4473 } else {
4475 }
4476 }
4478 }
4480 proc ntimes {n o} {
4481 set ret {}
4486 }
4488 }
4490 }
4492 proc ordertoken {id} {
4493 global ordertok curview varcid varcstart varctok curview parents children
4494 global nullid nullid2
4498 }
4500 set todo {}
4501 while {1} {
4505 } else {
4507 }
4510 break
4511 }
4514 # it's a root
4516 break
4517 }
4520 } else {
4524 }
4526 }
4527 }
4532 }
4535 }
4537 # Work out where id should go in idlist so that order-token
4538 # values increase from left to right
4539 proc idcol {idlist id {i 0}} {
4542 set i 0
4543 }
4547 }
4549 incr i
4550 } else {
4554 }
4555 }
4557 }
4559 proc initlayout {} {
4560 global rowidlist rowisopt rowfinal displayorder parentlist
4561 global numcommits canvxmax canv
4562 global nextcolor
4563 global colormap rowtextx
4565 set numcommits 0
4566 set displayorder {}
4567 set parentlist {}
4568 set nextcolor 0
4569 set rowidlist {}
4570 set rowisopt {}
4571 set rowfinal {}
4573 catch {unset colormap}
4574 catch {unset rowtextx}
4575 setcanvscroll
4576 }
4578 proc setcanvscroll {} {
4579 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4580 global lastscrollset lastscrollrows
4586 set lastscrollset [clock clicks -milliseconds]
4588 }
4590 proc visiblerows {} {
4591 global canv numcommits linespc
4599 set r0 0
4600 }
4605 }
4607 }
4609 proc layoutmore {} {
4610 global commitidx viewcomplete curview
4611 global numcommits pending_select curview
4612 global lastscrollset lastscrollrows
4616 setcanvscroll
4617 }
4618 if {[info exists pending_select] &&
4620 update
4622 }
4623 drawvisible
4624 }
4626 proc doshowlocalchanges {} {
4627 global curview mainheadid
4631 dodiffindex
4632 } else {
4634 }
4635 }
4637 proc dohidelocalchanges {} {
4638 global nullid nullid2 lserial curview
4642 }
4645 }
4646 incr lserial
4647 }
4649 # spawn off a process to do git diff-index --cached HEAD
4650 proc dodiffindex {} {
4651 global lserial showlocalchanges
4652 global isworktree
4655 incr lserial
4656 set fd [open "|git diff-index --cached HEAD" r]
4660 }
4662 proc readdiffindex {fd serial inst} {
4663 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4665 set isdiff 1
4668 return 1
4669 }
4670 set isdiff 0
4671 }
4672 # we only need to see one line and we don't really care what it says...
4676 return 0
4677 }
4679 # now see if there are any local changes not checked in to the index
4680 set fd [open "|git diff-files" r]
4686 # add the line for the changes in the index to the graph
4687 set hl [mc "Local changes checked in to index but not committed"]
4692 }
4696 }
4697 return 0
4698 }
4700 proc readdifffiles {fd serial inst} {
4701 global mainheadid nullid nullid2 curview
4702 global commitinfo commitdata lserial
4704 set isdiff 1
4707 return 1
4708 }
4709 set isdiff 0
4710 }
4711 # we only need to see one line and we don't really care what it says...
4715 return 0
4716 }
4719 # add the line for the local diff to the graph
4720 set hl [mc "Local uncommitted changes, not checked in to index"]
4725 } else {
4727 }
4731 }
4732 return 0
4733 }
4735 proc nextuse {id row} {
4736 global curview children
4741 return -1
4742 }
4745 }
4746 }
4747 }
4750 }
4751 return -1
4752 }
4754 proc prevuse {id row} {
4755 global curview children
4757 set ret -1
4763 }
4764 }
4765 }
4767 }
4769 proc make_idlist {row} {
4770 global displayorder parentlist uparrowlen downarrowlen mingaplen
4771 global commitidx curview children
4775 set r 0
4776 }
4779 set ra 0
4780 }
4784 }
4786 set ids {}
4795 }
4796 }
4797 }
4805 }
4806 }
4807 }
4815 }
4816 }
4817 incr r
4823 }
4824 }
4825 }
4826 set idlist {}
4829 }
4831 }
4833 proc rowsequal {a b} {
4836 }
4839 }
4841 }
4843 proc makeupline {id row rend col} {
4844 global rowidlist uparrowlen downarrowlen mingaplen
4850 }
4853 }
4860 }
4861 }
4862 }
4864 proc layoutrows {row endrow} {
4865 global rowidlist rowisopt rowfinal displayorder
4866 global uparrowlen downarrowlen maxwidth mingaplen
4867 global children parentlist
4868 global commitidx viewcomplete curview
4871 set idlist {}
4877 }
4878 }
4880 }
4885 set final 1
4886 } else {
4894 # if not the first child, we have to insert a line going up
4897 }
4898 }
4899 }
4909 }
4910 }
4911 }
4918 }
4919 }
4929 }
4930 }
4938 }
4939 }
4940 }
4941 }
4942 }
4946 set final 0
4947 }
4951 lappend rowisopt 0
4957 }
4959 } else {
4966 }
4967 }
4969 }
4971 proc changedrow {row} {
4972 global displayorder iddrawn rowisopt need_redisplay
4981 }
4982 }
4983 }
4986 set need_redisplay 1
4987 }
4988 }
4990 proc insert_pad {row col npad} {
4991 global rowidlist
5000 }
5003 }
5005 proc optimize_rows {row col endrow} {
5006 global rowidlist rowisopt displayorder curview children
5009 set row 1
5010 }
5013 set haspad 0
5022 } else {
5023 set pprevidlist {}
5024 }
5025 set x0 -1
5026 set xm -1
5031 set haspad 1
5032 continue
5033 }
5037 set isarrow 0
5038 set z0 {}
5043 }
5044 }
5049 set isarrow 1
5050 }
5051 }
5054 set isarrow 1
5055 }
5056 # Looking at lines from this row to the previous row,
5057 # make them go straight up if they end in an arrow on
5058 # the previous row; otherwise make them go straight up
5059 # or at 45 degrees.
5061 # Line currently goes left too much;
5062 # insert pads in the previous row, then optimize it
5067 }
5075 }
5077 # Line currently goes right too much;
5078 # insert pads in this line
5084 set haspad 1
5085 }
5092 }
5093 }
5094 # avoid lines jigging left then immediately right
5097 incr x0
5100 }
5101 }
5103 # Find the first column that doesn't have a line going right
5109 # check if this is the link to the first child
5112 # it is, work out offset to child
5114 }
5115 }
5117 }
5118 # Insert a pad at that column as long as it has a line and
5119 # isn't the last column
5124 }
5125 }
5126 }
5127 }
5129 proc xc {row col} {
5130 global canvx0 linespc
5132 }
5134 proc yc {row} {
5135 global canvy0 linespc
5137 }
5139 proc linewidth {id} {
5140 global thickerline lthickness
5145 }
5147 }
5149 proc rowranges {id} {
5150 global curview children uparrowlen downarrowlen
5151 global rowidlist
5155 return {}
5156 }
5157 set ret {}
5162 if {![info exists prev]} {
5164 } else {
5166 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5167 }
5168 # see if the line extends the whole way from prevrow to row
5172 # it doesn't, see where it ends
5177 } else {
5180 incr r -1
5181 }
5183 # see where it starts up again
5188 } else {
5191 incr r
5192 }
5194 }
5195 }
5198 }
5201 }
5203 }
5205 proc drawlineseg {id row endrow arrowlow} {
5206 global rowidlist displayorder iddrawn linesegs
5207 global canv colormap linespc curview maxlinelen parentlist
5211 set arrowhigh 1
5212 while {1} {
5215 incr le -1
5216 break
5217 }
5221 set arrowhigh 0
5222 break
5223 }
5228 set arrowhigh 0
5229 }
5230 break
5231 }
5232 incr le
5233 }
5236 }
5238 set lines {}
5239 set i 0
5240 set joinhigh 0
5247 set joinhigh 1
5248 }
5249 break
5250 }
5251 incr i
5252 }
5253 }
5254 set joinlow 0
5259 set joinlow 1
5260 }
5261 }
5274 }
5275 } else {
5277 }
5285 set arrowlow 0
5286 }
5287 }
5295 }
5297 }
5300 # join parent line to first child
5311 } else {
5313 }
5321 }
5323 }
5325 } else {
5329 }
5337 } else {
5341 }
5343 }
5344 } else {
5350 }
5354 } else {
5355 # coalesce two pieces
5360 }
5364 }
5365 }
5369 }
5371 proc drawparentlinks {id row} {
5372 global rowidlist canv colormap curview parentlist
5373 global idpos linespc
5386 # rmx = right-most X coord used
5387 set rmx 0
5392 continue
5393 }
5397 }
5400 # drawlineseg will do this one for us
5401 continue
5402 }
5404 # should handle duplicated parents here...
5407 # if attaching to a vertical segment, draw a smaller
5408 # slant for visual distinctness
5412 } else {
5414 }
5416 # segment slants towards us already
5418 } else {
5423 }
5425 }
5426 } else {
5428 }
5433 }
5437 }
5438 }
5440 proc drawlines {id} {
5441 global canv
5444 }
5446 proc drawcmittext {id row col} {
5447 global linespc canv canv2 canv3 fgcolor curview
5448 global cmitlisted commitinfo rowidlist parentlist
5449 global rowtextx idpos idtags idheads idotherrefs
5450 global linehtag linentag linedtag selectedline
5451 global canvxmax boldrows boldnamerows fgcolor
5452 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5454 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5457 set ofill red
5459 set ofill green
5461 set ofill yellow
5462 } else {
5464 }
5473 # triangle pointing left for left-side commits
5479 } else {
5480 # triangle pointing right for right-side commits
5486 }
5498 }
5499 }
5500 }
5507 }
5512 set font mainfont
5513 set nfont mainfont
5517 set font mainfontbold
5520 set nfont mainfontbold
5521 }
5522 }
5532 }
5536 setcanvscroll
5537 }
5538 }
5540 proc drawcmitrow {row} {
5541 global displayorder rowidlist nrows_drawn
5542 global iddrawn markingmatches
5543 global commitinfo numcommits
5544 global filehighlight fhighlights findpattern nhighlights
5545 global hlview vhighlights
5546 global highlight_related rhighlights
5553 }
5556 }
5559 }
5562 }
5567 return
5568 }
5571 }
5575 incr nrows_drawn
5576 }
5579 }
5580 }
5582 proc drawcommits {row {endrow {}}} {
5583 global numcommits iddrawn displayorder curview need_redisplay
5584 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5587 set row 0
5588 }
5591 }
5594 }
5598 set rl1 0
5599 }
5602 set ro1 0
5603 }
5607 }
5612 }
5614 }
5615 }
5618 }
5621 clear_display
5622 drawvisible
5623 }
5625 # make the lines join to already-drawn rows either side
5629 }
5634 }
5649 # see if this is the first child of any of its parents
5652 # make this line extend up to the child
5654 }
5655 }
5656 } else {
5658 }
5659 }
5660 }
5661 }
5663 proc undolayout {row} {
5664 global uparrowlen mingaplen downarrowlen
5665 global rowidlist rowisopt rowfinal need_redisplay
5669 set r 0
5670 }
5672 incr r -1
5676 set need_redisplay 1
5677 run drawvisible
5678 }
5679 }
5681 proc drawvisible {} {
5682 global canv linespc curview vrowmod selectedline targetrow targetid
5683 global need_redisplay cscroll numcommits
5693 if {[info exists targetid]} {
5697 # Fix up the scrollregion and change the scrolling position
5698 # now that our target row has moved.
5701 setcanvscroll
5709 set need_redisplay 1
5710 }
5711 } else {
5712 unset targetid
5713 }
5714 }
5720 }
5724 } elseif {[info exists targetid]} {
5726 }
5727 if {[info exists targetrow]} {
5730 }
5732 }
5734 }
5736 proc clear_display {} {
5737 global iddrawn linesegs need_redisplay nrows_drawn
5738 global vhighlights fhighlights nhighlights rhighlights
5739 global linehtag linentag linedtag boldrows boldnamerows
5741 allcanvs delete all
5742 catch {unset iddrawn}
5743 catch {unset linesegs}
5744 catch {unset linehtag}
5745 catch {unset linentag}
5746 catch {unset linedtag}
5747 set boldrows {}
5748 set boldnamerows {}
5749 catch {unset vhighlights}
5750 catch {unset fhighlights}
5751 catch {unset nhighlights}
5752 catch {unset rhighlights}
5753 set need_redisplay 0
5754 set nrows_drawn 0
5755 }
5757 proc findcrossings {id} {
5758 global rowidlist parentlist numcommits displayorder
5760 set cross {}
5761 set ccross {}
5765 }
5784 }
5785 }
5786 }
5787 }
5788 }
5790 }
5792 proc assigncolor {id} {
5793 global colormap colors nextcolor
5794 global parents children children curview
5800 } else {
5801 set kids {}
5802 }
5808 return
5809 }
5810 }
5811 set badcolors {}
5812 set origbad {}
5815 # delimiter between corner crossings and other crossings
5818 }
5822 }
5823 }
5826 }
5833 }
5838 }
5839 }
5840 }
5843 }
5844 }
5848 set nextcolor 0
5849 }
5851 }
5853 }
5855 proc bindline {t id} {
5856 global canv
5862 }
5864 proc drawtags {id x xt y1} {
5865 global idtags idheads idotherrefs mainhead
5866 global linespc lthickness
5867 global canv rowtextx curview fgcolor bgcolor ctxbut
5869 set marks {}
5870 set ntags 0
5871 set nheads 0
5875 }
5879 }
5882 }
5885 }
5890 set xvals {}
5891 set wvals {}
5892 set i -1
5894 incr i
5897 } else {
5899 }
5903 }
5910 set font mainfont
5911 if {[incr ntags -1] >= 0} {
5912 # draw a tag
5918 } else {
5919 # draw a head or other ref
5920 if {[incr nheads -1] >= 0} {
5921 set col green
5923 set font mainfontbold
5924 }
5925 } else {
5926 set col "#ddddff"
5927 }
5938 }
5939 }
5946 }
5947 }
5949 }
5951 proc xcoord {i level ln} {
5952 global canvx0 xspc1 xspc2
5959 }
5961 }
5963 proc show_status {msg} {
5964 global canv fgcolor
5966 clear_display
5969 }
5971 # Don't change the text pane cursor if it is currently the hand cursor,
5972 # showing that we are over a sha1 ID link.
5973 proc settextcursor {c} {
5974 global ctext curtextcursor
5978 }
5980 }
5982 proc nowbusy {what {name {}}} {
5983 global isbusy busyname statusw
5985 if {[array names isbusy] eq {}} {
5986 . config -cursor watch
5987 settextcursor watch
5988 }
5993 }
5994 }
5996 proc notbusy {what} {
5997 global isbusy maincursor textcursor busyname statusw
5999 catch {
6004 }
6005 }
6006 if {[array names isbusy] eq {}} {
6009 }
6010 }
6012 proc findmatches {f} {
6013 global findtype findstring
6016 } else {
6021 }
6022 set matches {}
6023 set i 0
6028 }
6029 }
6031 }
6033 proc dofind {{dirn 1} {wrap 1}} {
6034 global findstring findstartline findcurline selectedline numcommits
6035 global gdttype filehighlight fh_serial find_dirn findallowwrap
6037 if {[info exists find_dirn]} {
6039 stopfinding
6040 }
6041 focus .
6045 } else {
6047 }
6049 nowbusy finding [mc "Searching"]
6053 }
6056 run findmore
6057 }
6059 proc stopfinding {} {
6060 global find_dirn findcurline fprogcoord
6062 if {[info exists find_dirn]} {
6063 unset find_dirn
6064 unset findcurline
6065 notbusy finding
6066 set fprogcoord 0
6067 adjustprogress
6068 }
6069 stopblaming
6070 }
6072 proc findmore {} {
6073 global commitdata commitinfo numcommits findpattern findloc
6074 global findstartline findcurline findallowwrap
6075 global find_dirn gdttype fhighlights fprogcoord
6076 global curview varcorder vrownum varccommits vrowmod
6078 if {![info exists find_dirn]} {
6079 return 0
6080 }
6081 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6083 set moretodo 0
6085 incr l
6087 set l 0
6088 }
6091 } else {
6094 }
6095 } else {
6098 }
6099 incr l -1
6102 } else {
6103 set lim -1
6105 }
6106 }
6109 set n 500
6110 set moretodo 1
6111 }
6114 }
6115 set found 0
6116 set domore 1
6130 }
6132 # shouldn't happen unless git log doesn't give all the commits...
6135 continue
6136 }
6139 }
6144 set found 1
6145 break
6146 }
6147 }
6149 }
6150 } else {
6158 }
6163 }
6166 break
6167 }
6170 set domore 0
6172 }
6173 }
6174 }
6175 }
6177 unset findcurline
6178 unset find_dirn
6179 notbusy finding
6180 set fprogcoord 0
6181 adjustprogress
6184 } else {
6185 bell
6186 }
6187 return 0
6188 }
6190 flushhighlights
6191 } else {
6193 }
6197 }
6199 adjustprogress
6201 }
6203 proc findselectline {l} {
6204 global findloc commentend ctext findcurline markingmatches gdttype
6206 set markingmatches 1
6210 # highlight the matches in the comments
6217 }
6218 }
6219 drawvisible
6220 }
6222 # mark the bits of a headline or author that match a find string
6223 proc markmatches {canv l str tag matches font row} {
6224 global selectedline
6242 }
6243 }
6244 }
6246 proc unmarkmatches {} {
6247 global markingmatches
6249 allcanvs delete matches
6250 set markingmatches 0
6251 stopfinding
6252 }
6254 proc selcanvline {w x y} {
6255 global canv canvy0 ctext linespc
6256 global rowtextx
6263 set l 0
6264 }
6269 }
6270 unmarkmatches
6272 }
6274 proc commit_descriptor {p} {
6275 global commitinfo
6278 }
6279 set l "..."
6282 }
6284 }
6286 # append some text to the ctext widget, and make any SHA1 ID
6287 # that we know about be a clickable link.
6288 proc appendwithlinks {text tags} {
6289 global ctext linknum curview
6298 incr e
6302 incr linknum
6303 }
6304 }
6306 proc setlink {id lk} {
6307 global curview ctext pendinglinks
6309 set known 0
6314 set known 1
6316 }
6317 } else {
6319 }
6325 } else {
6328 }
6329 }
6331 proc makelink {id} {
6332 global pendinglinks
6337 }
6339 }
6341 proc linkcursor {w inc} {
6342 global linkentercount curtextcursor
6346 } else {
6349 set linkentercount 0
6350 }
6351 }
6352 }
6354 proc viewnextline {dir} {
6355 global canv linespc
6363 set newtop 0
6366 }
6368 }
6370 # add a list of tag or branch names at position pos
6371 # returns the number of names inserted
6372 proc appendrefs {pos ids var} {
6376 return 0
6377 }
6380 set tags {}
6384 }
6385 }
6388 } else {
6390 set sep {}
6394 incr linknum
6399 set sep ", "
6400 }
6401 }
6404 }
6406 # called when we have finished computing the nearby tags
6407 proc dispneartags {delay} {
6408 global selectedline currentid showneartags tagphase
6411 after cancel dispnexttag
6413 after 200 dispnexttag
6414 set tagphase -1
6415 } else {
6416 after idle dispnexttag
6417 set tagphase 0
6418 }
6419 }
6421 proc dispnexttag {} {
6422 global selectedline currentid showneartags tagphase ctext
6426 0 {
6430 }
6431 }
6432 1 {
6436 }
6437 }
6438 2 {
6443 # turn "Branch" into "Branches"
6447 }
6448 }
6449 }
6450 }
6451 if {[incr tagphase] <= 2} {
6452 after idle dispnexttag
6453 }
6454 }
6456 proc make_secsel {l} {
6457 global linehtag linentag linedtag canv canv2 canv3
6472 }
6474 proc selectline {l isnew {desired_loc {}}} {
6475 global canv ctext commitinfo selectedline
6476 global canvy0 linespc parents children curview
6477 global currentid sha1entry
6478 global commentend idtags linknum
6479 global mergemax numcommits pending_select
6480 global cmitmode showneartags allcommits
6481 global targetrow targetid lastscrollrows
6482 global autoselect jump_to_here
6484 catch {unset pending_select}
6486 normalline
6487 unsel_reflist
6488 stopfinding
6496 setcanvscroll
6497 }
6511 } else {
6515 }
6516 }
6520 } else {
6524 }
6525 }
6526 }
6529 set newtop 0
6530 }
6532 drawvisible
6533 }
6539 }
6546 }
6550 clear_ctext
6551 set linknum 0
6554 }
6564 }
6566 }
6568 set headers {}
6571 set np 0
6574 set tag mmax
6575 } else {
6577 }
6580 incr np
6581 }
6582 } else {
6585 }
6586 }
6590 }
6592 # make anything that looks like a SHA1 ID be a clickable link
6595 if {![info exists allcommits]} {
6596 getallcommits
6597 }
6608 dispneartags 1
6609 }
6614 }
6622 init_flist [mc "Comments"]
6627 } else {
6629 }
6630 }
6632 proc selfirstline {} {
6633 unmarkmatches
6634 selectline 0 1
6635 }
6637 proc sellastline {} {
6638 global numcommits
6639 unmarkmatches
6642 }
6644 proc selnextline {dir} {
6645 global selectedline
6646 focus .
6649 unmarkmatches
6651 }
6653 proc selnextpage {dir} {
6654 global canv linespc selectedline numcommits
6658 set lpp 1
6659 }
6661 drawvisible
6665 set l 0
6668 }
6669 unmarkmatches
6671 }
6673 proc unselectline {} {
6674 global selectedline currentid
6676 set selectedline {}
6677 catch {unset currentid}
6678 allcanvs delete secsel
6679 rhighlight_none
6680 }
6682 proc reselectline {} {
6683 global selectedline
6687 }
6688 }
6690 proc addtohistory {cmd} {
6691 global history historyindex curview
6696 return
6697 }
6701 } else {
6703 }
6704 incr historyindex
6706 .tf.bar.leftbut conf -state normal
6707 } else {
6708 .tf.bar.leftbut conf -state disabled
6709 }
6710 .tf.bar.rightbut conf -state disabled
6711 }
6713 proc godo {elt} {
6714 global curview
6720 }
6722 }
6724 proc goback {} {
6725 global history historyindex
6726 focus .
6729 incr historyindex -1
6731 .tf.bar.rightbut conf -state normal
6732 }
6734 .tf.bar.leftbut conf -state disabled
6735 }
6736 }
6738 proc goforw {} {
6739 global history historyindex
6740 focus .
6744 incr historyindex
6746 .tf.bar.leftbut conf -state normal
6747 }
6749 .tf.bar.rightbut conf -state disabled
6750 }
6751 }
6753 proc gettree {id} {
6754 global treefilelist treeidlist diffids diffmergeid treepending
6755 global nullid nullid2
6758 catch {unset diffmergeid}
6760 if {![info exists treepending]} {
6762 set cmd [list | git ls-files]
6764 set cmd [list | git ls-files --stage -t]
6765 } else {
6767 }
6769 return
6770 }
6776 }
6777 } else {
6779 }
6780 }
6782 proc gettreeline {gtf id} {
6783 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6785 set nl 0
6789 } else {
6797 }
6800 }
6803 }
6806 }
6808 unset treepending
6810 if {![info exists diffmergeid]} {
6812 }
6815 } else {
6817 }
6818 return 0
6819 }
6821 proc showfile {f} {
6822 global treefilelist treeidlist diffids nullid nullid2
6823 global ctext_file_names ctext_file_lines
6824 global ctext commentend
6829 return
6830 }
6834 return
6835 }
6836 } else {
6840 return
6841 }
6842 }
6853 settabs 0
6854 }
6856 proc getblobline {bf id} {
6857 global diffids cmitmode ctext
6861 return 0
6862 }
6864 set nl 0
6867 }
6869 global jump_to_here ctext_file_names commentend
6871 # delete last newline
6879 }
6880 return 0
6881 }
6884 }
6886 proc mark_ctext_line {lnum} {
6887 global ctext markbgcolor
6893 }
6895 proc mergediff {id} {
6896 global diffmergeid
6897 global diffids treediffs
6898 global parents curview
6906 }
6908 proc startdiff {ids} {
6909 global treediffs diffids treepending diffmergeid nullid nullid2
6911 settabs 1
6913 catch {unset diffmergeid}
6917 if {![info exists treepending]} {
6919 }
6920 } else {
6922 }
6923 }
6925 proc path_filter {filter name} {
6930 return 1
6931 }
6932 } else {
6936 return 1
6937 }
6938 }
6939 }
6940 return 0
6941 }
6943 proc addtocflist {ids} {
6944 global treediffs
6948 }
6950 proc diffcmd {ids flags} {
6951 global nullid nullid2
6957 # comparing working directory with some specific revision
6961 } else {
6963 }
6964 } else {
6965 # comparing working directory with index
6968 lappend cmd -R
6969 }
6970 }
6974 # comparing index with specific revision
6977 } else {
6979 }
6980 } else {
6981 # comparing index with HEAD
6982 lappend cmd HEAD
6983 }
6984 } else {
6986 }
6988 }
6990 proc gettreediffs {ids} {
6991 global treediff treepending
6996 set treediff {}
6999 }
7001 proc gettreediffline {gdtf ids} {
7002 global treediff treediffs treepending diffids diffmergeid
7003 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7005 set nr 0
7006 set sublist {}
7007 set max 1000
7009 # cache_gitattr is slow, and even slower on win32 where we
7010 # have to invoke it for only about 30 paths at a time
7011 set max 500
7012 if {[tk windowingsystem] == "win32"} {
7013 set max 120
7014 }
7015 }
7022 }
7027 }
7028 }
7029 }
7032 }
7035 }
7038 set flist {}
7042 }
7043 }
7045 } else {
7047 }
7048 unset treepending
7052 if {![info exists diffmergeid]} {
7054 }
7055 } else {
7057 }
7058 return 0
7059 }
7061 # empty string or positive integer
7062 proc diffcontextvalidate {v} {
7064 }
7066 proc diffcontextchange {n1 n2 op} {
7067 global diffcontextstring diffcontext
7072 reselectline
7073 }
7074 }
7075 }
7077 proc changeignorespace {} {
7078 reselectline
7079 }
7081 proc getblobdiffs {ids} {
7082 global blobdifffd diffids env
7083 global diffinhdr treediffs
7084 global diffcontext
7085 global ignorespace
7086 global limitdiffs vfilelimit curview
7087 global diffencoding targetline diffnparents
7091 append cmd " -w"
7092 }
7095 }
7098 return
7099 }
7100 set targetline {}
7101 set diffnparents 0
7102 set diffinhdr 0
7103 set diffencoding [get_path_encoding {}]
7107 }
7109 proc setinlist {var i val} {
7114 }
7117 } else {
7119 }
7120 }
7122 proc makediffhdr {fname ids} {
7123 global ctext curdiffstart treediffs diffencoding
7124 global ctext_file_names jump_to_here targetline diffline
7131 }
7136 set targetline {}
7139 }
7140 set diffline 0
7141 }
7143 proc getblobdiffline {bdf ids} {
7144 global diffids blobdifffd ctext curdiffstart
7145 global diffnexthead diffnextnote difffilestart
7146 global ctext_file_names ctext_file_lines
7147 global diffinhdr treediffs mergemax diffnparents
7148 global diffencoding jump_to_here targetline diffline
7150 set nr 0
7155 return 0
7156 }
7161 continue
7162 }
7163 # start of a new file
7164 set diffinhdr 1
7167 lappend ctext_file_names ""
7172 # start of a new file in a merge diff
7177 }
7179 } else {
7181 # If the name hasn't changed the length will be odd,
7182 # the middle char will be a space, and the two bits either
7183 # side will be a/name and b/name, or "a/name" and "b/name".
7184 # If the name has changed we'll get "rename from" and
7185 # "rename to" or "copy from" and "copy to" lines following
7186 # this, and we'll use them to get the filenames.
7187 # This complexity is necessary because spaces in the
7188 # filename(s) don't get escaped.
7194 continue
7195 }
7196 # unescape if quoted and chop off the a/ from the front
7199 } else {
7201 }
7202 }
7215 }
7223 }
7225 set diffinhdr 0
7232 }
7237 }
7243 }
7246 # do nothing
7247 continue
7249 set diffinhdr 0
7250 continue
7251 }
7254 } else {
7256 # parse the prefix - one ' ', '-' or '+' for each parent
7260 # prefix only has " ", "-" and "+" in it: normal diff line
7265 set num "max"
7266 }
7268 } else {
7269 set tags {}
7271 # added line
7277 set num "max"
7278 }
7280 }
7281 }
7282 }
7286 set targetline {}
7287 } else {
7288 incr diffline
7289 }
7290 }
7292 }
7293 } else {
7294 # "\ No newline at end of file",
7295 # or something else we don't recognize
7297 }
7298 }
7299 }
7300 if {[info exists seehere]} {
7302 }
7306 return 0
7307 }
7309 }
7311 proc changediffdisp {} {
7312 global ctext diffelide
7316 }
7318 proc highlightfile {loc cline} {
7319 global ctext cflist cflist_top
7326 }
7328 proc prevfile {} {
7329 global difffilestart ctext cmitmode
7332 set prev 0.0
7333 set prevline 1
7338 return
7339 }
7341 incr prevline
7342 }
7344 }
7346 proc nextfile {} {
7347 global difffilestart ctext cmitmode
7351 set line 1
7353 incr line
7356 return
7357 }
7358 }
7359 }
7361 proc clear_ctext {{first 1.0}} {
7362 global ctext smarktop smarkbot
7363 global ctext_file_names ctext_file_lines
7364 global pendinglinks
7369 }
7372 }
7375 catch {unset pendinglinks}
7376 }
7377 set ctext_file_names {}
7378 set ctext_file_lines {}
7379 }
7381 proc settabs {{firstab {}}} {
7382 global firsttabstop tabstop ctext have_tk85
7386 }
7387 set w [font measure textfont "0"]
7393 } else {
7395 }
7396 }
7398 proc incrsearch {name ix op} {
7399 global ctext searchstring searchdirn
7403 # no anchor set, use start of selection, or of visible area
7409 } else {
7411 }
7412 }
7417 }
7418 searchmarkvisible 1
7419 }
7420 }
7422 proc dosearch {} {
7423 global sstring ctext searchstring searchdirn
7427 set searchdirn -forwards
7433 set start "@0,0"
7434 }
7438 bell
7439 return
7440 }
7445 }
7446 }
7448 proc dosearchback {} {
7449 global sstring ctext searchstring searchdirn
7453 set searchdirn -backwards
7460 }
7464 bell
7465 return
7466 }
7471 }
7472 }
7474 proc searchmark {first last} {
7475 global ctext searchstring
7478 while {1} {
7483 }
7484 }
7486 proc searchmarkvisible {doall} {
7487 global ctext smarktop smarkbot
7492 # no overlap with previous
7496 } else {
7500 }
7504 }
7505 }
7506 }
7508 proc scrolltext {f0 f1} {
7509 global searchstring
7513 searchmarkvisible 0
7514 }
7515 }
7517 proc setcoords {} {
7518 global linespc charspc canvx0 canvy0
7519 global xspc1 xspc2 lthickness
7521 set linespc [font metrics mainfont -linespace]
7522 set charspc [font measure mainfont "m"]
7528 }
7530 proc redisplay {} {
7531 global canv
7532 global selectedline
7537 clear_display
7538 setcanvscroll
7540 drawvisible
7544 }
7545 }
7547 proc parsefont {f n} {
7548 global fontattr
7553 set s 10
7556 }
7562 "normal" -
7564 "roman" -
7566 }
7567 }
7568 }
7570 proc fontflags {f {isbold 0}} {
7571 global fontattr
7576 }
7578 proc fontname {f} {
7579 global fontattr
7583 lappend n "bold"
7584 }
7586 lappend n "italic"
7587 }
7589 }
7591 proc incrfont {inc} {
7592 global mainfont textfont ctext canv cflist showrefstop
7593 global stopped entries fontattr
7595 unmarkmatches
7599 set s 1
7600 }
7604 set mainfont [fontname mainfont]
7608 set s 1
7609 }
7613 set textfont [fontname textfont]
7614 setcoords
7615 settabs
7616 redisplay
7617 }
7619 proc clearsha1 {} {
7620 global sha1entry sha1string
7623 }
7624 }
7626 proc sha1change {n1 n2 op} {
7627 global sha1string currentid sha1but
7630 set state disabled
7631 } else {
7632 set state normal
7633 }
7637 } else {
7639 }
7640 }
7642 proc gotocommit {} {
7643 global sha1string tagids headids curview varcid
7651 } else {
7658 return
7659 }
7661 }
7662 }
7663 }
7666 return
7667 }
7670 } else {
7672 }
7674 }
7676 proc lineenter {x y id} {
7677 global hoverx hovery hoverid hovertimer
7678 global commitinfo canv
7684 if {[info exists hovertimer]} {
7686 }
7687 set hovertimer [after 500 linehover]
7689 }
7691 proc linemotion {x y id} {
7692 global hoverx hovery hoverid hovertimer
7697 if {[info exists hovertimer]} {
7699 }
7700 set hovertimer [after 500 linehover]
7701 }
7702 }
7704 proc lineleave {id} {
7705 global hoverid hovertimer canv
7709 if {[info exists hovertimer]} {
7711 unset hovertimer
7712 }
7713 unset hoverid
7714 }
7715 }
7717 proc linehover {} {
7718 global hoverx hovery hoverid hovertimer
7719 global canv linespc lthickness
7720 global commitinfo
7733 -fill \#ffff80 -outline black -width 1 -tags hover]
7736 -font mainfont]
7738 }
7740 proc clickisonarrow {id y} {
7741 global lthickness
7750 }
7751 }
7752 return {}
7753 }
7755 proc arrowjump {id n y} {
7756 global canv
7758 # 1 <-> 2, 3 <-> 4, etc...
7768 set yfrac 0
7769 }
7771 }
7773 proc lineclick {x y id isnew} {
7774 global ctext commitinfo children canv thickerline curview
7777 unmarkmatches
7778 unselectline
7779 normalline
7781 # draw this line thicker than normal
7789 }
7793 return
7794 }
7798 }
7799 # fill the details pane with info about this line
7801 clear_ctext
7802 settabs 0
7814 set i 0
7816 incr i
7826 }
7827 }
7829 init_flist {}
7830 }
7832 proc normalline {} {
7833 global thickerline
7834 if {[info exists thickerline]} {
7836 unset thickerline
7838 }
7839 }
7841 proc selbyid {id} {
7842 global curview
7845 }
7846 }
7848 proc mstime {} {
7849 global startmstime
7850 if {![info exists startmstime]} {
7851 set startmstime [clock clicks -milliseconds]
7852 }
7854 }
7856 proc rowmenu {x y id} {
7857 global rowctxmenu selectedline rowmenuid curview
7858 global nullid nullid2 fakerowmenu mainhead
7860 stopfinding
7863 set state disabled
7864 } else {
7865 set state normal
7866 }
7871 } else {
7873 }
7874 } else {
7876 }
7881 }
7883 proc diffvssel {dirn} {
7884 global rowmenuid selectedline
7890 } else {
7893 }
7896 }
7898 proc doseldiff {oldid newid} {
7899 global ctext
7900 global commitinfo
7903 clear_ctext
7904 init_flist [mc "Top"]
7919 }
7921 proc mkpatch {} {
7922 global rowmenuid currentid commitinfo patchtop patchnum
7924 if {![info exists currentid]} return
7929 set top .patch
7959 incr patchnum
7971 }
7973 proc mkpatchrev {} {
7974 global patchtop
7980 foreach e [list fromsha1 fromhead tosha1 tohead] \
7986 }
7987 }
7989 proc mkpatchgo {} {
7990 global patchtop nullid nullid2
7996 # trim off the initial "|"
8001 }
8003 unset patchtop
8004 }
8006 proc mkpatchcan {} {
8007 global patchtop
8010 unset patchtop
8011 }
8013 proc mktag {} {
8014 global rowmenuid mktagtop commitinfo
8016 set top .maketag
8045 }
8047 proc domktag {} {
8048 global mktagtop env tagids idtags
8054 return 0
8055 }
8058 return 0
8059 }
8060 if {[catch {
8062 } err]} {
8064 return 0
8065 }
8071 dispneartags 0
8072 run refill_reflist
8073 return 1
8074 }
8076 proc redrawtags {id} {
8077 global canv linehtag idpos currentid curview cmitlisted
8078 global canvxmax iddrawn circleitem mainheadid circlecolors
8084 set ofill yellow
8085 } else {
8087 }
8097 setcanvscroll
8098 }
8101 }
8102 }
8104 proc mktagcan {} {
8105 global mktagtop
8108 unset mktagtop
8109 }
8111 proc mktaggo {} {
8112 if {![domktag]} return
8113 mktagcan
8114 }
8116 proc writecommit {} {
8117 global rowmenuid wrcomtop commitinfo wrcomcmd
8119 set top .writecommit
8152 }
8154 proc wrcomgo {} {
8155 global wrcomtop
8162 }
8164 unset wrcomtop
8165 }
8167 proc wrcomcan {} {
8168 global wrcomtop
8171 unset wrcomtop
8172 }
8174 proc mkbranch {} {
8175 global rowmenuid mkbrtop
8177 set top .makebranch
8202 }
8204 proc mkbrgo {top} {
8205 global headids idheads
8209 set cmdargs {}
8210 set old_id {}
8213 return
8214 }
8216 if {![confirm_popup [mc \
8218 return
8219 }
8221 lappend cmdargs -f
8222 }
8225 nowbusy newbranch
8226 update
8227 if {[catch {
8229 } err]} {
8230 notbusy newbranch
8232 } else {
8233 notbusy newbranch
8239 } else {
8244 }
8245 dispneartags 0
8246 run refill_reflist
8247 }
8248 }
8250 proc exec_citool {tool_args {baseid {}}} {
8251 global commitinfo env
8253 set save_env [array get env GIT_AUTHOR_*]
8258 }
8261 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8267 }
8268 }
8272 array unset env GIT_AUTHOR_*
8274 }
8276 proc cherrypick {} {
8277 global rowmenuid curview
8278 global mainhead mainheadid
8280 set oldhead [exec git rev-parse HEAD]
8283 set ok [confirm_popup [mc "Commit %s is already\
8284 included in branch %s -- really re-apply it?" \
8287 }
8288 nowbusy cherrypick [mc "Cherry-picking"]
8289 update
8290 # Unfortunately git-cherry-pick writes stuff to stderr even when
8291 # no error occurs, and exec takes that as an indication of error...
8293 notbusy cherrypick
8294 if {[regexp -line \
8295 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8297 error_popup [mc "Cherry-pick failed because of local changes\
8298 to file '%s'.\nPlease commit, reset or stash\
8300 } elseif {[regexp -line \
8301 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8303 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8304 conflict.\nDo you wish to run git citool to\
8305 resolve it?"]]} {
8306 # Force citool to read MERGE_MSG
8307 file delete [file join [gitdir] "GITGUI_MSG"]
8309 }
8310 } else {
8312 }
8313 run updatecommits
8314 return
8315 }
8316 set newhead [exec git rev-parse HEAD]
8318 notbusy cherrypick
8319 error_popup [mc "No changes committed"]
8320 return
8321 }
8328 }
8333 }
8334 notbusy cherrypick
8335 }
8337 proc resethead {} {
8338 global mainhead rowmenuid confirm_ok resettype
8340 set confirm_ok 0
8341 set w ".confirmreset"
8347 -justify center -aspect 1000
8352 set resettype mixed
8354 -text [mc "Soft: Leave working tree and index untouched"]
8357 -text [mc "Mixed: Leave working tree untouched, reset index"]
8360 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8371 if {[catch {set fd [open \
8374 } else {
8375 dohidelocalchanges
8377 nowbusy reset [mc "Resetting"]
8379 }
8380 }
8382 proc readresetstat {fd} {
8383 global mainhead mainheadid showlocalchanges rprogcoord
8388 adjustprogress
8389 }
8390 return 1
8391 }
8392 set rprogcoord 0
8393 adjustprogress
8394 notbusy reset
8397 }
8399 set newhead [exec git rev-parse HEAD]
8406 }
8408 doshowlocalchanges
8409 }
8410 return 0
8411 }
8413 # context menu for a head
8414 proc headmenu {x y id head} {
8415 global headmenuid headmenuhead headctxmenu mainhead
8417 stopfinding
8420 set state normal
8422 set state disabled
8423 }
8427 }
8429 proc cobranch {} {
8430 global headmenuid headmenuhead headids
8431 global showlocalchanges mainheadid
8433 # check the tree is clean first??
8434 nowbusy checkout [mc "Checking out"]
8435 update
8436 dohidelocalchanges
8437 if {[catch {
8439 } err]} {
8440 notbusy checkout
8443 dodiffindex
8444 }
8445 } else {
8447 }
8448 }
8450 proc readcheckoutstat {fd newhead newheadid} {
8451 global mainhead mainheadid headids showlocalchanges progresscoords
8456 adjustprogress
8457 }
8458 return 1
8459 }
8460 set progresscoords {0 0}
8461 adjustprogress
8462 notbusy checkout
8465 }
8473 dodiffindex
8474 }
8475 }
8477 proc rmbranch {} {
8478 global headmenuid headmenuhead mainhead
8479 global idheads
8483 # this check shouldn't be needed any more...
8485 error_popup [mc "Cannot delete the currently checked-out branch"]
8486 return
8487 }
8490 # the stuff on this branch isn't on any other branch
8491 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8493 }
8494 nowbusy rmbranch
8495 update
8497 notbusy rmbranch
8499 return
8500 }
8504 notbusy rmbranch
8505 dispneartags 0
8506 run refill_reflist
8507 }
8509 # Display a list of tags and heads
8510 proc showrefs {} {
8511 global showrefstop bgcolor fgcolor selectbgcolor
8512 global bglist fglist reflistfilter reflist maincursor
8514 set top .showrefs
8518 refill_reflist
8519 return
8520 }
8528 -spacing1 1 -spacing3 1 -state disabled
8539 set reflistfilter "*"
8540 trace add variable reflistfilter write reflistfilter_change
8552 set reflist {}
8553 refill_reflist
8554 }
8556 proc sel_reflist {w x y} {
8557 global showrefstop reflist headids tagids otherrefids
8567 }
8569 }
8571 proc unsel_reflist {} {
8572 global showrefstop
8576 }
8578 proc reflistfilter_change {n1 n2 op} {
8579 global reflistfilter
8581 after cancel refill_reflist
8582 after 200 refill_reflist
8583 }
8585 proc refill_reflist {} {
8586 global reflist reflistfilter showrefstop headids tagids otherrefids
8587 global curview
8590 set refs {}
8591 foreach n [array names headids] {
8595 } else {
8597 }
8598 }
8599 }
8600 foreach n [array names tagids] {
8604 } else {
8606 }
8607 }
8608 }
8609 foreach n [array names otherrefids] {
8613 } else {
8615 }
8616 }
8617 }
8625 set i 0
8626 set j 0
8635 }
8636 } else {
8637 set cmp -1
8638 }
8639 } else {
8640 set cmp 1
8641 }
8643 -1 {
8645 incr i
8646 }
8647 0 {
8648 incr i
8649 incr j
8650 }
8651 1 {
8656 incr j
8657 }
8658 }
8659 }
8661 # delete last newline
8664 }
8666 # Stuff for finding nearby tags
8667 proc getallcommits {} {
8668 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
8669 global idheads idtags idotherrefs allparents tagobjid
8671 if {![info exists allcommits]} {
8672 set nextarc 0
8673 set allcommits 0
8674 set seeds {}
8675 set allcwait 0
8676 set cachedarcs 0
8677 set allccache [file join [gitdir] "gitk.cache"]
8678 if {![catch {
8680 set allcwait 1
8682 }]} return
8683 }
8686 return
8687 }
8688 set cmd [list | git rev-list --parents]
8691 set ids "--all"
8692 } else {
8693 set refs [concat [array names idheads] [array names idtags] \
8694 [array names idotherrefs]]
8695 set ids {}
8696 set tagobjs {}
8697 foreach name [array names tagobjid] {
8699 }
8704 }
8705 }
8709 }
8710 }
8711 }
8715 incr allcommits
8716 nowbusy allcommits
8718 } else {
8719 dispneartags 0
8720 }
8721 }
8723 # Since most commits have 1 parent and 1 child, we group strings of
8724 # such commits into "arcs" joining branch/merge points (BMPs), which
8725 # are commits that either don't have 1 parent or don't have 1 child.
8726 #
8727 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
8728 # arcout(id) - outgoing arcs for BMP
8729 # arcids(a) - list of IDs on arc including end but not start
8730 # arcstart(a) - BMP ID at start of arc
8731 # arcend(a) - BMP ID at end of arc
8732 # growing(a) - arc a is still growing
8733 # arctags(a) - IDs out of arcids (excluding end) that have tags
8734 # archeads(a) - IDs out of arcids (excluding end) that have heads
8735 # The start of an arc is at the descendent end, so "incoming" means
8736 # coming from descendents, and "outgoing" means going towards ancestors.
8738 proc getallclines {fd} {
8739 global allparents allchildren idtags idheads nextarc
8740 global arcnos arcids arctags arcout arcend arcstart archeads growing
8741 global seeds allcommits cachedarcs allcupdate
8743 set nid 0
8747 # seen it already
8748 continue
8749 }
8750 set cachedarcs 0
8757 } else {
8763 }
8766 }
8768 # seen parent already
8771 }
8775 }
8778 continue
8779 }
8780 }
8785 }
8787 set ao {}
8790 set a [incr nextarc]
8799 # seen it already, may need to make a new branch
8802 }
8806 }
8808 }
8810 }
8812 global cached_dheads cached_dtags cached_atags
8813 catch {unset cached_dheads}
8814 catch {unset cached_dtags}
8815 catch {unset cached_atags}
8816 }
8819 }
8820 set cacheok 1
8821 if {[catch {
8824 } err]} {
8825 # got an error reading the list of commits
8826 # if we were updating, try rereading the whole thing again
8828 incr allcommits -1
8830 return
8831 }
8832 error_popup "[mc "Error reading commit topology information;\
8833 branch and preceding/following tag information\
8835 set cacheok 0
8836 }
8837 if {[incr allcommits -1] == 0} {
8838 notbusy allcommits
8840 run savecache
8841 }
8842 }
8843 dispneartags 0
8844 return 0
8845 }
8847 proc recalcarc {a} {
8848 global arctags archeads arcids idtags idheads
8850 set at {}
8851 set ah {}
8855 }
8858 }
8859 }
8862 }
8864 proc splitarc {p} {
8865 global arcnos arcids nextarc arctags archeads idtags idheads
8866 global arcstart arcend arcout allparents growing
8871 return
8872 }
8877 return
8878 }
8879 set na [incr nextarc]
8882 } else {
8886 }
8896 }
8901 } else {
8904 }
8905 }
8907 # reconstruct tags and heads lists
8911 } else {
8914 }
8915 }
8917 # Update things for a new commit added that is a child of one
8918 # existing commit. Used when cherry-picking.
8919 proc addnewchild {id p} {
8920 global allparents allchildren idtags nextarc
8921 global arcnos arcids arctags arcout arcend arcstart archeads growing
8922 global seeds allcommits
8930 set a [incr nextarc]
8938 }
8941 }
8943 # This implements a cache for the topology information.
8944 # The cache saves, for each arc, the start and end of the arc,
8945 # the ids on the arc, and the outgoing arcs from the end.
8946 proc readcache {f} {
8947 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8948 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8949 global allcwait
8955 }
8956 if {[catch {
8958 # finish reading the cache and setting up arctags, etc.
8962 foreach id [array names idtags] {
8968 }
8969 }
8970 }
8971 foreach id [array names idheads] {
8977 }
8978 }
8979 }
8983 }
8984 }
8985 set allcwait 0
8986 } else {
8996 }
9000 } else {
9004 }
9005 }
9011 }
9014 }
9017 }
9019 }
9020 } err]} {
9022 return 0
9023 }
9025 getallcommits
9026 }
9028 }
9030 proc getcache {f} {
9031 global nextarc cachedarcs possible_seeds
9033 if {[catch {
9036 # make sure it's an integer
9039 set nextarc 0
9040 set possible_seeds {}
9042 } err]} {
9044 }
9045 return 0
9046 }
9048 proc dropcache {err} {
9049 global allcwait nextarc cachedarcs seeds
9052 foreach v {arcnos arcout arcids arcstart arcend growing \
9053 arctags archeads allparents allchildren} {
9056 }
9057 set allcwait 0
9058 set nextarc 0
9059 set cachedarcs 0
9060 set seeds {}
9061 getallcommits
9062 }
9064 proc writecache {f} {
9065 global cachearc cachedarcs allccache
9066 global arcstart arcend arcnos arcids arcout
9072 }
9073 if {[catch {
9077 } else {
9079 }
9080 }
9081 } err]} {
9085 return 0
9086 }
9091 return 0
9092 }
9093 return 1
9094 }
9096 proc savecache {} {
9097 global nextarc cachedarcs cachearc allccache
9100 set cachearc 0
9102 catch {
9106 }
9107 }
9109 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9110 # or 0 if neither is true.
9111 proc anc_or_desc {a b} {
9112 global arcout arcstart arcend arcnos cached_isanc
9115 # Both are on the same arc(s); either both are the same BMP,
9116 # or if one is not a BMP, the other is also not a BMP or is
9117 # the BMP at end of the arc (and it only has 1 incoming arc).
9118 # Or both can be BMPs with no incoming arcs.
9120 return 0
9121 }
9127 return 1
9128 } else {
9129 return -1
9130 }
9131 }
9137 } else {
9138 set aend {}
9139 }
9141 } else {
9143 }
9148 } else {
9149 set bend {}
9150 }
9152 } else {
9154 }
9156 return 1
9157 }
9159 return -1
9160 }
9163 return 1
9164 }
9165 }
9168 return -1
9169 }
9171 return 0
9172 }
9173 }
9181 continue
9182 }
9188 return 1
9192 return -1
9193 }
9199 }
9200 }
9201 }
9204 return 0
9205 }
9209 # and returns 0 if so and 1 if not.
9210 # If we subsequently discover a tag on such a growing tip, and that
9213 # isn't a good choice to display as a descendent tag of
9217 #
9218 proc is_certain {desc anc} {
9219 global arcnos arcout arcstart arcend growing problems
9221 set certain {}
9223 # tags on the same arc are certain
9225 return 1
9226 }
9231 }
9232 }
9235 } else {
9238 }
9240 return 1
9241 }
9244 set nnh 1
9245 set ngrowanc 0
9249 incr nnh -1
9250 }
9256 incr ngrowanc
9257 }
9258 } else {
9265 incr nnh -1
9266 }
9268 incr ngrowanc -1
9269 }
9279 incr nnh -1
9280 }
9282 incr ngrowanc -1
9283 }
9285 }
9286 }
9287 }
9288 }
9289 }
9290 }
9294 } else {
9297 incr nnh
9298 }
9299 }
9300 }
9301 }
9302 foreach x [array names growanc] {
9304 return 0
9305 }
9306 return 0
9307 }
9308 return 1
9309 }
9311 proc validate_arctags {a} {
9312 global arctags idtags
9314 set i -1
9317 incr i
9320 incr i -1
9321 }
9322 }
9324 }
9326 proc validate_archeads {a} {
9327 global archeads idheads
9329 set i -1
9332 incr i
9335 incr i -1
9336 }
9337 }
9339 }
9341 # Return the list of IDs that have tags that are descendents of id,
9342 # ignoring IDs that are descendents of IDs already reported.
9343 proc desctags {id} {
9344 global arcnos arcstart arcids arctags idtags allparents
9345 global growing cached_dtags
9348 return {}
9349 }
9350 set t1 [clock clicks -milliseconds]
9353 # part-way along an arc; check that arc first
9358 set tid {}
9363 }
9366 }
9367 }
9371 }
9372 }
9375 }
9380 set nc 1
9386 incr nc -1
9387 }
9388 # ignore tags on starting node
9392 set ta 1
9395 set ta 1
9396 }
9397 }
9404 }
9405 }
9414 }
9417 }
9419 incr nc -1
9420 }
9422 }
9423 }
9424 }
9429 incr nc
9430 }
9431 }
9432 }
9433 }
9434 set tags {}
9435 foreach id [array names tagloc] {
9440 }
9441 }
9442 }
9443 }
9444 set t2 [clock clicks -milliseconds]
9447 # remove tags that are descendents of other tags
9455 incr j -1
9456 incr i -1
9459 incr i -1
9460 break
9461 }
9462 }
9463 }
9465 if {[array names growing] ne {}} {
9466 # graph isn't finished, need to check if any tag could get
9467 # eclipsed by another tag coming later. Simply ignore any
9468 # tags that could later get eclipsed.
9469 set ctags {}
9473 }
9474 }
9477 } else {
9479 }
9480 } else {
9482 }
9483 set t3 [clock clicks -milliseconds]
9487 }
9489 }
9491 proc anctags {id} {
9492 global arcnos arcids arcout arcend arctags idtags allparents
9493 global growing cached_atags
9496 return {}
9497 }
9498 set t1 [clock clicks -milliseconds]
9501 # part-way along an arc; check that arc first
9510 }
9511 }
9512 }
9514 return {}
9515 }
9519 }
9520 }
9523 }
9528 set taglist {}
9529 set nc 1
9535 incr nc -1
9536 }
9537 # ignore tags on starting node
9541 set td 1
9544 set td 1
9545 }
9546 }
9552 }
9553 }
9565 }
9566 }
9569 }
9571 incr nc -1
9572 }
9574 }
9575 }
9576 }
9581 incr nc
9582 }
9583 }
9584 }
9585 }
9586 set t2 [clock clicks -milliseconds]
9588 set tags {}
9589 foreach id [array names tagloc] {
9594 }
9595 }
9596 }
9597 }
9599 # remove tags that are ancestors of other tags
9607 incr j -1
9608 incr i -1
9611 incr i -1
9612 break
9613 }
9614 }
9615 }
9617 if {[array names growing] ne {}} {
9618 # graph isn't finished, need to check if any tag could get
9619 # eclipsed by another tag coming later. Simply ignore any
9620 # tags that could later get eclipsed.
9621 set ctags {}
9625 }
9626 }
9629 } else {
9631 }
9632 } else {
9634 }
9635 set t3 [clock clicks -milliseconds]
9639 }
9641 }
9643 # Return the list of IDs that have heads that are descendents of id,
9644 # including id itself if it has a head.
9645 proc descheads {id} {
9646 global arcnos arcstart arcids archeads idheads cached_dheads
9647 global allparents
9650 return {}
9651 }
9652 set aret {}
9654 # part-way along an arc; check it first
9663 }
9664 }
9666 }
9670 set ret {}
9675 } else {
9678 }
9684 }
9685 }
9690 }
9691 }
9692 }
9693 }
9697 }
9699 proc addedtag {id} {
9700 global arcnos arcout cached_dtags cached_atags
9705 }
9706 catch {unset cached_dtags}
9707 catch {unset cached_atags}
9708 }
9710 proc addedhead {hid head} {
9711 global arcnos arcout cached_dheads
9716 }
9717 catch {unset cached_dheads}
9718 }
9720 proc removedhead {hid head} {
9721 global cached_dheads
9723 catch {unset cached_dheads}
9724 }
9726 proc movedhead {hid head} {
9727 global arcnos arcout cached_dheads
9732 }
9733 catch {unset cached_dheads}
9734 }
9736 proc changedrefs {} {
9737 global cached_dheads cached_dtags cached_atags
9738 global arctags archeads arcnos arcout idheads idtags
9740 foreach id [concat [array names idheads] [array names idtags]] {
9746 }
9747 }
9748 }
9749 catch {unset cached_dtags}
9750 catch {unset cached_atags}
9751 catch {unset cached_dheads}
9752 }
9754 proc rereadrefs {} {
9755 global idtags idheads idotherrefs mainheadid
9757 set refids [concat [array names idtags] \
9758 [array names idheads] [array names idotherrefs]]
9762 }
9763 }
9765 readrefs
9766 changedrefs
9768 [array names idheads] [array names idotherrefs]]]
9773 }
9774 }
9778 }
9779 run refill_reflist
9780 }
9782 proc listrefs {id} {
9783 global idtags idheads idotherrefs
9785 set x {}
9788 }
9789 set y {}
9792 }
9793 set z {}
9796 }
9798 }
9800 proc showtag {tag isnew} {
9801 global ctext tagcontents tagids linknum tagobjid
9805 }
9807 clear_ctext
9808 settabs 0
9809 set linknum 0
9811 catch {
9813 }
9814 }
9817 } else {
9819 }
9822 init_flist {}
9823 }
9825 proc doquit {} {
9826 global stopped
9827 global gitktmpdir
9829 set stopped 100
9830 savestuff .
9831 destroy .
9833 if {[info exists gitktmpdir]} {
9835 }
9836 }
9838 proc mkfontdisp {font top which} {
9847 }
9849 proc choosefont {font which} {
9850 global fontparam fontlist fonttop fontattr
9851 global prefstop
9859 set top .gitkfont
9862 font create sample
9869 set fontlist [lsort [font families]]
9880 -textvariable fontparam(size) \
9881 -validatecommand {string is integer -strict %s}
9883 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9884 -variable fontparam(weight) -onvalue bold -offvalue normal
9886 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9887 -variable fontparam(slant) -onvalue italic -offvalue roman
9891 -background white
9893 -fill black -tags text
9905 trace add variable fontparam write chg_fontparam
9906 } else {
9909 }
9914 }
9915 }
9917 proc centertext {w} {
9919 }
9921 proc fontok {} {
9922 global fontparam fontpref prefstop
9928 }
9931 }
9935 fontcan
9936 }
9938 proc fontcan {} {
9939 global fonttop fontparam
9941 if {[info exists fonttop]} {
9943 catch {font delete sample}
9944 unset fonttop
9945 unset fontparam
9946 }
9947 }
9949 proc selfontfam {} {
9950 global fonttop fontparam
9955 }
9956 }
9958 proc chg_fontparam {v sub op} {
9959 global fontparam
9962 }
9964 proc doprefs {} {
9965 global maxwidth maxgraphpct
9966 global oldprefs prefstop showneartags showlocalchanges
9967 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
9968 global tabstop limitdiffs autoselect extdifftool perfile_attrs
9970 set top .gitkprefs
9974 return
9975 }
9976 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9977 limitdiffs tabstop perfile_attrs} {
9979 }
9987 -font optionfont
9991 -font optionfont
10029 -padx 10
10031 -command choose_extdiff
10058 "diff hunk header" \
10064 [mc "marked line background"] \
10088 }
10090 proc choose_extdiff {} {
10091 global extdifftool
10093 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
10096 }
10097 }
10099 proc choosecolor {v vi w x cmd} {
10108 }
10110 proc setselbg {c} {
10111 global bglist cflist
10114 }
10118 }
10120 proc setbg {c} {
10121 global bglist
10125 }
10126 }
10128 proc setfg {c} {
10129 global fglist canv
10133 }
10136 }
10138 proc prefscan {} {
10139 global oldprefs prefstop
10141 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10142 limitdiffs tabstop perfile_attrs} {
10145 }
10147 unset prefstop
10148 fontcan
10149 }
10151 proc prefsok {} {
10152 global maxwidth maxgraphpct
10153 global oldprefs prefstop showneartags showlocalchanges
10154 global fontpref mainfont textfont uifont
10155 global limitdiffs treediffs perfile_attrs
10158 unset prefstop
10159 fontcan
10160 set fontchanged 0
10164 eval font configure mainfont [fontflags mainfont]
10165 eval font configure mainfontbold [fontflags mainfont 1]
10166 setcoords
10167 set fontchanged 1
10168 }
10172 eval font configure textfont [fontflags textfont]
10173 eval font configure textfontbold [fontflags textfont 1]
10174 }
10178 eval font configure uifont [fontflags uifont]
10179 }
10180 settabs
10183 doshowlocalchanges
10184 } else {
10185 dohidelocalchanges
10186 }
10187 }
10190 # treediffs elements are limited by path;
10191 # won't have encodings cached if perfile_attrs was just turned on
10192 catch {unset treediffs}
10193 }
10196 redisplay
10199 reselectline
10200 }
10201 }
10203 proc formatdate {d} {
10204 global datetimeformat
10207 }
10209 }
10211 # This list of encoding names and aliases is distilled from
10212 # http://www.iana.org/assignments/character-sets.
10213 # Not all of them are supported by Tcl.
10214 set encoding_aliases {
10215 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10216 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10217 { ISO-10646-UTF-1 csISO10646UTF1 }
10218 { ISO_646.basic:1983 ref csISO646basic1983 }
10219 { INVARIANT csINVARIANT }
10220 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10221 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10222 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10223 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10224 { NATS-DANO iso-ir-9-1 csNATSDANO }
10225 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10226 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10227 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10228 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10229 { ISO-2022-KR csISO2022KR }
10230 { EUC-KR csEUCKR }
10231 { ISO-2022-JP csISO2022JP }
10232 { ISO-2022-JP-2 csISO2022JP2 }
10233 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10234 csISO13JISC6220jp }
10235 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10236 { IT iso-ir-15 ISO646-IT csISO15Italian }
10237 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10238 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10239 { greek7-old iso-ir-18 csISO18Greek7Old }
10240 { latin-greek iso-ir-19 csISO19LatinGreek }
10241 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10242 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10243 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10244 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10245 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10246 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10247 { INIS iso-ir-49 csISO49INIS }
10248 { INIS-8 iso-ir-50 csISO50INIS8 }
10249 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10250 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10251 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10252 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10253 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10254 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10255 csISO60Norwegian1 }
10256 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10257 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10258 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10259 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10260 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10261 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10262 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10263 { greek7 iso-ir-88 csISO88Greek7 }
10264 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10265 { iso-ir-90 csISO90 }
10266 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10267 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10268 csISO92JISC62991984b }
10269 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10270 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10271 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10272 csISO95JIS62291984handadd }
10273 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10274 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10275 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10276 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10277 CP819 csISOLatin1 }
10278 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10279 { T.61-7bit iso-ir-102 csISO102T617bit }
10280 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10281 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10282 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10283 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10284 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10285 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10286 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10287 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10288 arabic csISOLatinArabic }
10289 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10290 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10291 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10292 greek greek8 csISOLatinGreek }
10293 { T.101-G2 iso-ir-128 csISO128T101G2 }
10294 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10295 csISOLatinHebrew }
10296 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10297 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10298 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10299 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10300 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10301 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10302 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10303 csISOLatinCyrillic }
10304 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10305 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10306 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10307 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10308 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10309 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10310 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10311 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10312 { ISO_10367-box iso-ir-155 csISO10367Box }
10313 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10314 { latin-lap lap iso-ir-158 csISO158Lap }
10315 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10316 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10317 { us-dk csUSDK }
10318 { dk-us csDKUS }
10319 { JIS_X0201 X0201 csHalfWidthKatakana }
10320 { KSC5636 ISO646-KR csKSC5636 }
10321 { ISO-10646-UCS-2 csUnicode }
10322 { ISO-10646-UCS-4 csUCS4 }
10323 { DEC-MCS dec csDECMCS }
10324 { hp-roman8 roman8 r8 csHPRoman8 }
10325 { macintosh mac csMacintosh }
10326 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10327 csIBM037 }
10328 { IBM038 EBCDIC-INT cp038 csIBM038 }
10329 { IBM273 CP273 csIBM273 }
10330 { IBM274 EBCDIC-BE CP274 csIBM274 }
10331 { IBM275 EBCDIC-BR cp275 csIBM275 }
10332 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10333 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10334 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10335 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10336 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10337 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10338 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10339 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10340 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10341 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10342 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10343 { IBM437 cp437 437 csPC8CodePage437 }
10344 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10345 { IBM775 cp775 csPC775Baltic }
10346 { IBM850 cp850 850 csPC850Multilingual }
10347 { IBM851 cp851 851 csIBM851 }
10348 { IBM852 cp852 852 csPCp852 }
10349 { IBM855 cp855 855 csIBM855 }
10350 { IBM857 cp857 857 csIBM857 }
10351 { IBM860 cp860 860 csIBM860 }
10352 { IBM861 cp861 861 cp-is csIBM861 }
10353 { IBM862 cp862 862 csPC862LatinHebrew }
10354 { IBM863 cp863 863 csIBM863 }
10355 { IBM864 cp864 csIBM864 }
10356 { IBM865 cp865 865 csIBM865 }
10357 { IBM866 cp866 866 csIBM866 }
10358 { IBM868 CP868 cp-ar csIBM868 }
10359 { IBM869 cp869 869 cp-gr csIBM869 }
10360 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10361 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10362 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10363 { IBM891 cp891 csIBM891 }
10364 { IBM903 cp903 csIBM903 }
10365 { IBM904 cp904 904 csIBBM904 }
10366 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10367 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10368 { IBM1026 CP1026 csIBM1026 }
10369 { EBCDIC-AT-DE csIBMEBCDICATDE }
10370 { EBCDIC-AT-DE-A csEBCDICATDEA }
10371 { EBCDIC-CA-FR csEBCDICCAFR }
10372 { EBCDIC-DK-NO csEBCDICDKNO }
10373 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10374 { EBCDIC-FI-SE csEBCDICFISE }
10375 { EBCDIC-FI-SE-A csEBCDICFISEA }
10376 { EBCDIC-FR csEBCDICFR }
10377 { EBCDIC-IT csEBCDICIT }
10378 { EBCDIC-PT csEBCDICPT }
10379 { EBCDIC-ES csEBCDICES }
10380 { EBCDIC-ES-A csEBCDICESA }
10381 { EBCDIC-ES-S csEBCDICESS }
10382 { EBCDIC-UK csEBCDICUK }
10383 { EBCDIC-US csEBCDICUS }
10384 { UNKNOWN-8BIT csUnknown8BiT }
10385 { MNEMONIC csMnemonic }
10386 { MNEM csMnem }
10387 { VISCII csVISCII }
10388 { VIQR csVIQR }
10389 { KOI8-R csKOI8R }
10390 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10391 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10392 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10393 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10394 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10395 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10396 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10397 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10398 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10399 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10400 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10401 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10402 { IBM1047 IBM-1047 }
10403 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10404 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10405 { UNICODE-1-1 csUnicode11 }
10406 { CESU-8 csCESU-8 }
10407 { BOCU-1 csBOCU-1 }
10408 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10409 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10410 l8 }
10411 { ISO-8859-15 ISO_8859-15 Latin-9 }
10412 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10413 { GBK CP936 MS936 windows-936 }
10414 { JIS_Encoding csJISEncoding }
10415 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10416 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10417 EUC-JP }
10418 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10419 { ISO-10646-UCS-Basic csUnicodeASCII }
10420 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10421 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10422 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10423 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10424 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10425 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10426 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10427 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10428 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10429 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10430 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10431 { Ventura-US csVenturaUS }
10432 { Ventura-International csVenturaInternational }
10433 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10434 { PC8-Turkish csPC8Turkish }
10435 { IBM-Symbols csIBMSymbols }
10436 { IBM-Thai csIBMThai }
10437 { HP-Legal csHPLegal }
10438 { HP-Pi-font csHPPiFont }
10439 { HP-Math8 csHPMath8 }
10440 { Adobe-Symbol-Encoding csHPPSMath }
10441 { HP-DeskTop csHPDesktop }
10442 { Ventura-Math csVenturaMath }
10443 { Microsoft-Publishing csMicrosoftPublishing }
10444 { Windows-31J csWindows31J }
10445 { GB2312 csGB2312 }
10446 { Big5 csBig5 }
10447 }
10449 proc tcl_encoding {enc} {
10450 global encoding_aliases tcl_encoding_cache
10453 }
10454 set names [encoding names]
10459 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10462 }
10463 }
10468 # look through the aliases for one that tcl knows about
10474 }
10475 }
10477 }
10478 break
10479 }
10480 }
10481 set tclenc {}
10484 }
10487 }
10489 proc gitattr {path attr default} {
10490 global path_attr_cache
10493 } else {
10494 set r "unspecified"
10497 }
10499 }
10502 }
10504 }
10506 proc cache_gitattr {attr pathlist} {
10507 global path_attr_cache
10508 set newlist {}
10512 }
10513 }
10514 set lim 1000
10515 if {[tk windowingsystem] == "win32"} {
10516 # windows has a 32k limit on the arguments to a command...
10517 set lim 30
10518 }
10527 }
10529 }
10530 }
10531 }
10532 }
10533 }
10535 proc get_path_encoding {path} {
10536 global gui_encoding perfile_attrs
10542 }
10543 }
10545 }
10547 # First check that Tcl/Tk is recent enough
10548 if {[catch {package require Tk 8.4} err]} {
10549 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10550 Gitk requires at least Tcl/Tk 8.4."]
10551 exit 1
10552 }
10554 # defaults...
10555 set wrcomcmd "git diff-tree --stdin -p --pretty"
10557 set gitencoding {}
10558 catch {
10559 set gitencoding [exec git config --get i18n.commitencoding]
10560 }
10562 set gitencoding "utf-8"
10563 }
10567 }
10569 set gui_encoding [encoding system]
10570 catch {
10571 set enc [exec git config --get gui.encoding]
10576 } else {
10578 }
10579 }
10580 }
10582 set mainfont {Helvetica 9}
10583 set textfont {Courier 9}
10584 set uifont {Helvetica 9 bold}
10585 set tabstop 8
10586 set findmergefiles 0
10587 set maxgraphpct 50
10588 set maxwidth 16
10589 set revlistorder 0
10590 set fastdate 0
10591 set uparrowlen 5
10592 set downarrowlen 5
10593 set mingaplen 100
10594 set cmitmode "patch"
10595 set wrapcomment "none"
10596 set showneartags 1
10597 set maxrefs 20
10598 set maxlinelen 200
10599 set showlocalchanges 1
10600 set limitdiffs 1
10601 set datetimeformat "%Y-%m-%d %H:%M:%S"
10602 set autoselect 1
10603 set perfile_attrs 0
10605 set extdifftool "meld"
10607 set colors {green red blue magenta darkgrey brown orange}
10608 set bgcolor white
10609 set fgcolor black
10610 set diffcolors {red "#00a000" blue}
10611 set diffcontext 3
10612 set ignorespace 0
10613 set selectbgcolor gray85
10614 set markbgcolor "#e0e0ff"
10616 set circlecolors {white blue gray blue blue}
10618 # button for popping up context menus
10619 if {[tk windowingsystem] eq "aqua"} {
10620 set ctxbut <Button-2>
10621 } else {
10622 set ctxbut <Button-3>
10623 }
10625 ## For msgcat loading, first locate the installation location.
10626 if { [info exists ::env(GITK_MSGSDIR)] } {
10627 ## Msgsdir was manually set in the environment.
10628 set gitk_msgsdir $::env(GITK_MSGSDIR)
10629 } else {
10630 ## Let's guess the prefix from argv0.
10634 unset gitk_prefix
10635 }
10637 ## Internationalization (i18n) through msgcat and gettext. See
10638 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
10639 package require msgcat
10640 namespace import ::msgcat::mc
10641 ## And eventually load the actual message catalog
10644 catch {source ~/.gitk}
10646 font create optionfont -family sans-serif -size -12
10649 eval font create mainfont [fontflags mainfont]
10650 eval font create mainfontbold [fontflags mainfont 1]
10653 eval font create textfont [fontflags textfont]
10654 eval font create textfontbold [fontflags textfont 1]
10657 eval font create uifont [fontflags uifont]
10659 setoptions
10661 # check that we can find a .git directory somewhere...
10662 if {[catch {set gitdir [gitdir]}]} {
10663 show_error {} . [mc "Cannot find a git repository here."]
10664 exit 1
10665 }
10668 exit 1
10669 }
10671 set selecthead {}
10672 set selectheadid {}
10674 set revtreeargs {}
10675 set cmdline_files {}
10676 set i 0
10677 set revtreeargscmd {}
10680 "" { }
10681 "--" {
10683 break
10684 }
10685 "--select-commit=*" {
10687 }
10688 "--argscmd=*" {
10690 }
10691 default {
10693 }
10694 }
10695 incr i
10696 }
10699 set selecthead {}
10700 }
10703 # no -- on command line, but some arguments (other than --argscmd)
10704 if {[catch {
10709 # Unfortunately git rev-parse doesn't produce an error when
10710 # something is both a revision and a filename. To be consistent
10711 # with git log and git rev-list, check revtreeargs for filenames.
10714 show_error {} . [mc "Ambiguous argument '%s': both revision\
10716 exit 1
10717 }
10718 }
10719 } err]} {
10721 # so look for "fatal:".
10725 }
10727 exit 1
10728 }
10729 }
10731 set nullid "0000000000000000000000000000000000000000"
10732 set nullid2 "0000000000000000000000000000000000000001"
10733 set nullfile "/dev/null"
10737 set runq {}
10738 set history {}
10739 set historyindex 0
10740 set fh_serial 0
10741 set nhl_names {}
10742 set highlight_paths {}
10743 set findpattern {}
10744 set searchdirn -forwards
10745 set boldrows {}
10746 set boldnamerows {}
10747 set diffelide {0 0}
10748 set markingmatches 0
10749 set linkentercount 0
10750 set need_redisplay 0
10751 set nrows_drawn 0
10752 set firsttabstop 0
10754 set nextviewnum 1
10755 set curview 0
10756 set selectedview 0
10757 set selectedhlview [mc "None"]
10758 set highlight_related [mc "None"]
10759 set highlight_files {}
10760 set viewfiles(0) {}
10761 set viewperm(0) 0
10762 set viewargs(0) {}
10763 set viewargscmd(0) {}
10765 set selectedline {}
10766 set numcommits 0
10767 set loginstance 0
10768 set cmdlineok 0
10769 set stopped 0
10770 set stuffsaved 0
10771 set patchnum 0
10772 set lserial 0
10773 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
10774 setcoords
10775 makewindow
10776 # wait for the window to become visible
10777 tkwait visibility .
10779 readrefs
10782 # create a view for the files/dirs specified on the command line
10783 set curview 1
10784 set selectedview 1
10785 set nextviewnum 2
10786 set viewname(1) [mc "Command line"]
10790 set viewperm(1) 0
10791 set vdatemode(1) 0
10792 addviewmenu 1
10793 .bar.view entryconf [mca "Edit view..."] -state normal
10794 .bar.view entryconf [mca "Delete view"] -state normal
10795 }
10797 if {[info exists permviews]} {
10800 incr nextviewnum
10807 }
10808 }
10809 getcommits {}