| blob | b80a805e41d03a9456efd170a5e0d03e9bd9fa48 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2011 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 package require Tk
12 proc hasworktree {} {
15 }
17 proc reponame {} {
18 global gitdir
22 }
24 }
26 proc gitworktree {} {
27 variable _gitworktree
30 }
31 # v1.7.0 introduced --show-toplevel to return the canonical work-tree
33 # try to set work tree from environment, core.worktree or use
34 # cdup to obtain a relative path to the top of the worktree. If
35 # run from the top, the ./ prefix ensures normalize expands pwd.
40 }
41 }
42 }
44 }
46 # A simple scheduler for compute-intensive stuff.
47 # The aim is to make sure that event handlers for GUI actions can
48 # run at least every 50-100 ms. Unfortunately fileevent handlers are
49 # run before X event handlers, so reading from a fast source can
50 # make the GUI completely unresponsive.
51 proc run args {
52 global isonrunq runq currunq
57 after idle dorunq
58 }
61 }
65 }
68 global runq currunq
72 after idle dorunq
73 }
75 }
78 global runq
84 incr i
85 }
86 }
87 }
89 proc dorunq {} {
90 global isonrunq runq currunq
100 unset currunq
105 # script returns 1 if it wants to be readded
106 # file readers return 2 if they could do more straight away
110 }
113 }
116 }
118 after idle dorunq
119 }
120 }
123 global commfd leftover loginstance
129 }
132 global nr_unmerged
134 # find the list of unmerged files
141 exit 1
142 }
148 incr nr_unmerged
151 }
152 }
155 }
157 proc parseviewargs {n arglist} {
158 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
159 global worddiff git_version
163 set glflags {}
164 set diffargs {}
165 set nextisval 0
166 set revargs {}
168 set allknown 1
169 set filtered 0
170 set i -1
172 incr i
175 set nextisval 0
176 continue
177 }
179 "-d" -
180 "--date-order" {
182 # remove from origargs in case we hit an unknown option
184 incr i -1
185 }
186 "-[puabwcrRBMC]" -
187 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
188 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
189 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
190 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
191 "--ignore-space-change" - "-U*" - "--unified=*" {
192 # These request or affect diff output, which we don't want.
193 # Some could be used to set our defaults for diff display.
194 lappend diffargs $arg
195 }
203 # These cause our parsing of git log's output to fail, or else
204 # they're options we want to set ourselves, so ignore them.
205 }
207 # These trigger a word diff in the console interface,
208 # so help the user by enabling our own support
211 }
212 }
216 }
217 }
222 # These are harmless, and some are even useful
223 lappend glflags $arg
224 }
232 # These mean that we get a subset of the commits
234 lappend glflags $arg
235 }
237 # This appears to be the only one that has a value as a
238 # separate word following it
241 lappend glflags $arg
242 }
244 lappend revargs $arg
245 }
248 # git rev-parse doesn't understand --merge
249 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
250 }
253 }
255 # Other flag arguments including -<n>
259 # a flag argument that we don't recognize;
260 # that means we can't optimize
262 }
263 lappend glflags $arg
264 }
265 default {
266 # Non-flag arguments specify commits or ranges of commits
268 lappend revargs --gitk-symmetric-diff-marker
269 }
270 lappend revargs $arg
271 }
272 }
273 }
280 }
283 global vposids vnegids
286 set revs HEAD
287 }
289 # we get stdout followed by stderr in $err
290 # for an unknown rev, git rev-parse echoes it and then errors out
303 }
306 }
307 break
308 }
309 lappend badrev $line
310 }
311 }
314 }
324 lappend ret $id
327 }
328 }
332 lappend ret $id
335 }
336 lappend pos $id
337 }
338 incr sdm -1
339 }
343 }
345 # Start off a git log process and arrange to read its output
347 global startmsecs commitidx viewcomplete curview
348 global tclencoding
349 global viewargs viewargscmd viewfiles vfilelimit
350 global showlocalchanges
351 global viewactive viewinstances vmergeonly
352 global mainheadid viewmainheadid viewmainheadid_orig
353 global vcanopt vflags vrevs vorigargs
354 global show_notes
358 # these are set this way for the error exits
361 varcinit $view
370 }
372 }
379 global nr_unmerged
386 }
388 }
389 }
396 }
400 }
408 }
414 get_viewmainhead $view
415 }
418 }
422 }
428 }
431 global commfd leftover
434 catch {
441 }
442 }
444 nukefile $fd
447 }
449 proc stop_backends {} {
450 global commfd
453 stop_instance $inst
454 }
455 }
458 global viewinstances
461 stop_instance $inst
462 }
464 }
467 global pending_select mainheadid selectheadid
475 }
476 }
479 global canv curview need_redisplay viewactive
481 initlayout
483 reset_pending_select $selid
488 }
489 }
491 proc updatecommits {} {
492 global curview vcanopt vorigargs vfilelimit viewinstances
493 global viewactive viewcomplete tclencoding
494 global startmsecs showneartags showlocalchanges
495 global mainheadid viewmainheadid viewmainheadid_orig pending_select
496 global hasworktree
497 global varcid vposids vnegids vflags vrevs
498 global show_notes
501 rereadrefs
505 dohidelocalchanges
506 }
510 get_viewmainhead $view
511 }
512 }
514 doshowlocalchanges
515 }
521 return
522 }
523 # note: getting the delta when negative refs change is hard,
524 # and could require multiple git log invocations, so in that
525 # case we ask git log for all the commits (not just the delta)
529 # take out positive refs that we asked for before or
530 # that we have already seen
535 lappend newrevs $rev
536 incr npos
537 }
539 lappend $newrevs $rev
540 }
541 }
545 }
549 }
555 return
556 }
559 }
565 }
569 reset_pending_select {}
572 getallcommits
573 }
574 }
576 proc reloadcommits {} {
577 global curview viewcomplete selectedline currentid thickerline
578 global showneartags treediffs commitinterest cached_commitrow
579 global targetid
584 }
587 stop_rev_list $curview
588 }
589 resetvarcs $curview
594 readrefs
595 changedrefs
597 getallcommits
598 }
599 clear_display
603 setcanvscroll
604 getcommits $selid
606 }
608 # This makes a string representation of a positive integer which
609 # sorts as a string in numerical order
617 }
619 }
621 # Procedures used in reordering commits from git log (without
622 # --topo-order) into the order for display.
625 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
626 global vtokmod varcmod vrowmod varcix vlastins
640 }
643 global varcid varccommits parents children vseedcount ordertok
644 global vshortids
650 }
653 }
654 # some commits might have children but haven't been seen yet
657 }
660 }
663 }
665 }
667 # returns a list of the commits with no children
669 global vdownptr vleftptr varcstart
676 }
678 }
681 global varcid varctok parents children vdatemode
682 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
683 global commitdata commitinfo vseedcount varccommits vlastins
690 }
694 }
697 }
703 }
712 }
713 }
718 }
725 }
729 }
736 }
742 }
751 }
754 global varcid varcstart varccommits varctok vtokmod
755 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
763 # "%" sorts before "0"...
773 }
783 }
785 modify_arc $v $oa
786 }
787 }
790 global parents children varctok varcstart varccommits
791 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
800 lappend todo $a
805 }
806 }
807 }
808 incr ntot
815 }
816 }
818 }
825 }
831 }
840 }
841 }
846 }
848 continue
849 }
856 }
857 }
862 modify_arc $v $ka
863 }
865 modify_arc $v $b
866 }
873 }
876 }
879 }
888 }
893 }
900 }
904 }
906 }
907 }
912 }
913 }
915 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
916 }
918 # Fix up the graph after we have found out that in view $v,
919 # $p (a commit that we have already seen) is actually the parent
920 # of the last commit in arc $a.
922 global varcid varcstart varctok vupptr
926 splitvarc $p $v
928 }
929 # seeds always need to be renumbered
933 renumbervarc $pa $v
934 }
935 }
938 global cmitlisted children parents varcid varctok vtokmod
939 global varccommits ordertok commitidx numcommits curview
940 global targetid targetrow vshortids
942 readcommit $id
951 modify_arc $v $a
952 }
958 }
959 fix_reversal $p $a $v
963 setcanvscroll
966 incr targetrow
967 }
968 }
969 }
970 }
973 global varcid varccommits parents children cmitlisted
974 global commitidx varctok vtokmod targetid targetrow curview numcommits
981 return
982 }
989 # note we deliberately don't update varcstart($v) even if $i == 0
991 modify_arc $v $a $i
994 incr targetrow
995 }
996 }
997 setcanvscroll
998 drawvisible
999 }
1002 global varcid varccommits parents children commitidx
1003 global varctok vtokmod cmitlisted currentid selectedline
1004 global targetid curview numcommits
1009 return
1010 }
1016 return
1017 }
1027 }
1028 modify_arc $v $a $i
1030 unset currentid
1032 }
1035 }
1036 setcanvscroll
1037 drawvisible
1038 }
1041 global children nullid nullid2
1046 lappend kids $id
1047 }
1048 }
1050 }
1053 global children nullid nullid2
1058 }
1059 }
1061 }
1064 global children nullid nullid2
1071 }
1072 }
1074 }
1077 global varctok varcid
1081 }
1083 # This assumes that if lim is not given, the caller has checked that
1084 # arc a's token is less than $vtokmod($v)
1086 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1094 }
1095 }
1102 }
1107 }
1109 }
1111 undolayout $r
1112 }
1113 }
1116 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1117 global varcid vrownum varcorder varcix varccommits
1118 global vupptr vdownptr vleftptr varctok
1119 global displayorder parentlist curview cached_commitrow
1126 }
1128 }
1132 # go up the tree until we find something that has a row number,
1133 # or we get to a seed
1135 }
1150 }
1152 }
1156 # go down if possible
1159 # if not, go left, or go up until we can go left
1164 }
1166 }
1168 incr arcn
1173 }
1179 }
1180 }
1182 # Test whether view $v contains commit $id
1184 global varcid
1187 }
1189 # Return the row number for commit $id in the current view
1191 global varcid varccommits varcrow curview cached_commitrow
1192 global varctok vtokmod
1198 }
1201 update_arcrows $v
1202 }
1205 }
1210 }
1214 }
1216 # Returns 1 if a is on an earlier row than b, otherwise 0
1218 global varcid varctok curview
1224 }
1228 }
1230 }
1235 }
1247 }
1248 }
1250 }
1252 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1254 global vrownum curview commitidx displayorder parentlist
1255 global varccommits varcorder parents vrowmod varcrow
1256 global d_valid_start d_valid_end
1259 update_arcrows $curview
1260 }
1276 }
1278 lappend displayorder $id
1280 }
1284 lset displayorder $i $id
1286 incr i
1287 }
1288 }
1289 incr r $al
1290 }
1291 }
1294 global displayorder
1300 }
1302 }
1305 global varctok varccommits varcid parents children
1306 global cmitlisted commitidx vtokmod
1315 # add p as a new commit
1316 incr missing_parents
1324 }
1327 modify_arc $v $b
1328 }
1332 }
1333 }
1337 }
1338 }
1339 }
1341 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1342 # Assumes we already have an arc for $rwid.
1344 global children parents varcid varctok vtokmod varccommits
1347 # make $rwid be $ch's parent in place of $id
1351 }
1353 # add $ch to $rwid's children and sort the list if necessary
1357 }
1358 # fix the graph after joining $id to $rwid
1360 fix_reversal $rwid $a $v
1361 # parentlist is wrong for the last element of arc $a
1362 # even if displayorder is right, hence the 3rd arg here
1364 }
1365 }
1367 # Mechanism for registering a command to be executed when we come
1368 # across a particular commit. To handle the case when only the
1369 # prefix of the commit is known, the commitinterest array is now
1370 # indexed by the first 4 characters of the ID. Each element is a
1371 # list of id, cmd pairs.
1373 global commitinterest
1376 }
1379 global commitinterest
1388 lappend newlist $i $script
1389 }
1390 }
1395 }
1396 }
1398 }
1401 global cmitlisted leftover
1402 global commitidx commitdata vdatemode
1403 global parents children curview hlview
1404 global idpending ordertok
1405 global varccommits varcid varctok vtokmod vfilelimit vshortids
1408 # git log doesn't terminate the last commit with a null...
1411 }
1415 }
1416 global commfd viewcomplete viewactive viewname
1417 global viewinstances
1422 }
1423 # set it blocking so we wait for the process to terminate
1429 }
1432 bad arguments to git log."
1434 append err \
1435 " (Note: arguments to gitk are passed to git log\
1436 to allow selection of commits to be displayed.)"
1437 }
1440 }
1441 error_popup $err
1442 }
1445 # Check if we have seen any ids listed as parents that haven't
1446 # appeared in the list
1447 closevarcs $view
1448 notbusy $view
1449 }
1451 run chewcommits
1452 }
1454 }
1462 break
1463 }
1470 }
1483 }
1485 }
1490 break
1491 }
1492 }
1493 }
1498 }
1500 exit 1
1501 }
1510 # when doing path limiting, so work around that here
1511 # by working out the rewritten parent with git rev-list
1512 # and if we already know about it, using the rewritten
1513 # parent as a substitute parent for $id's children.
1517 }]} {
1519 # use $rwid in place of $id
1520 rewrite_commit $view $id $rwid
1521 continue
1522 }
1523 }
1524 }
1530 }
1535 }
1547 }
1548 }
1550 # new arc
1552 }
1554 modify_arc $view $a
1555 }
1560 }
1571 }
1573 fix_reversal $p $a $view
1574 }
1575 }
1576 incr i
1577 }
1581 }
1583 global numcommits hlview
1587 run chewcommits
1588 }
1590 # we never actually get here...
1591 run vhighlightmore
1592 }
1595 }
1596 }
1598 }
1600 proc chewcommits {} {
1601 global curview hlview viewcomplete
1602 global pending_select
1604 layoutmore
1606 global commitidx varctok
1607 global numcommits startmsecs
1610 update
1611 reset_pending_select {}
1618 }
1619 }
1621 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1622 #puts "overall $ms ms for $numcommits commits"
1623 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1626 }
1627 notbusy layout
1628 }
1630 }
1633 global tclencoding
1635 # Invoke git-log to handle automatic encoding conversion
1637 # Read the results using i18n.logoutputencoding
1641 }
1643 close $fd
1644 # Remove the heading line
1648 }
1653 }
1656 global commitinfo
1667 # should never happen...
1669 }
1681 }
1682 }
1684 # take the first non-blank line of the comment as the headline
1689 }
1694 }
1696 # git log indents the comment by 4 spaces;
1697 # if we got this via git cat-file, add the indentation
1700 append newcomment " "
1701 append newcomment $line
1703 }
1705 }
1709 }
1712 global commitdata commitinfo
1717 readcommit $id
1720 }
1721 }
1723 }
1725 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1726 # and are present in the current view.
1727 # This is fairly slow...
1729 global varcid curview vshortids
1738 lappend ids $id
1740 }
1741 }
1742 }
1743 }
1748 }
1749 }
1751 }
1753 proc readrefs {} {
1754 global tagids idtags headids idheads tagobjid
1755 global otherrefids idotherrefs mainhead mainheadid
1756 global selecthead selectheadid
1757 global hideremotes
1761 }
1773 }
1779 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1780 # which is what we want since the former is the commit ID
1786 }
1792 }
1793 }
1797 catch {
1802 }
1803 }
1806 catch {
1808 }
1809 }
1810 }
1812 # skip over fake commits
1813 proc first_real_row {} {
1814 global nullid nullid2 numcommits
1819 break
1820 }
1821 }
1823 }
1825 # update things for a head moved to a child of its previous location
1827 global headids idheads
1832 }
1834 # update things when a head has been removed
1836 global headids idheads
1844 }
1845 }
1847 }
1850 global use_ttk
1854 }
1856 }
1859 global have_tk85
1861 # In MacOS Tk 8.4 transient appears to work by setting
1862 # overrideredirect, which is utterly useless, since the
1863 # windows get no border, and are not even kept above
1864 # the parent.
1867 wm transient $window $origin
1869 # Windows fails to place transient windows normally, so
1870 # schedule a callback to center them on the parent.
1873 }
1874 }
1877 global NS
1888 tkwait window $top
1889 }
1896 set w .error
1897 ttk_toplevel $w
1898 make_transient $w $owner
1899 show_error $w $w $msg
1900 }
1901 }
1904 global confirm_ok NS
1906 set w .confirm
1907 ttk_toplevel $w
1908 make_transient $w $owner
1920 tkwait window $w
1922 }
1924 proc setoptions {} {
1927 option add *Panedwindow.sashRelief raised startupFile
1929 option add *Menu.font uifont startupFile
1930 }
1933 }
1934 option add *Button.font uifont startupFile
1935 option add *Checkbutton.font uifont startupFile
1936 option add *Radiobutton.font uifont startupFile
1937 option add *Menubutton.font uifont startupFile
1938 option add *Label.font uifont startupFile
1939 option add *Message.font uifont startupFile
1940 option add *Entry.font textfont startupFile
1941 option add *Text.font textfont startupFile
1942 option add *Labelframe.font uifont startupFile
1943 option add *Spinbox.font textfont startupFile
1944 option add *Listbox.font mainfont startupFile
1945 }
1947 # Make a menu and submenus.
1948 # m is the window name for the menu, items is the list of menu items to add.
1949 # Each item is a list {mc label type description options...}
1950 # mc is ignored; it's so we can put mc there to alert xgettext
1951 # label is the string that appears in the menu
1952 # type is cascade, command or radiobutton (should add checkbutton)
1953 # description depends on type; it's the sublist for cascade, the
1954 # command to invoke for command, or {variable value} for radiobutton
1956 menu $m
1958 set Meta1 Cmd
1960 set Meta1 Ctrl
1961 }
1972 }
1973 }
1978 }
1981 }
1985 }
1986 }
1992 }
1993 }
1994 }
1996 # translate string and remove ampersands
1999 }
2003 }
2005 global use_ttk
2011 }
2016 } else {
2018 }
2020 }
2022 proc makewindow {} {
2023 global canv canv2 canv3 linespc charspc ctext cflist cscroll
2024 global tabstop
2025 global findtype findtypemenu findloc findstring fstring geometry
2026 global entries sha1entry sha1string sha1but
2027 global diffcontextstring diffcontext
2028 global ignorespace
2029 global maincursor textcursor curtextcursor
2030 global rowctxmenu fakerowmenu mergemax wrapcomment
2031 global highlight_files gdttype
2032 global searchstring sstring
2033 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
2034 global uifgcolor uifgdisabledcolor
2035 global filesepbgcolor filesepfgcolor
2036 global mergecolors foundbgcolor currentsearchhitbgcolor
2037 global headctxmenu progresscanv progressitem progresscoords statusw
2038 global fprogitem fprogcoord lastprogupdate progupdatepending
2039 global rprogitem rprogcoord rownumsel numcommits
2040 global have_tk85 use_ttk NS
2041 global git_version
2042 global worddiff
2044 # The "mc" arguments here are purely so that xgettext
2045 # sees the following string as needing to be translated
2046 set file {
2047 mc "File" cascade {
2048 {mc "Update" command updatecommits -accelerator F5}
2049 {mc "Reload" command reloadcommits -accelerator Shift-F5}
2050 {mc "Reread references" command rereadrefs}
2051 {mc "List references" command showrefs -accelerator F2}
2052 {xx "" separator}
2053 {mc "Start git gui" command {exec git gui &}}
2054 {xx "" separator}
2055 {mc "Quit" command doquit -accelerator Meta1-Q}
2056 }}
2057 set edit {
2058 mc "Edit" cascade {
2059 {mc "Preferences" command doprefs}
2060 }}
2061 set view {
2062 mc "View" cascade {
2063 {mc "New view..." command {newview 0} -accelerator Shift-F4}
2064 {mc "Edit view..." command editview -state disabled -accelerator F4}
2065 {mc "Delete view" command delview -state disabled}
2066 {xx "" separator}
2067 {mc "All files" radiobutton {selectedview 0} -command {showview 0}}
2068 }}
2069 if {[tk windowingsystem] ne "aqua"} {
2070 set help {
2071 mc "Help" cascade {
2072 {mc "About gitk" command about}
2073 {mc "Key bindings" command keys}
2074 }}
2076 } else {
2077 proc ::tk::mac::ShowPreferences {} {doprefs}
2078 proc ::tk::mac::Quit {} {doquit}
2080 set apple {
2081 xx "Apple" cascade {
2082 {mc "About gitk" command about}
2083 {xx "" separator}
2084 }}
2085 set help {
2086 mc "Help" cascade {
2087 {mc "Key bindings" command keys}
2088 }}
2090 }
2092 . configure -menu .bar
2095 # cover the non-themed toplevel with a themed frame.
2096 place [ttk::frame ._main_background] -x 0 -y 0 -relwidth 1 -relheight 1
2097 }
2099 # the gui has upper and lower half, parts of a paned window.
2102 # possibly use assumed geometry
2103 if {![info exists geometry(pwsash0)]} {
2110 }
2112 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2117 .tf.histframe.pwclist configure -sashpad 0 -handlesize 4
2118 }
2120 # create three canvases
2121 set cscroll .tf.histframe.csb
2122 set canv .tf.histframe.pwclist.canv
2128 set canv2 .tf.histframe.pwclist.canv2
2133 set canv3 .tf.histframe.pwclist.canv3
2139 bind .tf.histframe.pwclist <Map> {
2140 bind %W <Map> {}
2141 .tf.histframe.pwclist sashpos 1 [lindex $::geometry(pwsash1) 0]
2142 .tf.histframe.pwclist sashpos 0 [lindex $::geometry(pwsash0) 0]
2143 }
2144 } else {
2147 }
2149 # a scroll bar to rule them
2153 bind .tf.histframe.pwclist <Configure> {resizeclistpanes %W %w}
2155 pack .tf.histframe.pwclist -fill both -expand 1 -side left
2157 # we have two button bars at bottom of top frame. Bar 1
2161 set sha1entry .tf.bar.sha1
2163 set sha1but .tf.bar.sha1label
2165 -command gotocommit -width 8
2167 pack .tf.bar.sha1label -side left
2169 trace add variable sha1string write sha1change
2172 set bm_left_data {
2173 #define left_width 16
2174 #define left_height 16
2175 static unsigned char left_bits[] = {
2176 0x00, 0x00, 0xc0, 0x01, 0xe0, 0x00, 0x70, 0x00, 0x38, 0x00, 0x1c, 0x00,
2177 0x0e, 0x00, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x0e, 0x00, 0x1c, 0x00,
2178 0x38, 0x00, 0x70, 0x00, 0xe0, 0x00, 0xc0, 0x01};
2179 }
2180 set bm_right_data {
2181 #define right_width 16
2182 #define right_height 16
2183 static unsigned char right_bits[] = {
2184 0x00, 0x00, 0xc0, 0x01, 0x80, 0x03, 0x00, 0x07, 0x00, 0x0e, 0x00, 0x1c,
2185 0x00, 0x38, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x00, 0x38, 0x00, 0x1c,
2186 0x00, 0x0e, 0x00, 0x07, 0x80, 0x03, 0xc0, 0x01};
2187 }
2195 .tf.bar.leftbut configure -image [list bm-left disabled bm-left-gray]
2196 } else {
2197 .tf.bar.leftbut configure -image bm-left
2198 }
2199 pack .tf.bar.leftbut -side left -fill y
2202 .tf.bar.rightbut configure -image [list bm-right disabled bm-right-gray]
2203 } else {
2204 .tf.bar.rightbut configure -image bm-right
2205 }
2206 pack .tf.bar.rightbut -side left -fill y
2209 set rownumsel {}
2211 -relief sunken -anchor e
2214 -relief sunken -anchor e
2215 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2216 -side left
2219 }
2220 global selectedline
2221 trace add variable selectedline write selectedline_change
2223 # Status label and progress bar
2224 set statusw .tf.bar.status
2228 set progresscanv [ttk::progressbar .tf.bar.progress]
2229 } else {
2230 set h [expr {[font metrics uifont -linespace] + 2}]
2231 set progresscanv .tf.bar.progress
2236 }
2238 set progresscoords {0 0}
2239 set fprogcoord 0
2240 set rprogcoord 0
2242 set lastprogupdate [clock clicks -milliseconds]
2243 set progupdatepending 0
2245 # build up the bottom bar of upper window
2250 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2251 -side left -fill y
2252 set gdttype [mc "containing:"]
2253 set gm [makedroplist .tf.lbar.gdttype gdttype \
2254 [mc "containing:"] \
2255 [mc "touching paths:"] \
2256 [mc "adding/removing string:"]]
2257 trace add variable gdttype write gdttype_change
2258 pack .tf.lbar.gdttype -side left -fill y
2260 set findstring {}
2261 set fstring .tf.lbar.findstring
2264 trace add variable findstring write find_change
2265 set findtype [mc "Exact"]
2266 set findtypemenu [makedroplist .tf.lbar.findtype \
2267 findtype [mc "Exact"] [mc "IgnCase"] [mc "Regexp"]]
2268 trace add variable findtype write findcom_change
2269 set findloc [mc "All fields"]
2270 makedroplist .tf.lbar.findloc findloc [mc "All fields"] [mc "Headline"] \
2271 [mc "Comments"] [mc "Author"] [mc "Committer"]
2272 trace add variable findloc write find_change
2273 pack .tf.lbar.findloc -side right
2274 pack .tf.lbar.findtype -side right
2277 # Finish putting the upper half of the viewer together
2278 pack .tf.lbar -in .tf -side bottom -fill x
2279 pack .tf.bar -in .tf -side bottom -fill x
2280 pack .tf.histframe -fill both -side top -expand 1
2281 .ctop add .tf
2285 }
2287 # now build up the bottom
2290 # lower left, a text box over search bar, scroll bar to the right
2291 # if we know window height, then that will set the lower text height, otherwise
2292 # we set lower text height which will drive window height
2293 if {[info exists geometry(main)]} {
2295 } else {
2297 }
2303 pack .bleft.top.search -side left -padx 5
2304 set sstring .bleft.top.sstring
2305 set searchstring ""
2308 trace add variable searchstring write incrsearch
2311 -command changediffdisp -variable diffelide -value {0 0}
2313 -command changediffdisp -variable diffelide -value {0 1}
2315 -command changediffdisp -variable diffelide -value {1 0}
2317 pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left
2318 spinbox .bleft.mid.diffcontext -width 5 \
2319 -from 0 -increment 1 -to 10000000 \
2320 -validate all -validatecommand "diffcontextvalidate %P" \
2321 -textvariable diffcontextstring
2323 trace add variable diffcontextstring write diffcontextchange
2324 lappend entries .bleft.mid.diffcontext
2325 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2327 -command changeignorespace -variable ignorespace
2328 pack .bleft.mid.ignspace -side left -padx 5
2330 set worddiff [mc "Line diff"]
2332 makedroplist .bleft.mid.worddiff worddiff [mc "Line diff"] \
2333 [mc "Markup words"] [mc "Color words"]
2334 trace add variable worddiff write changeworddiff
2335 pack .bleft.mid.worddiff -side left -padx 5
2336 }
2338 set ctext .bleft.bottom.ctext
2340 -state disabled -font textfont \
2341 -yscrollcommand scrolltext -wrap none \
2342 -xscrollcommand ".bleft.bottom.sbhorizontal set"
2345 }
2348 pack .bleft.top -side top -fill x
2349 pack .bleft.mid -side top -fill x
2351 grid .bleft.bottom.sbhorizontal -sticky ew
2352 grid columnconfigure .bleft.bottom 0 -weight 1
2353 grid rowconfigure .bleft.bottom 0 -weight 1
2354 grid rowconfigure .bleft.bottom 1 -weight 0
2355 pack .bleft.bottom -side top -fill both -expand 1
2381 set mergemax 16
2388 .pwbottom add .bleft
2391 }
2393 # lower right
2397 -command reselectline -variable cmitmode -value "patch"
2399 -command reselectline -variable cmitmode -value "tree"
2400 grid .bright.mode.patch .bright.mode.tree -sticky ew
2401 pack .bright.mode -side top -fill x
2402 set cflist .bright.cfiles
2403 set indent [font measure mainfont "nn"]
2407 -font mainfont \
2409 -yscrollcommand ".bright.sb set" \
2410 -cursor [. cget -cursor] \
2411 -spacing1 1 -spacing3 1
2415 pack .bright.sb -side right -fill y
2421 .pwbottom add .bright
2422 .ctop add .pwbottom
2424 # restore window width & height if known
2425 if {[info exists geometry(main)]} {
2428 set w [winfo screenwidth .]
2429 }
2431 set h [winfo screenheight .]
2432 }
2434 }
2435 }
2439 }
2441 if {[tk windowingsystem] eq {aqua}} {
2442 set M1B M1
2443 set ::BM "3"
2444 } else {
2445 set M1B Control
2446 set ::BM "2"
2447 }
2450 bind .ctop <Map> {
2451 bind %W <Map> {}
2452 %W sashpos 0 $::geometry(topheight)
2453 }
2454 bind .pwbottom <Map> {
2455 bind %W <Map> {}
2456 %W sashpos 0 $::geometry(botwidth)
2457 }
2458 }
2460 bind .pwbottom <Configure> {resizecdetpanes %W %w}
2461 pack .ctop -fill both -expand 1
2462 bindall <1> {selcanvline %W %x %y}
2463 #bindall <B1-Motion> {selcanvline %W %x %y}
2464 if {[tk windowingsystem] == "win32"} {
2465 bind . <MouseWheel> { windows_mousewheel_redirector %W %X %Y %D }
2467 } else {
2468 bindall <ButtonRelease-4> "allcanvs yview scroll -5 units"
2469 bindall <ButtonRelease-5> "allcanvs yview scroll 5 units"
2470 if {[tk windowingsystem] eq "aqua"} {
2471 bindall <MouseWheel> {
2472 set delta [expr {- (%D)}]
2474 }
2475 bindall <Shift-MouseWheel> {
2476 set delta [expr {- (%D)}]
2478 }
2479 }
2480 }
2481 bindall <$::BM> "canvscan mark %W %x %y"
2482 bindall <B$::BM-Motion> "canvscan dragto %W %x %y"
2485 bindkey <Home> selfirstline
2486 bindkey <End> sellastline
2487 bind . <Key-Up> "selnextline -1"
2488 bind . <Key-Down> "selnextline 1"
2489 bind . <Shift-Key-Up> "dofind -1 0"
2490 bind . <Shift-Key-Down> "dofind 1 0"
2491 bindkey <Key-Right> "goforw"
2492 bindkey <Key-Left> "goback"
2493 bind . <Key-Prior> "selnextpage -1"
2494 bind . <Key-Next> "selnextpage 1"
2504 bindkey p "selnextline -1"
2505 bindkey n "selnextline 1"
2506 bindkey z "goback"
2507 bindkey x "goforw"
2508 bindkey k "selnextline -1"
2509 bindkey j "selnextline 1"
2510 bindkey h "goback"
2511 bindkey l "goforw"
2512 bindkey b prevfile
2517 bindkey <Key-Return> {dofind 1 1}
2518 bindkey ? {dofind -1 1}
2519 bindkey f nextfile
2520 bind . <F5> updatecommits
2521 bindmodfunctionkey Shift 5 reloadcommits
2522 bind . <F2> showrefs
2523 bindmodfunctionkey Shift 4 {newview 0}
2524 bind . <F4> edit_or_newview
2535 wm protocol . WM_DELETE_WINDOW doquit
2536 bind . <Destroy> {stop_backends}
2537 bind . <Button-1> "click %W"
2544 global ctxbut
2550 set maincursor [. cget -cursor]
2554 set rowctxmenu .rowctxmenu
2556 {mc "Diff this -> selected" command {diffvssel 0}}
2557 {mc "Diff selected -> this" command {diffvssel 1}}
2558 {mc "Make patch" command mkpatch}
2559 {mc "Create tag" command mktag}
2560 {mc "Write commit to file" command writecommit}
2561 {mc "Create new branch" command mkbranch}
2562 {mc "Cherry-pick this commit" command cherrypick}
2563 {mc "Reset HEAD branch to here" command resethead}
2564 {mc "Mark this commit" command markhere}
2565 {mc "Return to mark" command gotomark}
2566 {mc "Find descendant of this and mark" command find_common_desc}
2567 {mc "Compare with marked commit" command compare_commits}
2568 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2569 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2570 }
2573 set fakerowmenu .fakerowmenu
2575 {mc "Diff this -> selected" command {diffvssel 0}}
2576 {mc "Diff selected -> this" command {diffvssel 1}}
2577 {mc "Make patch" command mkpatch}
2578 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2579 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2580 }
2583 set headctxmenu .headctxmenu
2585 {mc "Check out this branch" command cobranch}
2586 {mc "Remove this branch" command rmbranch}
2587 }
2590 global flist_menu
2591 set flist_menu .flistctxmenu
2593 {mc "Highlight this too" command {flist_hl 0}}
2594 {mc "Highlight this only" command {flist_hl 1}}
2595 {mc "External diff" command {external_diff}}
2596 {mc "Blame parent commit" command {external_blame 1}}
2597 }
2600 global diff_menu
2601 set diff_menu .diffctxmenu
2603 {mc "Show origin of this line" command show_line_source}
2604 {mc "Run git gui blame on this line" command {external_blame_diff}}
2605 }
2607 }
2609 # Windows sends all mouse wheel events to the current focused window, not
2610 # the one where the mouse hovers, so bind those events here and redirect
2611 # to the correct window
2612 proc windows_mousewheel_redirector {W X Y D} {
2613 global canv canv2 canv3
2619 } else {
2620 catch {
2622 }
2623 }
2624 }
2625 }
2627 # Update row number label when selectedline changes
2628 proc selectedline_change {n1 n2 op} {
2629 global selectedline rownumsel
2632 set rownumsel {}
2633 } else {
2635 }
2636 }
2638 # mouse-2 makes all windows scan vertically, but only the one
2639 # the cursor is in scans horizontally
2640 proc canvscan {op w x y} {
2641 global canv canv2 canv3
2645 } else {
2647 }
2648 }
2649 }
2651 proc scrollcanv {cscroll f0 f1} {
2653 drawvisible
2654 flushhighlights
2655 }
2657 # when we make a key binding for the toplevel, make sure
2658 # it doesn't get triggered when that key is pressed in the
2659 # find string entry widget.
2660 proc bindkey {ev script} {
2661 global entries
2665 set escript [bind Entry <Key>]
2666 }
2669 }
2670 }
2672 proc bindmodfunctionkey {mod n script} {
2675 }
2677 # set the focus back to the toplevel for any click outside
2678 # the entry widgets
2679 proc click {w} {
2680 global ctext entries
2683 }
2684 focus .
2685 }
2687 # Adjust the progress bar for a change in requested extent or canvas size
2688 proc adjustprogress {} {
2689 global progresscanv progressitem progresscoords
2690 global fprogitem fprogcoord lastprogupdate progupdatepending
2691 global rprogitem rprogcoord use_ttk
2695 return
2696 }
2705 set now [clock clicks -milliseconds]
2707 set progupdatepending 0
2708 update
2710 set progupdatepending 1
2712 }
2713 }
2715 proc doprogupdate {} {
2716 global lastprogupdate progupdatepending
2719 set progupdatepending 0
2720 set lastprogupdate [clock clicks -milliseconds]
2721 update
2722 }
2723 }
2725 proc savestuff {w} {
2726 global canv canv2 canv3 mainfont textfont uifont tabstop
2727 global stuffsaved findmergefiles maxgraphpct
2728 global maxwidth showneartags showlocalchanges
2729 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2730 global cmitmode wrapcomment datetimeformat limitdiffs
2731 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2732 global uifgcolor uifgdisabledcolor
2733 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
2734 global tagbgcolor tagfgcolor tagoutlinecolor
2735 global reflinecolor filesepbgcolor filesepfgcolor
2736 global mergecolors foundbgcolor currentsearchhitbgcolor
2737 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor circlecolors
2738 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
2739 global linkfgcolor circleoutlinecolor
2740 global autoselect autosellen extdifftool perfile_attrs markbgcolor use_ttk
2741 global hideremotes want_ttk maxrefs
2744 if {![winfo viewable .]} return
2745 catch {
2746 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2747 set f [open "~/.gitk-new" w]
2748 if {$::tcl_platform(platform) eq {windows}} {
2749 file attributes "~/.gitk-new" -hidden true
2750 }
2811 } else {
2814 }
2822 }
2823 }
2826 file rename -force "~/.gitk-new" "~/.gitk"
2827 }
2828 set stuffsaved 1
2829 }
2831 proc resizeclistpanes {win w} {
2832 global oldwidth use_ttk
2837 } else {
2840 }
2844 } else {
2849 set sash0 30
2850 }
2853 }
2858 }
2859 }
2860 }
2864 } else {
2867 }
2868 }
2870 }
2872 proc resizecdetpanes {win w} {
2873 global oldwidth use_ttk
2877 } else {
2879 }
2882 } else {
2886 set sash0 45
2887 }
2890 }
2891 }
2894 } else {
2896 }
2897 }
2899 }
2901 proc allcanvs args {
2902 global canv canv2 canv3
2906 }
2908 proc bindall {event action} {
2909 global canv canv2 canv3
2913 }
2915 proc about {} {
2916 global uifont NS
2917 set w .about
2920 return
2921 }
2926 Gitk - a commit viewer for git
2928 Copyright \u00a9 2005-2011 Paul Mackerras
2930 Use and redistribute under the terms of the GNU General Public License"] \
2931 -justify center -aspect 400 -border 2 -bg white -relief groove
2939 }
2941 proc keys {} {
2942 global NS
2943 set w .keys
2946 return
2947 }
2948 if {[tk windowingsystem] eq {aqua}} {
2949 set M1T Cmd
2950 } else {
2951 set M1T Ctrl
2952 }
2957 [mc "Gitk key bindings:"]
2961 [mc "<Home> Move to first commit"]
2962 [mc "<End> Move to last commit"]
2963 [mc "<Up>, p, k Move up one commit"]
2964 [mc "<Down>, n, j Move down one commit"]
2965 [mc "<Left>, z, h Go back in history list"]
2966 [mc "<Right>, x, l Go forward in history list"]
2967 [mc "<PageUp> Move up one page in commit list"]
2968 [mc "<PageDown> Move down one page in commit list"]
2975 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2976 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2977 [mc "<Delete>, b Scroll diff view up one page"]
2978 [mc "<Backspace> Scroll diff view up one page"]
2979 [mc "<Space> Scroll diff view down one page"]
2980 [mc "u Scroll diff view up 18 lines"]
2981 [mc "d Scroll diff view down 18 lines"]
2984 [mc "<Return> Move to next find hit"]
2985 [mc "/ Focus the search box"]
2986 [mc "? Move to previous find hit"]
2987 [mc "f Scroll diff view to next file"]
2994 [mc "<F5> Update"]
2995 " \
2996 -justify left -bg white -border 2 -relief groove
3004 }
3006 # Procedures for manipulating the file list window at the
3007 # bottom right of the overall window.
3009 proc treeview {w l openlevs} {
3010 global treecontents treediropen treeheight treeparent treeindex
3012 set ix 0
3013 set treeindex() 0
3014 set lev 0
3015 set prefix {}
3016 set prefixend -1
3017 set prefendstack {}
3018 set htstack {}
3019 set ht 0
3020 set treecontents() {}
3027 }
3034 incr lev -1
3035 }
3039 set ht 0
3051 set ht 1
3056 set str "\n"
3064 }
3065 incr lev
3066 }
3069 incr ht
3070 set str "\n"
3074 }
3076 }
3077 }
3085 }
3087 }
3089 proc linetoelt {l} {
3090 global treeheight treecontents
3092 set y 2
3093 set prefix {}
3094 while {1} {
3098 }
3099 set n 1
3104 incr y
3105 break
3106 }
3107 }
3109 }
3110 }
3111 }
3113 proc highlight_tree {y prefix} {
3114 global treeheight treecontents cflist
3120 }
3121 incr y
3124 }
3125 }
3127 }
3129 proc treeclosedir {w dir} {
3130 global treediropen treeheight treeparent treeindex
3142 }
3143 }
3145 proc treeopendir {w dir} {
3146 global treediropen treeheight treeparent treecontents treeindex
3153 set lev 0
3154 set str "\n"
3157 incr lev
3158 append str "\t"
3160 }
3175 } else {
3178 }
3179 }
3192 }
3194 }
3195 }
3197 proc treeclick {w x y} {
3198 global treediropen cmitmode ctext cflist cflist_top
3201 if {![info exists cflist_top]} return
3208 return
3209 }
3215 } else {
3217 }
3218 }
3220 proc setfilelist {id} {
3221 global treefilelist cflist jump_to_here
3228 }
3229 }
3230 }
3232 image create bitmap tri-rt -background black -foreground blue -data {
3233 #define tri-rt_width 13
3234 #define tri-rt_height 13
3235 static unsigned char tri-rt_bits[] = {
3236 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3237 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3238 0x00, 0x00};
3239 } -maskdata {
3240 #define tri-rt-mask_width 13
3241 #define tri-rt-mask_height 13
3242 static unsigned char tri-rt-mask_bits[] = {
3243 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3244 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3245 0x08, 0x00};
3246 }
3247 image create bitmap tri-dn -background black -foreground blue -data {
3248 #define tri-dn_width 13
3249 #define tri-dn_height 13
3250 static unsigned char tri-dn_bits[] = {
3251 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3252 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3253 0x00, 0x00};
3254 } -maskdata {
3255 #define tri-dn-mask_width 13
3256 #define tri-dn-mask_height 13
3257 static unsigned char tri-dn-mask_bits[] = {
3258 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3259 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3260 0x00, 0x00};
3261 }
3263 image create bitmap reficon-T -background black -foreground yellow -data {
3264 #define tagicon_width 13
3265 #define tagicon_height 9
3266 static unsigned char tagicon_bits[] = {
3267 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3268 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3269 } -maskdata {
3270 #define tagicon-mask_width 13
3271 #define tagicon-mask_height 9
3272 static unsigned char tagicon-mask_bits[] = {
3273 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3274 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3275 }
3276 set rectdata {
3277 #define headicon_width 13
3278 #define headicon_height 9
3279 static unsigned char headicon_bits[] = {
3280 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3281 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3282 }
3283 set rectmask {
3284 #define headicon-mask_width 13
3285 #define headicon-mask_height 9
3286 static unsigned char headicon-mask_bits[] = {
3287 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3288 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3289 }
3290 image create bitmap reficon-H -background black -foreground green \
3292 image create bitmap reficon-o -background black -foreground "#ddddff" \
3295 proc init_flist {first} {
3296 global cflist cflist_top difffilestart
3302 set cflist_top 1
3304 } else {
3305 catch {unset cflist_top}
3306 }
3308 set difffilestart {}
3309 }
3311 proc highlight_tag {f} {
3312 global highlight_paths
3316 return "bold"
3317 }
3318 }
3319 return {}
3320 }
3322 proc highlight_filelist {} {
3323 global cmitmode cflist
3332 }
3333 }
3334 } else {
3335 highlight_tree 2 {}
3336 }
3338 }
3340 proc unhighlight_filelist {} {
3341 global cflist
3346 }
3348 proc add_flist {fl} {
3349 global cflist
3355 }
3357 }
3359 proc sel_flist {w x y} {
3360 global ctext difffilestart cflist cflist_top cmitmode
3363 if {![info exists cflist_top]} return
3370 } else {
3372 }
3373 suppress_highlighting_file_for_current_scrollpos
3374 }
3376 proc pop_flist_menu {w X Y x y} {
3377 global ctext cflist cmitmode flist_menu flist_menu_file
3378 global treediffs diffids
3380 stopfinding
3386 } else {
3388 }
3390 set xdiffstate "normal"
3392 set xdiffstate "disabled"
3393 }
3394 # Disable "External diff" item in tree mode
3397 }
3399 proc find_ctext_fileinfo {line} {
3400 global ctext_file_names ctext_file_lines
3406 return {}
3407 } else {
3409 }
3410 }
3412 proc pop_diff_menu {w X Y x y} {
3413 global ctext diff_menu flist_menu_file
3414 global diff_menu_txtpos diff_menu_line
3415 global diff_menu_filebase
3419 # don't pop up the menu on hunk-separator or file-separator lines
3421 return
3422 }
3423 stopfinding
3429 }
3431 proc flist_hl {only} {
3432 global flist_menu_file findstring gdttype
3437 } else {
3439 }
3440 set gdttype [mc "touching paths:"]
3441 }
3443 proc gitknewtmpdir {} {
3444 global diffnum gitktmpdir gitdir
3446 if {![info exists gitktmpdir]} {
3450 unset gitktmpdir
3451 return {}
3452 }
3453 set diffnum 0
3454 }
3455 incr diffnum
3459 return {}
3460 }
3462 }
3464 proc save_file_from_commit {filename output what} {
3465 global nullfile
3470 }
3472 return {}
3473 }
3475 }
3477 proc external_diff_get_one_file {diffid filename diffdir} {
3478 global nullid nullid2 nullfile
3479 global worktree
3485 }
3487 }
3491 }
3495 }
3497 proc external_diff {} {
3498 global nullid nullid2
3499 global flist_menu_file
3500 global diffids
3501 global extdifftool
3504 # no reference commit given
3507 # diffing working copy with index
3510 # diffing index with HEAD
3511 set diffidfrom "HEAD"
3512 } else {
3513 # use first parent commit
3514 global parentlist selectedline
3516 }
3517 } else {
3520 }
3522 # make sure that several diffs wont collide
3523 set diffdir [gitknewtmpdir]
3526 # gather files to diff
3535 } else {
3538 }
3539 }
3540 }
3542 proc find_hunk_blamespec {base line} {
3543 global ctext
3545 # Find and parse the hunk header
3551 s_line old_specs osz osz1 new_line nsz]} {
3552 return
3553 }
3555 # base lines for the parents
3559 old_spec old_line osz]} {
3560 return
3561 }
3563 }
3565 # Now scan the lines to determine offset within the hunk
3567 set dline 0
3570 # Determine if the line is removed
3574 # Choose a parent index
3577 } else {
3581 } else {
3582 # blame the current commit
3583 set parent -1
3584 }
3585 }
3586 # then count other lines that belong to it
3589 # Determine if the line is removed
3594 incr dline
3595 }
3596 } else {
3598 incr dline
3599 }
3600 }
3601 }
3602 incr parent
3603 } else {
3604 set parent 0
3605 }
3609 }
3611 proc external_blame_diff {} {
3612 global currentid cmitmode
3613 global diff_menu_txtpos diff_menu_line
3614 global diff_menu_filebase flist_menu_file
3617 set parent_idx 0
3619 } else {
3624 } else {
3625 set parent_idx 0
3626 set line 0
3627 }
3628 }
3631 }
3634 # at stage 0 or 2
3635 proc index_sha1 {fname} {
3643 }
3644 }
3646 return {}
3647 }
3649 # Turn an absolute path into one relative to the current directory
3650 proc make_relative {f} {
3653 }
3655 set here [file split [pwd]]
3656 set ei 0
3657 set hi 0
3658 set res {}
3661 lappend res ".."
3662 } else {
3663 incr ei
3664 }
3665 incr hi
3666 }
3669 }
3671 proc external_blame {parent_idx {line {}}} {
3672 global flist_menu_file cdup
3673 global nullid nullid2
3674 global parentlist selectedline currentid
3678 } else {
3680 }
3683 error_popup [mc "No such commit"]
3684 return
3685 }
3687 set cmdline [list git gui blame]
3690 }
3692 # Unfortunately it seems git gui blame doesn't like
3693 # being given an absolute path...
3698 }
3699 }
3701 proc show_line_source {} {
3702 global cmitmode currentid parents curview blamestuff blameinst
3703 global diff_menu_line diff_menu_filebase flist_menu_file
3704 global nullid nullid2 gitdir cdup
3706 set from_index {}
3710 } else {
3716 return
3717 }
3718 incr pi -1
3721 # must be a merge in progress...
3722 if {[catch {
3723 # get the last line from .git/MERGE_HEAD
3727 } err]} {
3729 return
3730 }
3732 # need to do the blame from the index
3733 if {[catch {
3735 } err]} {
3737 return
3738 }
3739 } else {
3741 }
3742 } else {
3744 }
3746 }
3747 set blameargs {}
3750 }
3753 lappend blameargs --contents -
3754 } else {
3756 }
3758 if {[catch {
3760 } err]} {
3762 return
3763 }
3764 nowbusy blaming [mc "Searching"]
3770 }
3772 proc stopblaming {} {
3773 global blameinst
3775 if {[info exists blameinst]} {
3777 unset blameinst
3778 notbusy blaming
3779 }
3780 }
3782 proc read_line_source {fd inst} {
3783 global blamestuff curview commfd blameinst nullid nullid2
3787 }
3789 return 1
3790 }
3792 unset blameinst
3793 notbusy blaming
3797 return 0
3798 }
3800 set fname {}
3806 # look for "filename" line
3810 break
3811 }
3812 }
3813 }
3815 # all looks good, select it
3817 # blame uses all-zeroes to mean not committed,
3818 # which would mean a change in the index
3820 }
3823 } else {
3824 error_popup [mc "That line comes from commit %s, \
3826 }
3827 } else {
3828 puts "oops couldn't parse git blame output"
3829 }
3830 return 0
3831 }
3834 proc delete_at_eof {f dir} {
3839 }
3841 return 0
3842 }
3843 return 1
3844 }
3846 # Functions for adding and removing shell-type quoting
3848 proc shellquote {str} {
3851 }
3854 }
3857 }
3859 }
3861 proc shellarglist {l} {
3862 set str {}
3865 append str " "
3866 }
3868 }
3870 }
3872 proc shelldequote {str} {
3873 set ret {}
3874 set used -1
3875 while {1} {
3876 incr used
3880 break
3881 }
3887 }
3889 incr used
3893 error "unmatched single-quote"
3894 }
3897 continue
3898 }
3901 error "trailing backslash"
3902 }
3904 continue
3905 }
3906 # here ch == "\""
3907 while {1} {
3909 error "unmatched double-quote"
3910 }
3916 }
3918 incr used
3920 incr used
3921 }
3922 }
3924 }
3926 proc shellsplit {str} {
3927 set l {}
3928 while {1} {
3936 }
3938 }
3940 # Code to implement multiple views
3942 proc newview {ishighlight} {
3943 global nextviewnum newviewname newishighlight
3944 global revtreeargs viewargscmd newviewopts curview
3947 set top .gitkview
3950 return
3951 }
3957 }
3959 set known_view_options {
3960 {perm b . {} {mc "Remember this view"}}
3961 {reflabel l + {} {mc "References (space separated list):"}}
3962 {refs t15 .. {} {mc "Branches & tags:"}}
3963 {allrefs b *. "--all" {mc "All refs"}}
3964 {branches b . "--branches" {mc "All (local) branches"}}
3965 {tags b . "--tags" {mc "All tags"}}
3966 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3967 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3968 {author t15 .. "--author=*" {mc "Author:"}}
3969 {committer t15 . "--committer=*" {mc "Committer:"}}
3970 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3971 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3972 {changes_l l + {} {mc "Changes to Files:"}}
3973 {pickaxe_s r0 . {} {mc "Fixed String"}}
3974 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3975 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3976 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3977 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3978 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3979 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3980 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3981 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3982 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3983 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3984 {lright b . "--left-right" {mc "Mark branch sides"}}
3985 {first b . "--first-parent" {mc "Limit to first parent"}}
3986 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3987 {args t50 *. {} {mc "Additional arguments to git log:"}}
3988 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3989 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3990 }
3993 proc encode_view_opts {n} {
3994 global known_view_options newviewopts
3996 set rargs [list]
4006 }
4012 }
4013 } else {
4019 }
4020 }
4021 }
4024 }
4027 proc decode_view_opts {n view_args} {
4028 global known_view_options newviewopts
4033 # Checkboxes
4034 set val 0
4036 # Radiobuttons
4038 set val 0
4039 } else {
4040 # Text fields
4041 set val {}
4042 }
4044 }
4045 set oargs [list]
4046 set refargs [list]
4049 && ![info exists found(limit)]} {
4051 set found(limit) 1
4052 continue
4053 }
4054 catch { unset val }
4061 # Check buttons
4062 set val 1
4064 # Radio buttons
4067 } else {
4068 # Text input fields
4071 }
4074 break
4075 }
4076 if {[info exists val]} break
4077 }
4078 if {[info exists val]} continue
4081 } else {
4083 }
4084 }
4087 }
4089 proc edit_or_newview {} {
4090 global curview
4093 editview
4094 } else {
4095 newview 0
4096 }
4097 }
4099 proc editview {} {
4100 global curview
4101 global viewname viewperm newviewname newviewopts
4102 global viewargs viewargscmd
4107 return
4108 }
4114 }
4116 proc vieweditor {top n title} {
4117 global newviewname newviewopts viewfiles bgcolor
4118 global known_view_options NS
4124 # View name
4132 # View options
4134 set cexpand 0
4135 set cnt 0
4141 set lxpad 0
4145 incr cnt
4151 incr cnt
4155 } else {
4156 set lxpad 5
4157 }
4191 }
4194 }
4196 }
4197 }
4212 }
4214 proc doviewmenu {m first cmd op argv} {
4219 break
4220 }
4221 }
4222 }
4224 proc allviewmenus {n op args} {
4225 # global viewhlmenu
4229 }
4231 proc newviewok {top n {apply 0}} {
4232 global nextviewnum newviewperm newviewname newishighlight
4233 global viewname viewfiles viewperm selectedview curview
4234 global viewargs viewargscmd newviewopts viewhlmenu
4236 if {[catch {
4238 } err]} {
4240 return
4241 }
4242 set files {}
4247 }
4248 }
4250 # creating a new view
4251 incr nextviewnum
4260 } else {
4262 }
4263 } else {
4264 # editing an existing view
4272 }
4279 run reloadcommits
4280 }
4281 }
4282 }
4285 }
4287 proc delview {} {
4288 global curview viewperm hlview selectedhlview
4292 set selectedhlview [mc "None"]
4293 unset hlview
4294 }
4297 showview 0
4298 }
4300 proc addviewmenu {n} {
4301 global viewname viewhlmenu
4307 }
4309 proc showview {n} {
4310 global curview cached_commitrow ordertok
4311 global displayorder parentlist rowidlist rowisopt rowfinal
4312 global colormap rowtextx nextcolor canvxmax
4313 global numcommits viewcomplete
4314 global selectedline currentid canv canvy0
4315 global treediffs
4316 global pending_select mainheadid
4317 global commitidx
4318 global selectedview
4319 global hlview selectedhlview commitinterest
4322 set selid {}
4333 }
4334 } elseif {[info exists pending_select]} {
4336 unset pending_select
4337 }
4338 unselectline
4339 normalline
4340 catch {unset treediffs}
4341 clear_display
4343 unset hlview
4344 set selectedhlview [mc "None"]
4345 }
4346 catch {unset commitinterest}
4347 catch {unset cached_commitrow}
4348 catch {unset ordertok}
4355 run refill_reflist
4358 return
4359 }
4361 set displayorder {}
4362 set parentlist {}
4363 set rowidlist {}
4364 set rowisopt {}
4365 set rowfinal {}
4368 catch {unset colormap}
4369 catch {unset rowtextx}
4370 set nextcolor 0
4373 set row 0
4374 setcanvscroll
4375 set yf 0
4376 set row {}
4379 # try to get the selected row in the same position on the screen
4383 set ytop 0
4384 }
4386 }
4388 drawvisible
4393 } else {
4394 reset_pending_select {}
4398 } else {
4399 set row [first_real_row]
4402 }
4403 }
4404 }
4407 show_status [mc "Reading commits..."]
4408 }
4410 show_status [mc "No commits selected"]
4411 }
4412 }
4414 # Stuff relating to the highlighting facility
4416 proc ishighlighted {id} {
4417 global vhighlights fhighlights nhighlights rhighlights
4421 }
4424 }
4427 }
4430 }
4431 return 0
4432 }
4434 proc bolden {id font} {
4435 global canv linehtag currentid boldids need_redisplay markedid
4437 # need_redisplay = 1 means the display is stale and about to be redrawn
4444 -outline {{}} -tags secsel \
4447 }
4450 }
4451 }
4453 proc bolden_name {id font} {
4454 global canv2 linentag currentid boldnameids need_redisplay
4462 -outline {{}} -tags secsel \
4465 }
4466 }
4468 proc unbolden {} {
4469 global boldids
4471 set stillbold {}
4475 } else {
4477 }
4478 }
4480 }
4482 proc addvhighlight {n} {
4483 global hlview viewcomplete curview vhl_done commitidx
4485 if {[info exists hlview]} {
4486 delvhighlight
4487 }
4491 }
4494 drawvisible
4495 }
4496 }
4498 proc delvhighlight {} {
4499 global hlview vhighlights
4501 if {![info exists hlview]} return
4502 unset hlview
4503 catch {unset vhighlights}
4504 unbolden
4505 }
4507 proc vhighlightmore {} {
4508 global hlview vhl_done commitidx vhighlights curview
4511 set vr [visiblerows]
4521 }
4523 }
4524 }
4525 }
4527 return 0
4528 }
4530 proc askvhighlight {row id} {
4531 global hlview vhighlights iddrawn
4536 }
4538 } else {
4540 }
4541 }
4543 proc hfiles_change {} {
4544 global highlight_files filehighlight fhighlights fh_serial
4545 global highlight_paths
4547 if {[info exists filehighlight]} {
4548 # delete previous highlights
4550 unset filehighlight
4551 catch {unset fhighlights}
4552 unbolden
4553 unhighlight_filelist
4554 }
4555 set highlight_paths {}
4557 incr fh_serial
4560 }
4561 }
4563 proc gdttype_change {name ix op} {
4564 global gdttype highlight_files findstring findpattern
4566 stopfinding
4570 set highlight_files {}
4571 hfiles_change
4572 }
4573 findcom_change
4574 } else {
4576 set findpattern {}
4577 findcom_change
4578 }
4580 hfiles_change
4581 }
4582 drawvisible
4583 }
4584 # enable/disable findtype/findloc menus too
4585 }
4587 proc find_change {name ix op} {
4588 global gdttype findstring highlight_files
4590 stopfinding
4592 findcom_change
4593 } else {
4596 hfiles_change
4597 }
4598 }
4599 drawvisible
4600 }
4602 proc findcom_change args {
4603 global nhighlights boldnameids
4604 global findpattern findtype findstring gdttype
4606 stopfinding
4607 # delete previous highlights, if any
4610 }
4611 set boldnameids {}
4612 catch {unset nhighlights}
4613 unbolden
4614 unmarkmatches
4616 set findpattern {}
4619 } else {
4620 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4623 }
4624 }
4626 proc makepatterns {l} {
4627 set ret {}
4632 } else {
4635 }
4636 }
4638 }
4640 proc do_file_hl {serial} {
4641 global highlight_files filehighlight highlight_paths gdttype fhl_list
4642 global cdup findtype
4645 # If "exact" match then convert backslashes to forward slashes.
4646 # Most useful to support Windows-flavoured file paths.
4649 }
4652 highlight_filelist
4653 set relative_paths {}
4656 }
4660 } else {
4661 # must be "containing:", i.e. we're searching commit info
4662 return
4663 }
4668 set fhl_list {}
4669 drawvisible
4670 flushhighlights
4671 }
4673 proc flushhighlights {} {
4674 global filehighlight fhl_list
4676 if {[info exists filehighlight]} {
4677 lappend fhl_list {}
4680 }
4681 }
4683 proc askfilehighlight {row id} {
4684 global filehighlight fhighlights fhl_list
4689 }
4691 proc readfhighlight {} {
4692 global filehighlight fhighlights curview iddrawn
4693 global fhl_list find_dirn
4695 if {![info exists filehighlight]} {
4696 return 0
4697 }
4698 set nr 0
4706 }
4712 }
4714 }
4716 # strange...
4717 puts "oops, git diff-tree died"
4719 unset filehighlight
4720 return 0
4721 }
4722 if {[info exists find_dirn]} {
4723 run findmore
4724 }
4725 return 1
4726 }
4728 proc doesmatch {f} {
4729 global findtype findpattern
4735 } else {
4737 }
4738 }
4740 proc askfindhighlight {row id} {
4741 global nhighlights commitinfo iddrawn
4742 global findloc
4743 global markingmatches
4747 }
4749 set isbold 0
4750 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4756 set isbold 2
4757 break
4758 }
4759 set isbold 1
4760 }
4761 }
4767 }
4768 }
4771 }
4772 }
4774 }
4776 proc markrowmatches {row id} {
4777 global canv canv2 linehtag linentag commitinfo findloc
4788 }
4789 }
4795 }
4796 }
4797 }
4799 proc vrel_change {name ix op} {
4800 global highlight_related
4802 rhighlight_none
4804 run drawvisible
4805 }
4806 }
4808 # prepare for testing whether commits are descendents or ancestors of a
4809 proc rhighlight_sel {a} {
4810 global descendent desc_todo ancestor anc_todo
4811 global highlight_related
4813 catch {unset descendent}
4815 catch {unset ancestor}
4818 rhighlight_none
4819 run drawvisible
4820 }
4821 }
4823 proc rhighlight_none {} {
4824 global rhighlights
4826 catch {unset rhighlights}
4827 unbolden
4828 }
4830 proc is_descendent {a} {
4831 global curview children descendent desc_todo
4836 set leftover {}
4837 set done 0
4842 continue
4843 }
4849 set done 1
4850 }
4851 }
4852 }
4855 return
4856 }
4857 }
4860 }
4862 proc is_ancestor {a} {
4863 global curview parents ancestor anc_todo
4868 set leftover {}
4869 set done 0
4874 continue
4875 }
4881 set done 1
4882 }
4883 }
4884 }
4887 return
4888 }
4889 }
4892 }
4894 proc askrelhighlight {row id} {
4895 global descendent highlight_related iddrawn rhighlights
4896 global selectedline ancestor
4899 set isbold 0
4904 }
4906 set isbold 1
4907 }
4912 }
4914 set isbold 1
4915 }
4916 }
4920 }
4921 }
4923 }
4925 # Graph layout functions
4927 proc shortids {ids} {
4928 set res {}
4934 } else {
4936 }
4937 }
4939 }
4941 proc ntimes {n o} {
4942 set ret {}
4947 }
4949 }
4951 }
4953 proc ordertoken {id} {
4954 global ordertok curview varcid varcstart varctok curview parents children
4955 global nullid nullid2
4959 }
4961 set todo {}
4962 while {1} {
4966 } else {
4968 }
4971 break
4972 }
4975 # it's a root
4977 break
4978 }
4981 } else {
4985 }
4987 }
4988 }
4993 }
4996 }
4998 # Work out where id should go in idlist so that order-token
4999 # values increase from left to right
5000 proc idcol {idlist id {i 0}} {
5003 set i 0
5004 }
5008 }
5010 incr i
5011 } else {
5015 }
5016 }
5018 }
5020 proc initlayout {} {
5021 global rowidlist rowisopt rowfinal displayorder parentlist
5022 global numcommits canvxmax canv
5023 global nextcolor
5024 global colormap rowtextx
5026 set numcommits 0
5027 set displayorder {}
5028 set parentlist {}
5029 set nextcolor 0
5030 set rowidlist {}
5031 set rowisopt {}
5032 set rowfinal {}
5034 catch {unset colormap}
5035 catch {unset rowtextx}
5036 setcanvscroll
5037 }
5039 proc setcanvscroll {} {
5040 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5041 global lastscrollset lastscrollrows
5047 set lastscrollset [clock clicks -milliseconds]
5049 }
5051 proc visiblerows {} {
5052 global canv numcommits linespc
5060 set r0 0
5061 }
5066 }
5068 }
5070 proc layoutmore {} {
5071 global commitidx viewcomplete curview
5072 global numcommits pending_select curview
5073 global lastscrollset lastscrollrows
5077 setcanvscroll
5078 }
5079 if {[info exists pending_select] &&
5081 update
5083 }
5084 drawvisible
5085 }
5087 # With path limiting, we mightn't get the actual HEAD commit,
5088 # so ask git rev-list what is the first ancestor of HEAD that
5089 # touches a file in the path limit.
5090 proc get_viewmainhead {view} {
5091 global viewmainheadid vfilelimit viewinstances mainheadid
5093 catch {
5101 }
5102 }
5105 proc getviewhead {fd inst view} {
5106 global viewmainheadid commfd curview viewinstances showlocalchanges
5108 set id {}
5111 return 1
5112 }
5115 }
5122 }
5124 doshowlocalchanges
5125 }
5126 return 0
5127 }
5129 proc doshowlocalchanges {} {
5130 global curview viewmainheadid
5134 dodiffindex
5135 } else {
5137 }
5138 }
5140 proc dohidelocalchanges {} {
5141 global nullid nullid2 lserial curview
5145 }
5148 }
5149 incr lserial
5150 }
5152 # spawn off a process to do git diff-index --cached HEAD
5153 proc dodiffindex {} {
5154 global lserial showlocalchanges vfilelimit curview
5155 global hasworktree
5158 incr lserial
5159 set cmd "|git diff-index --cached HEAD"
5162 }
5167 }
5169 proc readdiffindex {fd serial inst} {
5170 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5171 global vfilelimit
5173 set isdiff 1
5176 return 1
5177 }
5178 set isdiff 0
5179 }
5180 # we only need to see one line and we don't really care what it says...
5184 return 0
5185 }
5187 # now see if there are any local changes not checked in to the index
5188 set cmd "|git diff-files"
5191 }
5198 # add the line for the changes in the index to the graph
5199 set hl [mc "Local changes checked in to index but not committed"]
5204 }
5209 }
5211 }
5212 return 0
5213 }
5215 proc readdifffiles {fd serial inst} {
5216 global viewmainheadid nullid nullid2 curview
5217 global commitinfo commitdata lserial
5219 set isdiff 1
5222 return 1
5223 }
5224 set isdiff 0
5225 }
5226 # we only need to see one line and we don't really care what it says...
5230 return 0
5231 }
5234 # add the line for the local diff to the graph
5235 set hl [mc "Local uncommitted changes, not checked in to index"]
5240 } else {
5242 }
5246 }
5247 return 0
5248 }
5250 proc nextuse {id row} {
5251 global curview children
5256 return -1
5257 }
5260 }
5261 }
5262 }
5265 }
5266 return -1
5267 }
5269 proc prevuse {id row} {
5270 global curview children
5272 set ret -1
5278 }
5279 }
5280 }
5282 }
5284 proc make_idlist {row} {
5285 global displayorder parentlist uparrowlen downarrowlen mingaplen
5286 global commitidx curview children
5290 set r 0
5291 }
5294 set ra 0
5295 }
5299 }
5301 set ids {}
5310 }
5311 }
5312 }
5320 }
5321 }
5322 }
5330 }
5331 }
5332 incr r
5338 }
5339 }
5340 }
5341 set idlist {}
5344 }
5346 }
5348 proc rowsequal {a b} {
5351 }
5354 }
5356 }
5358 proc makeupline {id row rend col} {
5359 global rowidlist uparrowlen downarrowlen mingaplen
5365 }
5368 }
5375 }
5376 }
5377 }
5379 proc layoutrows {row endrow} {
5380 global rowidlist rowisopt rowfinal displayorder
5381 global uparrowlen downarrowlen maxwidth mingaplen
5382 global children parentlist
5383 global commitidx viewcomplete curview
5386 set idlist {}
5392 }
5393 }
5395 }
5400 set final 1
5401 } else {
5409 # if not the first child, we have to insert a line going up
5412 }
5413 }
5414 }
5424 }
5425 }
5426 }
5433 }
5434 }
5444 }
5445 }
5453 }
5454 }
5455 }
5456 }
5457 }
5461 set final 0
5462 }
5466 lappend rowisopt 0
5472 }
5474 } else {
5481 }
5482 }
5484 }
5486 proc changedrow {row} {
5487 global displayorder iddrawn rowisopt need_redisplay
5496 }
5497 }
5498 }
5501 set need_redisplay 1
5502 }
5503 }
5505 proc insert_pad {row col npad} {
5506 global rowidlist
5515 }
5518 }
5520 proc optimize_rows {row col endrow} {
5521 global rowidlist rowisopt displayorder curview children
5524 set row 1
5525 }
5528 set haspad 0
5537 } else {
5538 set pprevidlist {}
5539 }
5540 set x0 -1
5541 set xm -1
5546 set haspad 1
5547 continue
5548 }
5552 set isarrow 0
5553 set z0 {}
5558 }
5559 }
5564 set isarrow 1
5565 }
5566 }
5569 set isarrow 1
5570 }
5571 # Looking at lines from this row to the previous row,
5572 # make them go straight up if they end in an arrow on
5573 # the previous row; otherwise make them go straight up
5574 # or at 45 degrees.
5576 # Line currently goes left too much;
5577 # insert pads in the previous row, then optimize it
5582 }
5590 }
5592 # Line currently goes right too much;
5593 # insert pads in this line
5599 set haspad 1
5600 }
5607 }
5608 }
5609 # avoid lines jigging left then immediately right
5612 incr x0
5615 }
5616 }
5618 # Find the first column that doesn't have a line going right
5624 # check if this is the link to the first child
5627 # it is, work out offset to child
5629 }
5630 }
5632 }
5633 # Insert a pad at that column as long as it has a line and
5634 # isn't the last column
5639 }
5640 }
5641 }
5642 }
5644 proc xc {row col} {
5645 global canvx0 linespc
5647 }
5649 proc yc {row} {
5650 global canvy0 linespc
5652 }
5654 proc linewidth {id} {
5655 global thickerline lthickness
5660 }
5662 }
5664 proc rowranges {id} {
5665 global curview children uparrowlen downarrowlen
5666 global rowidlist
5670 return {}
5671 }
5672 set ret {}
5677 if {![info exists prev]} {
5679 } else {
5681 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5682 }
5683 # see if the line extends the whole way from prevrow to row
5687 # it doesn't, see where it ends
5692 } else {
5695 incr r -1
5696 }
5698 # see where it starts up again
5703 } else {
5706 incr r
5707 }
5709 }
5710 }
5713 }
5716 }
5718 }
5720 proc drawlineseg {id row endrow arrowlow} {
5721 global rowidlist displayorder iddrawn linesegs
5722 global canv colormap linespc curview maxlinelen parentlist
5726 set arrowhigh 1
5727 while {1} {
5730 incr le -1
5731 break
5732 }
5736 set arrowhigh 0
5737 break
5738 }
5743 set arrowhigh 0
5744 }
5745 break
5746 }
5747 incr le
5748 }
5751 }
5753 set lines {}
5754 set i 0
5755 set joinhigh 0
5762 set joinhigh 1
5763 }
5764 break
5765 }
5766 incr i
5767 }
5768 }
5769 set joinlow 0
5774 set joinlow 1
5775 }
5776 }
5789 }
5790 } else {
5792 }
5800 set arrowlow 0
5801 }
5802 }
5810 }
5812 }
5815 # join parent line to first child
5826 } else {
5828 }
5836 }
5838 }
5840 } else {
5844 }
5852 } else {
5856 }
5858 }
5859 } else {
5865 }
5869 } else {
5870 # coalesce two pieces
5875 }
5879 }
5880 }
5884 }
5886 proc drawparentlinks {id row} {
5887 global rowidlist canv colormap curview parentlist
5888 global idpos linespc
5901 # rmx = right-most X coord used
5902 set rmx 0
5907 continue
5908 }
5912 }
5915 # drawlineseg will do this one for us
5916 continue
5917 }
5919 # should handle duplicated parents here...
5922 # if attaching to a vertical segment, draw a smaller
5923 # slant for visual distinctness
5927 } else {
5929 }
5931 # segment slants towards us already
5933 } else {
5938 }
5940 }
5941 } else {
5943 }
5948 }
5952 }
5953 }
5955 proc drawlines {id} {
5956 global canv
5959 }
5961 proc drawcmittext {id row col} {
5962 global linespc canv canv2 canv3 fgcolor curview
5963 global cmitlisted commitinfo rowidlist parentlist
5964 global rowtextx idpos idtags idheads idotherrefs
5965 global linehtag linentag linedtag selectedline
5966 global canvxmax boldids boldnameids fgcolor markedid
5967 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5968 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
5969 global circleoutlinecolor
5971 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5979 } else {
5981 }
5990 # triangle pointing left for left-side commits
5996 } else {
5997 # triangle pointing right for right-side commits
6003 }
6015 }
6016 }
6017 }
6024 }
6027 }
6032 set font mainfont
6033 set nfont mainfont
6037 set font mainfontbold
6040 set nfont mainfontbold
6041 }
6042 }
6052 }
6055 }
6059 setcanvscroll
6060 }
6061 }
6063 proc drawcmitrow {row} {
6064 global displayorder rowidlist nrows_drawn
6065 global iddrawn markingmatches
6066 global commitinfo numcommits
6067 global filehighlight fhighlights findpattern nhighlights
6068 global hlview vhighlights
6069 global highlight_related rhighlights
6076 }
6079 }
6082 }
6085 }
6090 return
6091 }
6094 }
6098 incr nrows_drawn
6099 }
6102 }
6103 }
6105 proc drawcommits {row {endrow {}}} {
6106 global numcommits iddrawn displayorder curview need_redisplay
6107 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6110 set row 0
6111 }
6114 }
6117 }
6121 set rl1 0
6122 }
6125 set ro1 0
6126 }
6130 }
6135 }
6137 }
6138 }
6141 }
6144 clear_display
6145 }
6147 # make the lines join to already-drawn rows either side
6151 }
6156 }
6171 # see if this is the first child of any of its parents
6174 # make this line extend up to the child
6176 }
6177 }
6178 } else {
6180 }
6181 }
6182 }
6183 }
6185 proc undolayout {row} {
6186 global uparrowlen mingaplen downarrowlen
6187 global rowidlist rowisopt rowfinal need_redisplay
6191 set r 0
6192 }
6194 incr r -1
6198 set need_redisplay 1
6199 run drawvisible
6200 }
6201 }
6203 proc drawvisible {} {
6204 global canv linespc curview vrowmod selectedline targetrow targetid
6205 global need_redisplay cscroll numcommits
6215 if {[info exists targetid]} {
6219 # Fix up the scrollregion and change the scrolling position
6220 # now that our target row has moved.
6223 setcanvscroll
6231 set need_redisplay 1
6232 }
6233 } else {
6234 unset targetid
6235 }
6236 }
6242 }
6246 } elseif {[info exists targetid]} {
6248 }
6249 if {[info exists targetrow]} {
6252 }
6254 }
6256 }
6258 proc clear_display {} {
6259 global iddrawn linesegs need_redisplay nrows_drawn
6260 global vhighlights fhighlights nhighlights rhighlights
6261 global linehtag linentag linedtag boldids boldnameids
6263 allcanvs delete all
6264 catch {unset iddrawn}
6265 catch {unset linesegs}
6266 catch {unset linehtag}
6267 catch {unset linentag}
6268 catch {unset linedtag}
6269 set boldids {}
6270 set boldnameids {}
6271 catch {unset vhighlights}
6272 catch {unset fhighlights}
6273 catch {unset nhighlights}
6274 catch {unset rhighlights}
6275 set need_redisplay 0
6276 set nrows_drawn 0
6277 }
6279 proc findcrossings {id} {
6280 global rowidlist parentlist numcommits displayorder
6282 set cross {}
6283 set ccross {}
6287 }
6306 }
6307 }
6308 }
6309 }
6310 }
6312 }
6314 proc assigncolor {id} {
6315 global colormap colors nextcolor
6316 global parents children children curview
6322 } else {
6323 set kids {}
6324 }
6330 return
6331 }
6332 }
6333 set badcolors {}
6334 set origbad {}
6337 # delimiter between corner crossings and other crossings
6340 }
6344 }
6345 }
6348 }
6355 }
6360 }
6361 }
6362 }
6365 }
6366 }
6370 set nextcolor 0
6371 }
6373 }
6375 }
6377 proc bindline {t id} {
6378 global canv
6384 }
6386 proc drawtags {id x xt y1} {
6387 global idtags idheads idotherrefs mainhead
6388 global linespc lthickness
6389 global canv rowtextx curview fgcolor bgcolor ctxbut
6390 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
6391 global tagbgcolor tagfgcolor tagoutlinecolor
6392 global reflinecolor
6394 set marks {}
6395 set ntags 0
6396 set nheads 0
6400 }
6404 }
6407 }
6410 }
6415 set xvals {}
6416 set wvals {}
6417 set i -1
6419 incr i
6422 } else {
6424 }
6428 }
6436 set font mainfont
6437 if {[incr ntags -1] >= 0} {
6438 # draw a tag
6445 } else {
6446 # draw a head or other ref
6447 if {[incr nheads -1] >= 0} {
6450 set font mainfontbold
6451 }
6452 } else {
6453 set col "#ddddff"
6454 }
6465 }
6466 }
6473 }
6474 }
6476 }
6478 proc drawnotesign {xt y} {
6479 global linespc canv fgcolor
6487 }
6489 proc xcoord {i level ln} {
6490 global canvx0 xspc1 xspc2
6497 }
6499 }
6501 proc show_status {msg} {
6502 global canv fgcolor
6504 clear_display
6507 }
6509 # Don't change the text pane cursor if it is currently the hand cursor,
6510 # showing that we are over a sha1 ID link.
6511 proc settextcursor {c} {
6512 global ctext curtextcursor
6516 }
6518 }
6520 proc nowbusy {what {name {}}} {
6521 global isbusy busyname statusw
6523 if {[array names isbusy] eq {}} {
6524 . config -cursor watch
6525 settextcursor watch
6526 }
6531 }
6532 }
6534 proc notbusy {what} {
6535 global isbusy maincursor textcursor busyname statusw
6537 catch {
6542 }
6543 }
6544 if {[array names isbusy] eq {}} {
6547 }
6548 }
6550 proc findmatches {f} {
6551 global findtype findstring
6554 } else {
6559 }
6560 set matches {}
6561 set i 0
6566 }
6567 }
6569 }
6571 proc dofind {{dirn 1} {wrap 1}} {
6572 global findstring findstartline findcurline selectedline numcommits
6573 global gdttype filehighlight fh_serial find_dirn findallowwrap
6575 if {[info exists find_dirn]} {
6577 stopfinding
6578 }
6579 focus .
6583 } else {
6585 }
6587 nowbusy finding [mc "Searching"]
6591 }
6594 run findmore
6595 }
6597 proc stopfinding {} {
6598 global find_dirn findcurline fprogcoord
6600 if {[info exists find_dirn]} {
6601 unset find_dirn
6602 unset findcurline
6603 notbusy finding
6604 set fprogcoord 0
6605 adjustprogress
6606 }
6607 stopblaming
6608 }
6610 proc findmore {} {
6611 global commitdata commitinfo numcommits findpattern findloc
6612 global findstartline findcurline findallowwrap
6613 global find_dirn gdttype fhighlights fprogcoord
6614 global curview varcorder vrownum varccommits vrowmod
6616 if {![info exists find_dirn]} {
6617 return 0
6618 }
6619 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6621 set moretodo 0
6623 incr l
6625 set l 0
6626 }
6629 } else {
6632 }
6633 } else {
6636 }
6637 incr l -1
6640 } else {
6641 set lim -1
6643 }
6644 }
6647 set n 500
6648 set moretodo 1
6649 }
6652 }
6653 set found 0
6654 set domore 1
6668 }
6670 # shouldn't happen unless git log doesn't give all the commits...
6673 continue
6674 }
6677 }
6683 set found 1
6684 break
6685 }
6686 }
6688 }
6689 } else {
6697 }
6702 }
6705 break
6706 }
6709 set domore 0
6711 }
6712 }
6713 }
6714 }
6716 unset findcurline
6717 unset find_dirn
6718 notbusy finding
6719 set fprogcoord 0
6720 adjustprogress
6723 } else {
6724 bell
6725 }
6726 return 0
6727 }
6729 flushhighlights
6730 } else {
6732 }
6736 }
6738 adjustprogress
6740 }
6742 proc findselectline {l} {
6743 global findloc commentend ctext findcurline markingmatches gdttype
6750 # highlight the matches in the comments
6757 }
6758 }
6759 drawvisible
6760 }
6762 # mark the bits of a headline or author that match a find string
6763 proc markmatches {canv l str tag matches font row} {
6764 global selectedline
6782 }
6783 }
6784 }
6786 proc unmarkmatches {} {
6787 global markingmatches
6789 allcanvs delete matches
6790 set markingmatches 0
6791 stopfinding
6792 }
6794 proc selcanvline {w x y} {
6795 global canv canvy0 ctext linespc
6796 global rowtextx
6803 set l 0
6804 }
6809 }
6810 unmarkmatches
6812 }
6814 proc commit_descriptor {p} {
6815 global commitinfo
6818 }
6819 set l "..."
6822 }
6824 }
6826 # append some text to the ctext widget, and make any SHA1 ID
6827 # that we know about be a clickable link.
6828 proc appendwithlinks {text tags} {
6829 global ctext linknum curview
6838 incr e
6842 incr linknum
6843 }
6844 }
6846 proc setlink {id lk} {
6847 global curview ctext pendinglinks
6848 global linkfgcolor
6852 }
6854 set known 0
6859 set known 1
6861 }
6862 } else {
6864 }
6870 } else {
6873 }
6874 }
6876 proc appendshortlink {id {pre {}} {post {}}} {
6877 global ctext linknum
6884 incr linknum
6885 }
6887 proc makelink {id} {
6888 global pendinglinks
6893 }
6895 }
6897 proc linkcursor {w inc} {
6898 global linkentercount curtextcursor
6902 } else {
6905 set linkentercount 0
6906 }
6907 }
6908 }
6910 proc viewnextline {dir} {
6911 global canv linespc
6919 set newtop 0
6922 }
6924 }
6926 # add a list of tag or branch names at position pos
6927 # returns the number of names inserted
6928 proc appendrefs {pos ids var} {
6932 return 0
6933 }
6936 set tags {}
6940 }
6941 }
6943 set sep {}
6945 set nutags 0
6948 # If we are displaying heads, and there are too many,
6949 # see if there are some important heads to display.
6950 # Currently this means "master" and the current head.
6951 set itags {}
6953 set utags {}
6960 } else {
6962 }
6963 }
6965 }
6967 set str [mc "and many more"]
6968 set sep " "
6969 } else {
6970 set str [mc "many"]
6971 }
6975 }
6980 incr linknum
6985 set sep ", "
6986 }
6990 }
6992 # called when we have finished computing the nearby tags
6993 proc dispneartags {delay} {
6994 global selectedline currentid showneartags tagphase
6997 after cancel dispnexttag
6999 after 200 dispnexttag
7000 set tagphase -1
7001 } else {
7002 after idle dispnexttag
7003 set tagphase 0
7004 }
7005 }
7007 proc dispnexttag {} {
7008 global selectedline currentid showneartags tagphase ctext
7012 0 {
7016 }
7017 }
7018 1 {
7022 }
7023 }
7024 2 {
7029 # turn "Branch" into "Branches"
7033 }
7034 }
7035 }
7036 }
7037 if {[incr tagphase] <= 2} {
7038 after idle dispnexttag
7039 }
7040 }
7042 proc make_secsel {id} {
7043 global linehtag linentag linedtag canv canv2 canv3
7058 }
7060 proc make_idmark {id} {
7061 global linehtag canv fgcolor
7068 }
7070 proc selectline {l isnew {desired_loc {}}} {
7071 global canv ctext commitinfo selectedline
7072 global canvy0 linespc parents children curview
7073 global currentid sha1entry
7074 global commentend idtags linknum
7075 global mergemax numcommits pending_select
7076 global cmitmode showneartags allcommits
7077 global targetrow targetid lastscrollrows
7078 global autoselect autosellen jump_to_here
7080 catch {unset pending_select}
7082 normalline
7083 unsel_reflist
7084 stopfinding
7092 setcanvscroll
7093 }
7107 } else {
7111 }
7112 }
7116 } else {
7120 }
7121 }
7122 }
7125 set newtop 0
7126 }
7128 drawvisible
7129 }
7135 }
7141 }
7145 clear_ctext
7146 set linknum 0
7149 }
7159 }
7161 }
7163 set headers {}
7166 set np 0
7169 set tag mmax
7170 } else {
7172 }
7175 incr np
7176 }
7177 } else {
7180 }
7181 }
7185 }
7187 # make anything that looks like a SHA1 ID be a clickable link
7190 if {![info exists allcommits]} {
7191 getallcommits
7192 }
7203 dispneartags 1
7204 }
7209 }
7217 init_flist [mc "Comments"]
7222 } else {
7224 }
7225 }
7227 proc selfirstline {} {
7228 unmarkmatches
7229 selectline 0 1
7230 }
7232 proc sellastline {} {
7233 global numcommits
7234 unmarkmatches
7237 }
7239 proc selnextline {dir} {
7240 global selectedline
7241 focus .
7244 unmarkmatches
7246 }
7248 proc selnextpage {dir} {
7249 global canv linespc selectedline numcommits
7253 set lpp 1
7254 }
7256 drawvisible
7260 set l 0
7263 }
7264 unmarkmatches
7266 }
7268 proc unselectline {} {
7269 global selectedline currentid
7271 set selectedline {}
7272 catch {unset currentid}
7273 allcanvs delete secsel
7274 rhighlight_none
7275 }
7277 proc reselectline {} {
7278 global selectedline
7282 }
7283 }
7285 proc addtohistory {cmd {saveproc {}}} {
7286 global history historyindex curview
7288 unset_posvars
7289 save_position
7293 return
7294 }
7298 } else {
7300 }
7301 incr historyindex
7303 .tf.bar.leftbut conf -state normal
7304 } else {
7305 .tf.bar.leftbut conf -state disabled
7306 }
7307 .tf.bar.rightbut conf -state disabled
7308 }
7310 # save the scrolling position of the diff display pane
7311 proc save_position {} {
7312 global historyindex history
7319 }
7320 }
7322 proc unset_posvars {} {
7323 global last_posvars
7325 if {[info exists last_posvars]} {
7329 }
7330 unset last_posvars
7331 }
7332 }
7334 proc godo {elt} {
7335 global curview last_posvars
7342 }
7343 unset_posvars
7347 }
7350 }
7352 proc goback {} {
7353 global history historyindex
7354 focus .
7357 save_position
7358 incr historyindex -1
7360 .tf.bar.rightbut conf -state normal
7361 }
7363 .tf.bar.leftbut conf -state disabled
7364 }
7365 }
7367 proc goforw {} {
7368 global history historyindex
7369 focus .
7372 save_position
7374 incr historyindex
7376 .tf.bar.leftbut conf -state normal
7377 }
7379 .tf.bar.rightbut conf -state disabled
7380 }
7381 }
7383 proc gettree {id} {
7384 global treefilelist treeidlist diffids diffmergeid treepending
7385 global nullid nullid2
7388 catch {unset diffmergeid}
7390 if {![info exists treepending]} {
7392 set cmd [list | git ls-files]
7394 set cmd [list | git ls-files --stage -t]
7395 } else {
7397 }
7399 return
7400 }
7406 }
7407 } else {
7409 }
7410 }
7412 proc gettreeline {gtf id} {
7413 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7415 set nl 0
7419 } else {
7427 }
7430 }
7433 }
7436 }
7438 unset treepending
7440 if {![info exists diffmergeid]} {
7442 }
7445 } else {
7447 }
7448 return 0
7449 }
7451 proc showfile {f} {
7452 global treefilelist treeidlist diffids nullid nullid2
7453 global ctext_file_names ctext_file_lines
7454 global ctext commentend
7459 return
7460 }
7464 return
7465 }
7466 } else {
7470 return
7471 }
7472 }
7483 settabs 0
7484 }
7486 proc getblobline {bf id} {
7487 global diffids cmitmode ctext
7491 return 0
7492 }
7494 set nl 0
7497 }
7499 global jump_to_here ctext_file_names commentend
7501 # delete last newline
7509 }
7511 return 0
7512 }
7515 }
7517 proc mark_ctext_line {lnum} {
7518 global ctext markbgcolor
7524 }
7526 proc mergediff {id} {
7527 global diffmergeid
7528 global diffids treediffs
7529 global parents curview
7537 }
7539 proc startdiff {ids} {
7540 global treediffs diffids treepending diffmergeid nullid nullid2
7542 settabs 1
7544 catch {unset diffmergeid}
7548 if {![info exists treepending]} {
7550 }
7551 } else {
7553 }
7554 }
7556 # If the filename (name) is under any of the passed filter paths
7557 # then return true to include the file in the listing.
7558 proc path_filter {filter name} {
7559 set worktree [gitworktree]
7564 return 1
7565 }
7566 }
7567 return 0
7568 }
7570 proc addtocflist {ids} {
7571 global treediffs
7575 }
7577 proc diffcmd {ids flags} {
7578 global log_showroot nullid nullid2
7584 # comparing working directory with some specific revision
7588 } else {
7590 }
7591 } else {
7592 # comparing working directory with index
7595 lappend cmd -R
7596 }
7597 }
7601 # comparing index with specific revision
7604 } else {
7606 }
7607 } else {
7608 # comparing index with HEAD
7609 lappend cmd HEAD
7610 }
7611 } else {
7613 lappend flags --root
7614 }
7616 }
7618 }
7620 proc gettreediffs {ids} {
7621 global treediff treepending limitdiffs vfilelimit curview
7626 }
7630 set treediff {}
7633 }
7635 proc gettreediffline {gdtf ids} {
7636 global treediff treediffs treepending diffids diffmergeid
7637 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7639 set nr 0
7640 set sublist {}
7641 set max 1000
7643 # cache_gitattr is slow, and even slower on win32 where we
7644 # have to invoke it for only about 30 paths at a time
7645 set max 500
7646 if {[tk windowingsystem] == "win32"} {
7647 set max 120
7648 }
7649 }
7656 }
7661 }
7662 }
7663 }
7666 }
7669 }
7672 unset treepending
7676 if {![info exists diffmergeid]} {
7678 }
7679 } else {
7681 }
7682 return 0
7683 }
7685 # empty string or positive integer
7686 proc diffcontextvalidate {v} {
7688 }
7690 proc diffcontextchange {n1 n2 op} {
7691 global diffcontextstring diffcontext
7696 reselectline
7697 }
7698 }
7699 }
7701 proc changeignorespace {} {
7702 reselectline
7703 }
7705 proc changeworddiff {name ix op} {
7706 reselectline
7707 }
7709 proc getblobdiffs {ids} {
7710 global blobdifffd diffids env
7711 global diffinhdr treediffs
7712 global diffcontext
7713 global ignorespace
7714 global worddiff
7715 global limitdiffs vfilelimit curview
7716 global diffencoding targetline diffnparents
7717 global git_version currdiffsubmod
7719 set textconv {}
7721 set textconv "--textconv"
7722 }
7723 set submodule {}
7725 set submodule "--submodule"
7726 }
7729 append cmd " -w"
7730 }
7732 append cmd " --word-diff=porcelain"
7733 }
7736 }
7739 return
7740 }
7741 set targetline {}
7742 set diffnparents 0
7743 set diffinhdr 0
7744 set diffencoding [get_path_encoding {}]
7747 set currdiffsubmod ""
7749 }
7751 proc savecmitpos {} {
7752 global ctext cmitmode
7755 return {}
7756 }
7758 }
7760 proc savectextpos {} {
7761 global ctext
7764 }
7766 proc maybe_scroll_ctext {ateof} {
7767 global ctext target_scrollpos
7769 if {![info exists target_scrollpos]} return
7772 / [font metrics textfont -linespace]}]
7774 }
7776 unset target_scrollpos
7777 }
7779 proc setinlist {var i val} {
7784 }
7787 } else {
7789 }
7790 }
7792 proc makediffhdr {fname ids} {
7793 global ctext curdiffstart treediffs diffencoding
7794 global ctext_file_names jump_to_here targetline diffline
7801 }
7806 set targetline {}
7809 }
7810 set diffline 0
7811 }
7813 proc getblobdiffline {bdf ids} {
7814 global diffids blobdifffd ctext curdiffstart
7815 global diffnexthead diffnextnote difffilestart
7816 global ctext_file_names ctext_file_lines
7817 global diffinhdr treediffs mergemax diffnparents
7818 global diffencoding jump_to_here targetline diffline currdiffsubmod
7819 global worddiff
7821 set nr 0
7826 return 0
7827 }
7832 continue
7833 }
7834 # start of a new file
7835 set diffinhdr 1
7838 lappend ctext_file_names ""
7843 # start of a new file in a merge diff
7848 }
7850 } else {
7852 # If the name hasn't changed the length will be odd,
7853 # the middle char will be a space, and the two bits either
7854 # side will be a/name and b/name, or "a/name" and "b/name".
7855 # If the name has changed we'll get "rename from" and
7856 # "rename to" or "copy from" and "copy to" lines following
7857 # this, and we'll use them to get the filenames.
7858 # This complexity is necessary because spaces in the
7859 # filename(s) don't get escaped.
7865 continue
7866 }
7867 # unescape if quoted and chop off the a/ from the front
7870 } else {
7872 }
7873 }
7886 }
7894 }
7896 set diffinhdr 0
7899 # start of a new submodule
7902 } else {
7904 }
7907 }
7909 lappend ctext_file_names ""
7915 } else {
7917 }
7931 }
7936 }
7942 }
7945 # do nothing
7946 continue
7948 set diffinhdr 0
7949 continue
7950 }
7953 } else {
7954 set line [string map {\x1A ^Z} \
7956 # parse the prefix - one ' ', '-' or '+' for each parent
7960 set words_pre_markup ""
7961 set words_post_markup ""
7963 # prefix only has " ", "-" and "+" in it: normal diff line
7967 }
7971 set num "max"
7972 }
7975 } else {
7977 }
7980 }
7981 } else {
7982 set tags {}
7984 # added line
7990 set num "max"
7991 }
7993 }
7994 }
7995 set words_pre_markup "{+"
7996 set words_post_markup "+}"
7997 }
8001 set targetline {}
8002 } else {
8003 incr diffline
8004 }
8005 }
8008 } else {
8010 }
8013 }
8014 }
8017 } else {
8018 # "\ No newline at end of file",
8019 # or something else we don't recognize
8021 }
8022 }
8023 }
8024 if {[info exists seehere]} {
8026 }
8031 return 0
8032 }
8034 }
8036 proc changediffdisp {} {
8037 global ctext diffelide
8041 }
8043 proc highlightfile {cline} {
8044 global cflist cflist_top
8046 if {![info exists cflist_top]} return
8052 }
8054 proc highlightfile_for_scrollpos {topidx} {
8055 global cmitmode difffilestart
8058 if {![info exists difffilestart]} return
8062 highlightfile 0
8063 } else {
8065 }
8066 }
8068 proc prevfile {} {
8069 global difffilestart ctext cmitmode
8072 set prev 0.0
8077 return
8078 }
8080 }
8082 }
8084 proc nextfile {} {
8085 global difffilestart ctext cmitmode
8092 return
8093 }
8094 }
8095 }
8097 proc clear_ctext {{first 1.0}} {
8098 global ctext smarktop smarkbot
8099 global ctext_file_names ctext_file_lines
8100 global pendinglinks
8105 }
8108 }
8111 catch {unset pendinglinks}
8112 }
8113 set ctext_file_names {}
8114 set ctext_file_lines {}
8115 }
8117 proc settabs {{firstab {}}} {
8118 global firsttabstop tabstop ctext have_tk85
8122 }
8123 set w [font measure textfont "0"]
8129 } else {
8131 }
8132 }
8134 proc incrsearch {name ix op} {
8135 global ctext searchstring searchdirn
8138 # no anchor set, use start of selection, or of visible area
8144 } else {
8146 }
8147 }
8155 suppress_highlighting_file_for_current_scrollpos
8157 }
8158 }
8159 rehighlight_search_results
8160 }
8162 proc dosearch {} {
8163 global sstring ctext searchstring searchdirn
8167 set searchdirn -forwards
8173 set start "@0,0"
8174 }
8178 bell
8179 return
8180 }
8182 suppress_highlighting_file_for_current_scrollpos
8187 rehighlight_search_results
8188 }
8189 }
8191 proc dosearchback {} {
8192 global sstring ctext searchstring searchdirn
8196 set searchdirn -backwards
8203 }
8207 bell
8208 return
8209 }
8211 suppress_highlighting_file_for_current_scrollpos
8216 rehighlight_search_results
8217 }
8218 }
8220 proc rehighlight_search_results {} {
8221 global ctext searchstring
8227 searchmarkvisible 1
8228 }
8229 }
8231 proc searchmark {first last} {
8232 global ctext searchstring
8237 while {1} {
8243 } else {
8245 }
8246 }
8247 }
8249 proc searchmarkvisible {doall} {
8250 global ctext smarktop smarkbot
8255 # no overlap with previous
8259 } else {
8263 }
8267 }
8268 }
8269 }
8271 proc suppress_highlighting_file_for_current_scrollpos {} {
8272 global ctext suppress_highlighting_file_for_this_scrollpos
8275 }
8277 proc scrolltext {f0 f1} {
8278 global searchstring cmitmode ctext
8279 global suppress_highlighting_file_for_this_scrollpos
8282 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8285 }
8287 catch {unset suppress_highlighting_file_for_this_scrollpos}
8291 searchmarkvisible 0
8292 }
8293 }
8295 proc setcoords {} {
8296 global linespc charspc canvx0 canvy0
8297 global xspc1 xspc2 lthickness
8299 set linespc [font metrics mainfont -linespace]
8300 set charspc [font measure mainfont "m"]
8306 }
8308 proc redisplay {} {
8309 global canv
8310 global selectedline
8315 clear_display
8316 setcanvscroll
8318 drawvisible
8322 }
8323 }
8325 proc parsefont {f n} {
8326 global fontattr
8331 set s 10
8334 }
8340 "normal" -
8342 "roman" -
8344 }
8345 }
8346 }
8348 proc fontflags {f {isbold 0}} {
8349 global fontattr
8354 }
8356 proc fontname {f} {
8357 global fontattr
8361 lappend n "bold"
8362 }
8364 lappend n "italic"
8365 }
8367 }
8369 proc incrfont {inc} {
8370 global mainfont textfont ctext canv cflist showrefstop
8371 global stopped entries fontattr
8373 unmarkmatches
8377 set s 1
8378 }
8382 set mainfont [fontname mainfont]
8386 set s 1
8387 }
8391 set textfont [fontname textfont]
8392 setcoords
8393 settabs
8394 redisplay
8395 }
8397 proc clearsha1 {} {
8398 global sha1entry sha1string
8401 }
8402 }
8404 proc sha1change {n1 n2 op} {
8405 global sha1string currentid sha1but
8408 set state disabled
8409 } else {
8410 set state normal
8411 }
8415 } else {
8417 }
8418 }
8420 proc gotocommit {} {
8421 global sha1string tagids headids curview varcid
8429 } else {
8436 return
8437 }
8439 }
8440 } else {
8443 return
8444 }
8445 }
8446 }
8449 return
8450 }
8453 } else {
8455 }
8457 }
8459 proc lineenter {x y id} {
8460 global hoverx hovery hoverid hovertimer
8461 global commitinfo canv
8467 if {[info exists hovertimer]} {
8469 }
8470 set hovertimer [after 500 linehover]
8472 }
8474 proc linemotion {x y id} {
8475 global hoverx hovery hoverid hovertimer
8480 if {[info exists hovertimer]} {
8482 }
8483 set hovertimer [after 500 linehover]
8484 }
8485 }
8487 proc lineleave {id} {
8488 global hoverid hovertimer canv
8492 if {[info exists hovertimer]} {
8494 unset hovertimer
8495 }
8496 unset hoverid
8497 }
8498 }
8500 proc linehover {} {
8501 global hoverx hovery hoverid hovertimer
8502 global canv linespc lthickness
8503 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8505 global commitinfo
8519 -width 1 -tags hover]
8524 }
8526 proc clickisonarrow {id y} {
8527 global lthickness
8536 }
8537 }
8538 return {}
8539 }
8541 proc arrowjump {id n y} {
8542 global canv
8544 # 1 <-> 2, 3 <-> 4, etc...
8554 set yfrac 0
8555 }
8557 }
8559 proc lineclick {x y id isnew} {
8560 global ctext commitinfo children canv thickerline curview
8563 unmarkmatches
8564 unselectline
8565 normalline
8567 # draw this line thicker than normal
8575 }
8579 return
8580 }
8584 }
8585 # fill the details pane with info about this line
8587 clear_ctext
8588 settabs 0
8600 set i 0
8602 incr i
8612 }
8613 }
8614 maybe_scroll_ctext 1
8616 init_flist {}
8617 }
8619 proc normalline {} {
8620 global thickerline
8621 if {[info exists thickerline]} {
8623 unset thickerline
8625 }
8626 }
8628 proc selbyid {id {isnew 1}} {
8629 global curview
8632 }
8633 }
8635 proc mstime {} {
8636 global startmstime
8637 if {![info exists startmstime]} {
8638 set startmstime [clock clicks -milliseconds]
8639 }
8641 }
8643 proc rowmenu {x y id} {
8644 global rowctxmenu selectedline rowmenuid curview
8645 global nullid nullid2 fakerowmenu mainhead markedid
8647 stopfinding
8650 set state disabled
8651 } else {
8652 set state normal
8653 }
8655 set mstate normal
8656 } else {
8657 set mstate disabled
8658 }
8663 } else {
8665 }
8669 } else {
8671 }
8678 }
8680 proc markhere {} {
8681 global rowmenuid markedid canv
8685 }
8687 proc gotomark {} {
8688 global markedid
8690 if {[info exists markedid]} {
8692 }
8693 }
8695 proc replace_by_kids {l r} {
8696 global curview children
8702 }
8704 }
8706 proc find_common_desc {} {
8707 global markedid rowmenuid curview children
8709 if {![info exists markedid]} return
8712 #set t1 [clock clicks -milliseconds]
8715 while 1 {
8721 break
8722 }
8725 } else {
8727 }
8728 }
8729 #set t2 [clock clicks -milliseconds]
8731 }
8733 proc compare_commits {} {
8734 global markedid rowmenuid curview children
8736 if {![info exists markedid]} return
8740 }
8742 proc getpatchid {id} {
8743 global patchids
8747 # trim off the initial "|"
8749 if {[catch {
8752 }]} {
8754 }
8755 }
8757 }
8759 proc do_cmp_commits {a b} {
8760 global ctext curview parents children patchids commitinfo
8763 clear_ctext
8764 init_flist {}
8766 set skipa 0
8767 set skipb 0
8770 set skipa 1
8771 } else {
8773 }
8776 set skipb 1
8777 } else {
8779 }
8785 [mc " - stopping\n"]
8786 break
8787 }
8790 [mc " - stopping\n"]
8791 break
8792 }
8797 } else {
8801 }
8802 set skipa 1
8803 set skipb 1
8804 } else {
8811 update
8813 return
8814 }
8815 }
8822 break
8823 }
8825 }
8831 break
8832 }
8834 }
8835 }
8837 }
8839 proc diffcommits {a b} {
8840 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8842 set tmpdir [gitknewtmpdir]
8845 if {[catch {
8848 } err]} {
8850 return
8851 }
8852 if {[catch {
8854 } err]} {
8856 return
8857 }
8860 set diffinhdr 0
8861 set currdiffsubmod ""
8863 }
8865 proc diffvssel {dirn} {
8866 global rowmenuid selectedline
8872 } else {
8875 }
8878 }
8880 proc diffvsmark {dirn} {
8881 global rowmenuid markedid
8883 if {![info exists markedid]} return
8887 } else {
8890 }
8893 }
8895 proc doseldiff {oldid newid} {
8896 global ctext
8897 global commitinfo
8900 clear_ctext
8901 init_flist [mc "Top"]
8916 }
8918 proc mkpatch {} {
8919 global rowmenuid currentid commitinfo patchtop patchnum NS
8921 if {![info exists currentid]} return
8926 set top .patch
8956 incr patchnum
8968 }
8970 proc mkpatchrev {} {
8971 global patchtop
8977 foreach e [list fromsha1 fromhead tosha1 tohead] \
8983 }
8984 }
8986 proc mkpatchgo {} {
8987 global patchtop nullid nullid2
8993 # trim off the initial "|"
8998 }
9000 unset patchtop
9001 }
9003 proc mkpatchcan {} {
9004 global patchtop
9007 unset patchtop
9008 }
9010 proc mktag {} {
9011 global rowmenuid mktagtop commitinfo NS
9013 set top .maketag
9047 }
9049 proc domktag {} {
9050 global mktagtop env tagids idtags
9057 return 0
9058 }
9061 return 0
9062 }
9063 if {[catch {
9066 } else {
9068 }
9069 } err]} {
9071 return 0
9072 }
9078 dispneartags 0
9079 run refill_reflist
9080 return 1
9081 }
9083 proc redrawtags {id} {
9084 global canv linehtag idpos currentid curview cmitlisted markedid
9085 global canvxmax iddrawn circleitem mainheadid circlecolors
9086 global mainheadcirclecolor
9093 } else {
9095 }
9105 setcanvscroll
9106 }
9109 }
9112 }
9113 }
9115 proc mktagcan {} {
9116 global mktagtop
9119 unset mktagtop
9120 }
9122 proc mktaggo {} {
9123 if {![domktag]} return
9124 mktagcan
9125 }
9127 proc writecommit {} {
9128 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9130 set top .writecommit
9163 }
9165 proc wrcomgo {} {
9166 global wrcomtop
9173 }
9175 unset wrcomtop
9176 }
9178 proc wrcomcan {} {
9179 global wrcomtop
9182 unset wrcomtop
9183 }
9185 proc mkbranch {} {
9186 global rowmenuid mkbrtop NS
9188 set top .makebranch
9212 }
9214 proc mkbrgo {top} {
9215 global headids idheads
9219 set cmdargs {}
9220 set old_id {}
9223 return
9224 }
9226 if {![confirm_popup [mc \
9228 return
9229 }
9231 lappend cmdargs -f
9232 }
9235 nowbusy newbranch
9236 update
9237 if {[catch {
9239 } err]} {
9240 notbusy newbranch
9242 } else {
9243 notbusy newbranch
9249 } else {
9254 }
9255 dispneartags 0
9256 run refill_reflist
9257 }
9258 }
9260 proc exec_citool {tool_args {baseid {}}} {
9261 global commitinfo env
9263 set save_env [array get env GIT_AUTHOR_*]
9268 }
9271 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9277 }
9278 }
9282 array unset env GIT_AUTHOR_*
9284 }
9286 proc cherrypick {} {
9287 global rowmenuid curview
9288 global mainhead mainheadid
9289 global gitdir
9291 set oldhead [exec git rev-parse HEAD]
9294 set ok [confirm_popup [mc "Commit %s is already\
9295 included in branch %s -- really re-apply it?" \
9298 }
9299 nowbusy cherrypick [mc "Cherry-picking"]
9300 update
9301 # Unfortunately git-cherry-pick writes stuff to stderr even when
9302 # no error occurs, and exec takes that as an indication of error...
9304 notbusy cherrypick
9305 if {[regexp -line \
9306 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9308 error_popup [mc "Cherry-pick failed because of local changes\
9309 to file '%s'.\nPlease commit, reset or stash\
9311 } elseif {[regexp -line \
9312 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9314 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9315 conflict.\nDo you wish to run git citool to\
9316 resolve it?"]]} {
9317 # Force citool to read MERGE_MSG
9320 }
9321 } else {
9323 }
9324 run updatecommits
9325 return
9326 }
9327 set newhead [exec git rev-parse HEAD]
9329 notbusy cherrypick
9330 error_popup [mc "No changes committed"]
9331 return
9332 }
9335 # XXX this isn't right if we have a path limit...
9340 }
9345 }
9346 notbusy cherrypick
9347 }
9349 proc resethead {} {
9350 global mainhead rowmenuid confirm_ok resettype NS
9352 set confirm_ok 0
9353 set w ".confirmreset"
9361 set resettype mixed
9363 -text [mc "Soft: Leave working tree and index untouched"]
9366 -text [mc "Mixed: Leave working tree untouched, reset index"]
9369 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9380 if {[catch {set fd [open \
9383 } else {
9384 dohidelocalchanges
9386 nowbusy reset [mc "Resetting"]
9388 }
9389 }
9391 proc readresetstat {fd} {
9392 global mainhead mainheadid showlocalchanges rprogcoord
9397 adjustprogress
9398 }
9399 return 1
9400 }
9401 set rprogcoord 0
9402 adjustprogress
9403 notbusy reset
9406 }
9408 set newhead [exec git rev-parse HEAD]
9415 }
9417 doshowlocalchanges
9418 }
9419 return 0
9420 }
9422 # context menu for a head
9423 proc headmenu {x y id head} {
9424 global headmenuid headmenuhead headctxmenu mainhead
9426 stopfinding
9429 set state normal
9431 set state disabled
9432 }
9434 set state disabled
9435 }
9439 }
9441 proc cobranch {} {
9442 global headmenuid headmenuhead headids
9443 global showlocalchanges
9445 # check the tree is clean first??
9446 nowbusy checkout [mc "Checking out"]
9447 update
9448 dohidelocalchanges
9449 if {[catch {
9451 } err]} {
9452 notbusy checkout
9455 dodiffindex
9456 }
9457 } else {
9459 }
9460 }
9462 proc readcheckoutstat {fd newhead newheadid} {
9463 global mainhead mainheadid headids showlocalchanges progresscoords
9464 global viewmainheadid curview
9469 adjustprogress
9470 }
9471 return 1
9472 }
9473 set progresscoords {0 0}
9474 adjustprogress
9475 notbusy checkout
9478 }
9487 dodiffindex
9488 }
9489 }
9491 proc rmbranch {} {
9492 global headmenuid headmenuhead mainhead
9493 global idheads
9497 # this check shouldn't be needed any more...
9499 error_popup [mc "Cannot delete the currently checked-out branch"]
9500 return
9501 }
9504 # the stuff on this branch isn't on any other branch
9505 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9507 }
9508 nowbusy rmbranch
9509 update
9511 notbusy rmbranch
9513 return
9514 }
9518 notbusy rmbranch
9519 dispneartags 0
9520 run refill_reflist
9521 }
9523 # Display a list of tags and heads
9524 proc showrefs {} {
9525 global showrefstop bgcolor fgcolor selectbgcolor NS
9526 global bglist fglist reflistfilter reflist maincursor
9528 set top .showrefs
9532 refill_reflist
9533 return
9534 }
9542 -spacing1 1 -spacing3 1 -state disabled
9553 set reflistfilter "*"
9554 trace add variable reflistfilter write reflistfilter_change
9566 set reflist {}
9567 refill_reflist
9568 }
9570 proc sel_reflist {w x y} {
9571 global showrefstop reflist headids tagids otherrefids
9581 }
9583 }
9585 proc unsel_reflist {} {
9586 global showrefstop
9590 }
9592 proc reflistfilter_change {n1 n2 op} {
9593 global reflistfilter
9595 after cancel refill_reflist
9596 after 200 refill_reflist
9597 }
9599 proc refill_reflist {} {
9600 global reflist reflistfilter showrefstop headids tagids otherrefids
9601 global curview
9604 set refs {}
9605 foreach n [array names headids] {
9609 } else {
9611 }
9612 }
9613 }
9614 foreach n [array names tagids] {
9618 } else {
9620 }
9621 }
9622 }
9623 foreach n [array names otherrefids] {
9627 } else {
9629 }
9630 }
9631 }
9639 set i 0
9640 set j 0
9649 }
9650 } else {
9651 set cmp -1
9652 }
9653 } else {
9654 set cmp 1
9655 }
9657 -1 {
9659 incr i
9660 }
9661 0 {
9662 incr i
9663 incr j
9664 }
9665 1 {
9670 incr j
9671 }
9672 }
9673 }
9675 # delete last newline
9678 }
9680 # Stuff for finding nearby tags
9681 proc getallcommits {} {
9682 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9683 global idheads idtags idotherrefs allparents tagobjid
9684 global gitdir
9686 if {![info exists allcommits]} {
9687 set nextarc 0
9688 set allcommits 0
9689 set seeds {}
9690 set allcwait 0
9691 set cachedarcs 0
9693 if {![catch {
9695 set allcwait 1
9697 }]} return
9698 }
9701 return
9702 }
9703 set cmd [list | git rev-list --parents]
9706 set ids "--all"
9707 } else {
9708 set refs [concat [array names idheads] [array names idtags] \
9709 [array names idotherrefs]]
9710 set ids {}
9711 set tagobjs {}
9712 foreach name [array names tagobjid] {
9714 }
9719 }
9720 }
9724 }
9725 }
9726 }
9730 incr allcommits
9731 nowbusy allcommits
9733 } else {
9734 dispneartags 0
9735 }
9736 }
9738 # Since most commits have 1 parent and 1 child, we group strings of
9739 # such commits into "arcs" joining branch/merge points (BMPs), which
9740 # are commits that either don't have 1 parent or don't have 1 child.
9741 #
9742 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9743 # arcout(id) - outgoing arcs for BMP
9744 # arcids(a) - list of IDs on arc including end but not start
9745 # arcstart(a) - BMP ID at start of arc
9746 # arcend(a) - BMP ID at end of arc
9747 # growing(a) - arc a is still growing
9748 # arctags(a) - IDs out of arcids (excluding end) that have tags
9749 # archeads(a) - IDs out of arcids (excluding end) that have heads
9750 # The start of an arc is at the descendent end, so "incoming" means
9751 # coming from descendents, and "outgoing" means going towards ancestors.
9753 proc getallclines {fd} {
9754 global allparents allchildren idtags idheads nextarc
9755 global arcnos arcids arctags arcout arcend arcstart archeads growing
9756 global seeds allcommits cachedarcs allcupdate
9758 set nid 0
9762 # seen it already
9763 continue
9764 }
9765 set cachedarcs 0
9772 } else {
9778 }
9781 }
9783 # seen parent already
9786 }
9790 }
9793 continue
9794 }
9795 }
9800 }
9802 set ao {}
9805 set a [incr nextarc]
9814 # seen it already, may need to make a new branch
9817 }
9821 }
9823 }
9825 }
9827 global cached_dheads cached_dtags cached_atags
9828 catch {unset cached_dheads}
9829 catch {unset cached_dtags}
9830 catch {unset cached_atags}
9831 }
9834 }
9835 set cacheok 1
9836 if {[catch {
9839 } err]} {
9840 # got an error reading the list of commits
9841 # if we were updating, try rereading the whole thing again
9843 incr allcommits -1
9845 return
9846 }
9847 error_popup "[mc "Error reading commit topology information;\
9848 branch and preceding/following tag information\
9850 set cacheok 0
9851 }
9852 if {[incr allcommits -1] == 0} {
9853 notbusy allcommits
9855 run savecache
9856 }
9857 }
9858 dispneartags 0
9859 return 0
9860 }
9862 proc recalcarc {a} {
9863 global arctags archeads arcids idtags idheads
9865 set at {}
9866 set ah {}
9870 }
9873 }
9874 }
9877 }
9879 proc splitarc {p} {
9880 global arcnos arcids nextarc arctags archeads idtags idheads
9881 global arcstart arcend arcout allparents growing
9886 return
9887 }
9892 return
9893 }
9894 set na [incr nextarc]
9897 } else {
9901 }
9911 }
9916 } else {
9919 }
9920 }
9922 # reconstruct tags and heads lists
9926 } else {
9929 }
9930 }
9932 # Update things for a new commit added that is a child of one
9933 # existing commit. Used when cherry-picking.
9934 proc addnewchild {id p} {
9935 global allparents allchildren idtags nextarc
9936 global arcnos arcids arctags arcout arcend arcstart archeads growing
9937 global seeds allcommits
9945 set a [incr nextarc]
9953 }
9956 }
9958 # This implements a cache for the topology information.
9959 # The cache saves, for each arc, the start and end of the arc,
9960 # the ids on the arc, and the outgoing arcs from the end.
9961 proc readcache {f} {
9962 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9963 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9964 global allcwait
9970 }
9971 if {[catch {
9973 # finish reading the cache and setting up arctags, etc.
9977 foreach id [array names idtags] {
9983 }
9984 }
9985 }
9986 foreach id [array names idheads] {
9992 }
9993 }
9994 }
9998 }
9999 }
10000 set allcwait 0
10001 } else {
10011 }
10015 } else {
10019 }
10020 }
10026 }
10029 }
10032 }
10034 }
10035 } err]} {
10037 return 0
10038 }
10040 getallcommits
10041 }
10043 }
10045 proc getcache {f} {
10046 global nextarc cachedarcs possible_seeds
10048 if {[catch {
10051 # make sure it's an integer
10054 set nextarc 0
10055 set possible_seeds {}
10057 } err]} {
10059 }
10060 return 0
10061 }
10063 proc dropcache {err} {
10064 global allcwait nextarc cachedarcs seeds
10067 foreach v {arcnos arcout arcids arcstart arcend growing \
10068 arctags archeads allparents allchildren} {
10071 }
10072 set allcwait 0
10073 set nextarc 0
10074 set cachedarcs 0
10075 set seeds {}
10076 getallcommits
10077 }
10079 proc writecache {f} {
10080 global cachearc cachedarcs allccache
10081 global arcstart arcend arcnos arcids arcout
10087 }
10088 if {[catch {
10092 } else {
10094 }
10095 }
10096 } err]} {
10100 return 0
10101 }
10106 return 0
10107 }
10108 return 1
10109 }
10111 proc savecache {} {
10112 global nextarc cachedarcs cachearc allccache
10115 set cachearc 0
10117 catch {
10121 }
10122 }
10124 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10125 # or 0 if neither is true.
10126 proc anc_or_desc {a b} {
10127 global arcout arcstart arcend arcnos cached_isanc
10130 # Both are on the same arc(s); either both are the same BMP,
10131 # or if one is not a BMP, the other is also not a BMP or is
10132 # the BMP at end of the arc (and it only has 1 incoming arc).
10133 # Or both can be BMPs with no incoming arcs.
10135 return 0
10136 }
10142 return 1
10143 } else {
10144 return -1
10145 }
10146 }
10152 } else {
10153 set aend {}
10154 }
10156 } else {
10158 }
10163 } else {
10164 set bend {}
10165 }
10167 } else {
10169 }
10171 return 1
10172 }
10174 return -1
10175 }
10178 return 1
10179 }
10180 }
10183 return -1
10184 }
10186 return 0
10187 }
10188 }
10196 continue
10197 }
10203 return 1
10207 return -1
10208 }
10214 }
10215 }
10216 }
10219 return 0
10220 }
10224 # and returns 0 if so and 1 if not.
10225 # If we subsequently discover a tag on such a growing tip, and that
10228 # isn't a good choice to display as a descendent tag of
10232 #
10233 proc is_certain {desc anc} {
10234 global arcnos arcout arcstart arcend growing problems
10236 set certain {}
10238 # tags on the same arc are certain
10240 return 1
10241 }
10246 }
10247 }
10250 } else {
10253 }
10255 return 1
10256 }
10259 set nnh 1
10260 set ngrowanc 0
10264 incr nnh -1
10265 }
10271 incr ngrowanc
10272 }
10273 } else {
10280 incr nnh -1
10281 }
10283 incr ngrowanc -1
10284 }
10294 incr nnh -1
10295 }
10297 incr ngrowanc -1
10298 }
10300 }
10301 }
10302 }
10303 }
10304 }
10305 }
10309 } else {
10312 incr nnh
10313 }
10314 }
10315 }
10316 }
10317 foreach x [array names growanc] {
10319 return 0
10320 }
10321 return 0
10322 }
10323 return 1
10324 }
10326 proc validate_arctags {a} {
10327 global arctags idtags
10329 set i -1
10332 incr i
10335 incr i -1
10336 }
10337 }
10339 }
10341 proc validate_archeads {a} {
10342 global archeads idheads
10344 set i -1
10347 incr i
10350 incr i -1
10351 }
10352 }
10354 }
10356 # Return the list of IDs that have tags that are descendents of id,
10357 # ignoring IDs that are descendents of IDs already reported.
10358 proc desctags {id} {
10359 global arcnos arcstart arcids arctags idtags allparents
10360 global growing cached_dtags
10363 return {}
10364 }
10365 set t1 [clock clicks -milliseconds]
10368 # part-way along an arc; check that arc first
10373 set tid {}
10378 }
10381 }
10382 }
10386 }
10387 }
10390 }
10395 set nc 1
10401 incr nc -1
10402 }
10403 # ignore tags on starting node
10407 set ta 1
10410 set ta 1
10411 }
10412 }
10419 }
10420 }
10429 }
10432 }
10434 incr nc -1
10435 }
10437 }
10438 }
10439 }
10444 incr nc
10445 }
10446 }
10447 }
10448 }
10449 set tags {}
10450 foreach id [array names tagloc] {
10455 }
10456 }
10457 }
10458 }
10459 set t2 [clock clicks -milliseconds]
10462 # remove tags that are descendents of other tags
10470 incr j -1
10471 incr i -1
10474 incr i -1
10475 break
10476 }
10477 }
10478 }
10480 if {[array names growing] ne {}} {
10481 # graph isn't finished, need to check if any tag could get
10482 # eclipsed by another tag coming later. Simply ignore any
10483 # tags that could later get eclipsed.
10484 set ctags {}
10488 }
10489 }
10492 } else {
10494 }
10495 } else {
10497 }
10498 set t3 [clock clicks -milliseconds]
10502 }
10504 }
10506 proc anctags {id} {
10507 global arcnos arcids arcout arcend arctags idtags allparents
10508 global growing cached_atags
10511 return {}
10512 }
10513 set t1 [clock clicks -milliseconds]
10516 # part-way along an arc; check that arc first
10525 }
10526 }
10527 }
10529 return {}
10530 }
10534 }
10535 }
10538 }
10543 set taglist {}
10544 set nc 1
10550 incr nc -1
10551 }
10552 # ignore tags on starting node
10556 set td 1
10559 set td 1
10560 }
10561 }
10567 }
10568 }
10580 }
10581 }
10584 }
10586 incr nc -1
10587 }
10589 }
10590 }
10591 }
10596 incr nc
10597 }
10598 }
10599 }
10600 }
10601 set t2 [clock clicks -milliseconds]
10603 set tags {}
10604 foreach id [array names tagloc] {
10609 }
10610 }
10611 }
10612 }
10614 # remove tags that are ancestors of other tags
10622 incr j -1
10623 incr i -1
10626 incr i -1
10627 break
10628 }
10629 }
10630 }
10632 if {[array names growing] ne {}} {
10633 # graph isn't finished, need to check if any tag could get
10634 # eclipsed by another tag coming later. Simply ignore any
10635 # tags that could later get eclipsed.
10636 set ctags {}
10640 }
10641 }
10644 } else {
10646 }
10647 } else {
10649 }
10650 set t3 [clock clicks -milliseconds]
10654 }
10656 }
10658 # Return the list of IDs that have heads that are descendents of id,
10659 # including id itself if it has a head.
10660 proc descheads {id} {
10661 global arcnos arcstart arcids archeads idheads cached_dheads
10662 global allparents arcout
10665 return {}
10666 }
10667 set aret {}
10669 # part-way along an arc; check it first
10678 }
10679 }
10681 }
10685 set ret {}
10690 } else {
10693 }
10699 }
10700 }
10705 }
10706 }
10707 }
10708 }
10712 }
10714 proc addedtag {id} {
10715 global arcnos arcout cached_dtags cached_atags
10720 }
10721 catch {unset cached_dtags}
10722 catch {unset cached_atags}
10723 }
10725 proc addedhead {hid head} {
10726 global arcnos arcout cached_dheads
10731 }
10732 catch {unset cached_dheads}
10733 }
10735 proc removedhead {hid head} {
10736 global cached_dheads
10738 catch {unset cached_dheads}
10739 }
10741 proc movedhead {hid head} {
10742 global arcnos arcout cached_dheads
10747 }
10748 catch {unset cached_dheads}
10749 }
10751 proc changedrefs {} {
10752 global cached_dheads cached_dtags cached_atags cached_tagcontent
10753 global arctags archeads arcnos arcout idheads idtags
10755 foreach id [concat [array names idheads] [array names idtags]] {
10761 }
10762 }
10763 }
10764 catch {unset cached_tagcontent}
10765 catch {unset cached_dtags}
10766 catch {unset cached_atags}
10767 catch {unset cached_dheads}
10768 }
10770 proc rereadrefs {} {
10771 global idtags idheads idotherrefs mainheadid
10773 set refids [concat [array names idtags] \
10774 [array names idheads] [array names idotherrefs]]
10778 }
10779 }
10781 readrefs
10782 changedrefs
10784 [array names idheads] [array names idotherrefs]]]
10789 }
10790 }
10794 }
10795 run refill_reflist
10796 }
10798 proc listrefs {id} {
10799 global idtags idheads idotherrefs
10801 set x {}
10804 }
10805 set y {}
10808 }
10809 set z {}
10812 }
10814 }
10816 proc showtag {tag isnew} {
10817 global ctext cached_tagcontent tagids linknum tagobjid
10821 }
10823 clear_ctext
10824 settabs 0
10825 set linknum 0
10827 catch {
10829 }
10830 }
10833 } else {
10835 }
10837 maybe_scroll_ctext 1
10839 init_flist {}
10840 }
10842 proc doquit {} {
10843 global stopped
10844 global gitktmpdir
10846 set stopped 100
10847 savestuff .
10848 destroy .
10850 if {[info exists gitktmpdir]} {
10852 }
10853 }
10855 proc mkfontdisp {font top which} {
10864 }
10866 proc choosefont {font which} {
10867 global fontparam fontlist fonttop fontattr
10868 global prefstop NS
10876 set top .gitkfont
10879 font create sample
10886 set fontlist [lsort [font families]]
10897 -textvariable fontparam(size) \
10898 -validatecommand {string is integer -strict %s}
10900 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10901 -variable fontparam(weight) -onvalue bold -offvalue normal
10903 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10904 -variable fontparam(slant) -onvalue italic -offvalue roman
10908 -background white
10910 -fill black -tags text
10922 trace add variable fontparam write chg_fontparam
10923 } else {
10926 }
10931 }
10932 }
10934 proc centertext {w} {
10936 }
10938 proc fontok {} {
10939 global fontparam fontpref prefstop
10945 }
10948 }
10952 fontcan
10953 }
10955 proc fontcan {} {
10956 global fonttop fontparam
10958 if {[info exists fonttop]} {
10960 catch {font delete sample}
10961 unset fonttop
10962 unset fontparam
10963 }
10964 }
10966 if {[package vsatisfies [package provide Tk] 8.6]} {
10967 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10968 # function to make use of it.
10969 proc choosefont {font which} {
10972 tk fontchooser show
10973 }
10974 proc on_choosefont {font which newfont} {
10975 global fontparam
10984 fontok
10985 }
10986 }
10988 proc selfontfam {} {
10989 global fonttop fontparam
10994 }
10995 }
10997 proc chg_fontparam {v sub op} {
10998 global fontparam
11001 }
11003 # Create a property sheet tab page
11004 proc create_prefs_page {w} {
11005 global NS
11009 } else {
11011 }
11012 }
11014 proc prefspage_general {notebook} {
11015 global NS maxwidth maxgraphpct showneartags showlocalchanges
11016 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11017 global hideremotes want_ttk have_ttk maxrefs
11031 -variable showlocalchanges
11034 -variable autoselect
11038 -variable hideremotes
11047 -variable showneartags
11053 -variable limitdiffs
11056 -variable perfile_attrs
11070 -text [mc "Use themed widgets"]
11073 } else {
11075 }
11078 }
11080 proc prefspage_colors {notebook} {
11081 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11112 [mc "diff hunk header"] \
11118 [mc "marked line background"] \
11126 }
11128 proc prefspage_fonts {notebook} {
11129 global NS
11137 }
11139 proc doprefs {} {
11140 global maxwidth maxgraphpct use_ttk NS
11141 global oldprefs prefstop showneartags showlocalchanges
11142 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11143 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11144 global hideremotes want_ttk have_ttk
11146 set top .gitkprefs
11150 return
11151 }
11152 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11153 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11155 }
11162 } else {
11164 }
11169 set col 0
11173 } else {
11179 }
11180 }
11186 }
11203 }
11205 proc choose_extdiff {} {
11206 global extdifftool
11208 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11211 }
11212 }
11214 proc choosecolor {v vi w x cmd} {
11223 }
11225 proc setselbg {c} {
11226 global bglist cflist
11229 }
11233 }
11235 # This sets the background color and the color scheme for the whole UI.
11236 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11237 # if we don't specify one ourselves, which makes the checkbuttons and
11238 # radiobuttons look bad. This chooses white for selectColor if the
11239 # background color is light, or black if it is dark.
11240 proc setui {c} {
11241 if {[tk windowingsystem] eq "win32"} { return }
11243 set selc black
11245 set selc white
11246 }
11248 }
11250 proc setbg {c} {
11251 global bglist
11255 }
11256 }
11258 proc setfg {c} {
11259 global fglist canv
11263 }
11267 }
11269 proc prefscan {} {
11270 global oldprefs prefstop
11272 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11273 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11276 }
11278 unset prefstop
11279 fontcan
11280 }
11282 proc prefsok {} {
11283 global maxwidth maxgraphpct
11284 global oldprefs prefstop showneartags showlocalchanges
11285 global fontpref mainfont textfont uifont
11286 global limitdiffs treediffs perfile_attrs
11287 global hideremotes
11290 unset prefstop
11291 fontcan
11292 set fontchanged 0
11296 eval font configure mainfont [fontflags mainfont]
11297 eval font configure mainfontbold [fontflags mainfont 1]
11298 setcoords
11299 set fontchanged 1
11300 }
11304 eval font configure textfont [fontflags textfont]
11305 eval font configure textfontbold [fontflags textfont 1]
11306 }
11310 eval font configure uifont [fontflags uifont]
11311 }
11312 settabs
11315 doshowlocalchanges
11316 } else {
11317 dohidelocalchanges
11318 }
11319 }
11322 # treediffs elements are limited by path;
11323 # won't have encodings cached if perfile_attrs was just turned on
11324 catch {unset treediffs}
11325 }
11328 redisplay
11331 reselectline
11332 }
11334 rereadrefs
11335 }
11336 }
11338 proc formatdate {d} {
11339 global datetimeformat
11342 }
11344 }
11346 # This list of encoding names and aliases is distilled from
11347 # http://www.iana.org/assignments/character-sets.
11348 # Not all of them are supported by Tcl.
11349 set encoding_aliases {
11350 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11351 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11352 { ISO-10646-UTF-1 csISO10646UTF1 }
11353 { ISO_646.basic:1983 ref csISO646basic1983 }
11354 { INVARIANT csINVARIANT }
11355 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11356 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11357 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11358 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11359 { NATS-DANO iso-ir-9-1 csNATSDANO }
11360 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11361 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11362 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11363 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11364 { ISO-2022-KR csISO2022KR }
11365 { EUC-KR csEUCKR }
11366 { ISO-2022-JP csISO2022JP }
11367 { ISO-2022-JP-2 csISO2022JP2 }
11368 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11369 csISO13JISC6220jp }
11370 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11371 { IT iso-ir-15 ISO646-IT csISO15Italian }
11372 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11373 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11374 { greek7-old iso-ir-18 csISO18Greek7Old }
11375 { latin-greek iso-ir-19 csISO19LatinGreek }
11376 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11377 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11378 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11379 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11380 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11381 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11382 { INIS iso-ir-49 csISO49INIS }
11383 { INIS-8 iso-ir-50 csISO50INIS8 }
11384 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11385 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11386 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11387 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11388 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11389 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11390 csISO60Norwegian1 }
11391 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11392 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11393 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11394 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11395 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11396 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11397 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11398 { greek7 iso-ir-88 csISO88Greek7 }
11399 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11400 { iso-ir-90 csISO90 }
11401 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11402 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11403 csISO92JISC62991984b }
11404 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11405 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11406 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11407 csISO95JIS62291984handadd }
11408 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11409 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11410 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11411 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11412 CP819 csISOLatin1 }
11413 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11414 { T.61-7bit iso-ir-102 csISO102T617bit }
11415 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11416 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11417 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11418 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11419 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11420 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11421 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11422 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11423 arabic csISOLatinArabic }
11424 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11425 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11426 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11427 greek greek8 csISOLatinGreek }
11428 { T.101-G2 iso-ir-128 csISO128T101G2 }
11429 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11430 csISOLatinHebrew }
11431 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11432 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11433 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11434 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11435 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11436 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11437 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11438 csISOLatinCyrillic }
11439 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11440 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11441 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11442 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11443 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11444 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11445 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11446 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11447 { ISO_10367-box iso-ir-155 csISO10367Box }
11448 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11449 { latin-lap lap iso-ir-158 csISO158Lap }
11450 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11451 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11452 { us-dk csUSDK }
11453 { dk-us csDKUS }
11454 { JIS_X0201 X0201 csHalfWidthKatakana }
11455 { KSC5636 ISO646-KR csKSC5636 }
11456 { ISO-10646-UCS-2 csUnicode }
11457 { ISO-10646-UCS-4 csUCS4 }
11458 { DEC-MCS dec csDECMCS }
11459 { hp-roman8 roman8 r8 csHPRoman8 }
11460 { macintosh mac csMacintosh }
11461 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11462 csIBM037 }
11463 { IBM038 EBCDIC-INT cp038 csIBM038 }
11464 { IBM273 CP273 csIBM273 }
11465 { IBM274 EBCDIC-BE CP274 csIBM274 }
11466 { IBM275 EBCDIC-BR cp275 csIBM275 }
11467 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11468 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11469 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11470 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11471 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11472 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11473 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11474 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11475 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11476 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11477 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11478 { IBM437 cp437 437 csPC8CodePage437 }
11479 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11480 { IBM775 cp775 csPC775Baltic }
11481 { IBM850 cp850 850 csPC850Multilingual }
11482 { IBM851 cp851 851 csIBM851 }
11483 { IBM852 cp852 852 csPCp852 }
11484 { IBM855 cp855 855 csIBM855 }
11485 { IBM857 cp857 857 csIBM857 }
11486 { IBM860 cp860 860 csIBM860 }
11487 { IBM861 cp861 861 cp-is csIBM861 }
11488 { IBM862 cp862 862 csPC862LatinHebrew }
11489 { IBM863 cp863 863 csIBM863 }
11490 { IBM864 cp864 csIBM864 }
11491 { IBM865 cp865 865 csIBM865 }
11492 { IBM866 cp866 866 csIBM866 }
11493 { IBM868 CP868 cp-ar csIBM868 }
11494 { IBM869 cp869 869 cp-gr csIBM869 }
11495 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11496 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11497 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11498 { IBM891 cp891 csIBM891 }
11499 { IBM903 cp903 csIBM903 }
11500 { IBM904 cp904 904 csIBBM904 }
11501 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11502 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11503 { IBM1026 CP1026 csIBM1026 }
11504 { EBCDIC-AT-DE csIBMEBCDICATDE }
11505 { EBCDIC-AT-DE-A csEBCDICATDEA }
11506 { EBCDIC-CA-FR csEBCDICCAFR }
11507 { EBCDIC-DK-NO csEBCDICDKNO }
11508 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11509 { EBCDIC-FI-SE csEBCDICFISE }
11510 { EBCDIC-FI-SE-A csEBCDICFISEA }
11511 { EBCDIC-FR csEBCDICFR }
11512 { EBCDIC-IT csEBCDICIT }
11513 { EBCDIC-PT csEBCDICPT }
11514 { EBCDIC-ES csEBCDICES }
11515 { EBCDIC-ES-A csEBCDICESA }
11516 { EBCDIC-ES-S csEBCDICESS }
11517 { EBCDIC-UK csEBCDICUK }
11518 { EBCDIC-US csEBCDICUS }
11519 { UNKNOWN-8BIT csUnknown8BiT }
11520 { MNEMONIC csMnemonic }
11521 { MNEM csMnem }
11522 { VISCII csVISCII }
11523 { VIQR csVIQR }
11524 { KOI8-R csKOI8R }
11525 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11526 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11527 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11528 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11529 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11530 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11531 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11532 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11533 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11534 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11535 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11536 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11537 { IBM1047 IBM-1047 }
11538 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11539 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11540 { UNICODE-1-1 csUnicode11 }
11541 { CESU-8 csCESU-8 }
11542 { BOCU-1 csBOCU-1 }
11543 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11544 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11545 l8 }
11546 { ISO-8859-15 ISO_8859-15 Latin-9 }
11547 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11548 { GBK CP936 MS936 windows-936 }
11549 { JIS_Encoding csJISEncoding }
11550 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11551 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11552 EUC-JP }
11553 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11554 { ISO-10646-UCS-Basic csUnicodeASCII }
11555 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11556 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11557 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11558 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11559 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11560 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11561 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11562 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11563 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11564 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11565 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11566 { Ventura-US csVenturaUS }
11567 { Ventura-International csVenturaInternational }
11568 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11569 { PC8-Turkish csPC8Turkish }
11570 { IBM-Symbols csIBMSymbols }
11571 { IBM-Thai csIBMThai }
11572 { HP-Legal csHPLegal }
11573 { HP-Pi-font csHPPiFont }
11574 { HP-Math8 csHPMath8 }
11575 { Adobe-Symbol-Encoding csHPPSMath }
11576 { HP-DeskTop csHPDesktop }
11577 { Ventura-Math csVenturaMath }
11578 { Microsoft-Publishing csMicrosoftPublishing }
11579 { Windows-31J csWindows31J }
11580 { GB2312 csGB2312 }
11581 { Big5 csBig5 }
11582 }
11584 proc tcl_encoding {enc} {
11585 global encoding_aliases tcl_encoding_cache
11588 }
11589 set names [encoding names]
11594 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11597 }
11598 }
11603 # look through the aliases for one that tcl knows about
11609 }
11610 }
11612 }
11613 break
11614 }
11615 }
11616 set tclenc {}
11619 }
11622 }
11624 proc gitattr {path attr default} {
11625 global path_attr_cache
11628 } else {
11629 set r "unspecified"
11632 }
11634 }
11637 }
11639 }
11641 proc cache_gitattr {attr pathlist} {
11642 global path_attr_cache
11643 set newlist {}
11647 }
11648 }
11649 set lim 1000
11650 if {[tk windowingsystem] == "win32"} {
11651 # windows has a 32k limit on the arguments to a command...
11652 set lim 30
11653 }
11662 }
11664 }
11665 }
11666 }
11667 }
11668 }
11670 proc get_path_encoding {path} {
11671 global gui_encoding perfile_attrs
11677 }
11678 }
11680 }
11682 # First check that Tcl/Tk is recent enough
11683 if {[catch {package require Tk 8.4} err]} {
11684 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11685 Gitk requires at least Tcl/Tk 8.4." list
11686 exit 1
11687 }
11689 # Unset GIT_TRACE var if set
11690 if { [info exists ::env(GIT_TRACE)] } {
11691 unset ::env(GIT_TRACE)
11692 }
11694 # defaults...
11695 set wrcomcmd "git diff-tree --stdin -p --pretty"
11697 set gitencoding {}
11698 catch {
11699 set gitencoding [exec git config --get i18n.commitencoding]
11700 }
11701 catch {
11702 set gitencoding [exec git config --get i18n.logoutputencoding]
11703 }
11705 set gitencoding "utf-8"
11706 }
11710 }
11712 set gui_encoding [encoding system]
11713 catch {
11714 set enc [exec git config --get gui.encoding]
11719 } else {
11721 }
11722 }
11723 }
11725 set log_showroot true
11726 catch {
11727 set log_showroot [exec git config --bool --get log.showroot]
11728 }
11730 if {[tk windowingsystem] eq "aqua"} {
11731 set mainfont {{Lucida Grande} 9}
11732 set textfont {Monaco 9}
11733 set uifont {{Lucida Grande} 9 bold}
11735 # fontconfig!
11736 set mainfont {sans 9}
11737 set textfont {monospace 9}
11738 set uifont {sans 9 bold}
11739 } else {
11740 set mainfont {Helvetica 9}
11741 set textfont {Courier 9}
11742 set uifont {Helvetica 9 bold}
11743 }
11744 set tabstop 8
11745 set findmergefiles 0
11746 set maxgraphpct 50
11747 set maxwidth 16
11748 set revlistorder 0
11749 set fastdate 0
11750 set uparrowlen 5
11751 set downarrowlen 5
11752 set mingaplen 100
11753 set cmitmode "patch"
11754 set wrapcomment "none"
11755 set showneartags 1
11756 set hideremotes 0
11757 set maxrefs 20
11758 set maxlinelen 200
11759 set showlocalchanges 1
11760 set limitdiffs 1
11761 set datetimeformat "%Y-%m-%d %H:%M:%S"
11762 set autoselect 1
11763 set autosellen 40
11764 set perfile_attrs 0
11765 set want_ttk 1
11767 if {[tk windowingsystem] eq "aqua"} {
11768 set extdifftool "opendiff"
11769 } else {
11770 set extdifftool "meld"
11771 }
11773 set colors {green red blue magenta darkgrey brown orange}
11774 if {[tk windowingsystem] eq "win32"} {
11775 set uicolor SystemButtonFace
11776 set uifgcolor SystemButtonText
11777 set uifgdisabledcolor SystemDisabledText
11778 set bgcolor SystemWindow
11779 set fgcolor SystemWindowText
11780 set selectbgcolor SystemHighlight
11781 } else {
11782 set uicolor grey85
11783 set uifgcolor black
11784 set uifgdisabledcolor "#999"
11785 set bgcolor white
11786 set fgcolor black
11787 set selectbgcolor gray85
11788 }
11789 set diffcolors {red "#00a000" blue}
11790 set diffcontext 3
11791 set mergecolors {red blue green purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
11792 set ignorespace 0
11793 set worddiff ""
11794 set markbgcolor "#e0e0ff"
11796 set headbgcolor green
11797 set headfgcolor black
11798 set headoutlinecolor black
11799 set remotebgcolor #ffddaa
11800 set tagbgcolor yellow
11801 set tagfgcolor black
11802 set tagoutlinecolor black
11803 set reflinecolor black
11804 set filesepbgcolor #aaaaaa
11805 set filesepfgcolor black
11806 set linehoverbgcolor #ffff80
11807 set linehoverfgcolor black
11808 set linehoveroutlinecolor black
11809 set mainheadcirclecolor yellow
11810 set workingfilescirclecolor red
11811 set indexcirclecolor green
11812 set circlecolors {white blue gray blue blue}
11813 set linkfgcolor blue
11815 set foundbgcolor yellow
11816 set currentsearchhitbgcolor orange
11818 # button for popping up context menus
11819 if {[tk windowingsystem] eq "aqua"} {
11820 set ctxbut <Button-2>
11821 } else {
11822 set ctxbut <Button-3>
11823 }
11825 ## For msgcat loading, first locate the installation location.
11826 if { [info exists ::env(GITK_MSGSDIR)] } {
11827 ## Msgsdir was manually set in the environment.
11828 set gitk_msgsdir $::env(GITK_MSGSDIR)
11829 } else {
11830 ## Let's guess the prefix from argv0.
11834 unset gitk_prefix
11835 }
11837 ## Internationalization (i18n) through msgcat and gettext. See
11838 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11839 package require msgcat
11840 namespace import ::msgcat::mc
11841 ## And eventually load the actual message catalog
11844 catch {source ~/.gitk}
11847 eval font create mainfont [fontflags mainfont]
11848 eval font create mainfontbold [fontflags mainfont 1]
11851 eval font create textfont [fontflags textfont]
11852 eval font create textfontbold [fontflags textfont 1]
11855 eval font create uifont [fontflags uifont]
11859 setoptions
11861 # check that we can find a .git directory somewhere...
11862 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
11863 show_error {} . [mc "Cannot find a git repository here."]
11864 exit 1
11865 }
11867 set selecthead {}
11868 set selectheadid {}
11870 set revtreeargs {}
11871 set cmdline_files {}
11872 set i 0
11873 set revtreeargscmd {}
11876 "" { }
11877 "--" {
11879 break
11880 }
11881 "--select-commit=*" {
11883 }
11884 "--argscmd=*" {
11886 }
11887 default {
11889 }
11890 }
11891 incr i
11892 }
11895 set selecthead {}
11896 }
11899 # no -- on command line, but some arguments (other than --argscmd)
11900 if {[catch {
11905 # Unfortunately git rev-parse doesn't produce an error when
11906 # something is both a revision and a filename. To be consistent
11907 # with git log and git rev-list, check revtreeargs for filenames.
11910 show_error {} . [mc "Ambiguous argument '%s': both revision\
11912 exit 1
11913 }
11914 }
11915 } err]} {
11917 # so look for "fatal:".
11921 }
11923 exit 1
11924 }
11925 }
11927 set nullid "0000000000000000000000000000000000000000"
11928 set nullid2 "0000000000000000000000000000000000000001"
11929 set nullfile "/dev/null"
11932 if {![info exists have_ttk]} {
11933 set have_ttk [llength [info commands ::ttk::style]]
11934 }
11938 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
11940 set show_notes {}
11942 set show_notes "--show-notes"
11943 }
11945 set appname "gitk"
11947 set runq {}
11948 set history {}
11949 set historyindex 0
11950 set fh_serial 0
11951 set nhl_names {}
11952 set highlight_paths {}
11953 set findpattern {}
11954 set searchdirn -forwards
11955 set boldids {}
11956 set boldnameids {}
11957 set diffelide {0 0}
11958 set markingmatches 0
11959 set linkentercount 0
11960 set need_redisplay 0
11961 set nrows_drawn 0
11962 set firsttabstop 0
11964 set nextviewnum 1
11965 set curview 0
11966 set selectedview 0
11967 set selectedhlview [mc "None"]
11968 set highlight_related [mc "None"]
11969 set highlight_files {}
11970 set viewfiles(0) {}
11971 set viewperm(0) 0
11972 set viewargs(0) {}
11973 set viewargscmd(0) {}
11975 set selectedline {}
11976 set numcommits 0
11977 set loginstance 0
11978 set cmdlineok 0
11979 set stopped 0
11980 set stuffsaved 0
11981 set patchnum 0
11982 set lserial 0
11983 set hasworktree [hasworktree]
11984 set cdup {}
11985 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
11986 set cdup [exec git rev-parse --show-cdup]
11987 }
11988 set worktree [exec git rev-parse --show-toplevel]
11989 setcoords
11990 makewindow
11991 catch {
11992 image create photo gitlogo -width 16 -height 16
11994 image create photo gitlogominus -width 4 -height 2
11995 gitlogominus put #C00000 -to 0 0 4 2
11996 gitlogo copy gitlogominus -to 1 5
11997 gitlogo copy gitlogominus -to 6 5
11998 gitlogo copy gitlogominus -to 11 5
11999 image delete gitlogominus
12001 image create photo gitlogoplus -width 4 -height 4
12002 gitlogoplus put #008000 -to 1 0 3 4
12003 gitlogoplus put #008000 -to 0 1 4 3
12004 gitlogo copy gitlogoplus -to 1 9
12005 gitlogo copy gitlogoplus -to 6 9
12006 gitlogo copy gitlogoplus -to 11 9
12007 image delete gitlogoplus
12009 image create photo gitlogo32 -width 32 -height 32
12010 gitlogo32 copy gitlogo -zoom 2 2
12012 wm iconphoto . -default gitlogo gitlogo32
12013 }
12014 # wait for the window to become visible
12015 tkwait visibility .
12017 update
12018 readrefs
12021 # create a view for the files/dirs specified on the command line
12022 set curview 1
12023 set selectedview 1
12024 set nextviewnum 2
12025 set viewname(1) [mc "Command line"]
12029 set viewperm(1) 0
12030 set vdatemode(1) 0
12031 addviewmenu 1
12032 .bar.view entryconf [mca "Edit view..."] -state normal
12033 .bar.view entryconf [mca "Delete view"] -state normal
12034 }
12036 if {[info exists permviews]} {
12039 incr nextviewnum
12046 }
12047 }
12049 if {[tk windowingsystem] eq "win32"} {
12050 focus -force .
12051 }
12053 getcommits {}
12055 # Local variables:
12056 # mode: tcl
12057 # indent-tabs-mode: t
12058 # tab-width: 8
12059 # End: