| blob | 8d0501b48f9f295d4b1fb2757f3f19bbd99e0cc5 |
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
7626 set treediff {}
7629 }
7631 proc gettreediffline {gdtf ids} {
7632 global treediff treediffs treepending diffids diffmergeid
7633 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7635 set nr 0
7636 set sublist {}
7637 set max 1000
7639 # cache_gitattr is slow, and even slower on win32 where we
7640 # have to invoke it for only about 30 paths at a time
7641 set max 500
7642 if {[tk windowingsystem] == "win32"} {
7643 set max 120
7644 }
7645 }
7652 }
7657 }
7658 }
7659 }
7662 }
7665 }
7668 set flist {}
7672 }
7673 }
7675 } else {
7677 }
7678 unset treepending
7682 if {![info exists diffmergeid]} {
7684 }
7685 } else {
7687 }
7688 return 0
7689 }
7691 # empty string or positive integer
7692 proc diffcontextvalidate {v} {
7694 }
7696 proc diffcontextchange {n1 n2 op} {
7697 global diffcontextstring diffcontext
7702 reselectline
7703 }
7704 }
7705 }
7707 proc changeignorespace {} {
7708 reselectline
7709 }
7711 proc changeworddiff {name ix op} {
7712 reselectline
7713 }
7715 proc getblobdiffs {ids} {
7716 global blobdifffd diffids env
7717 global diffinhdr treediffs
7718 global diffcontext
7719 global ignorespace
7720 global worddiff
7721 global limitdiffs vfilelimit curview
7722 global diffencoding targetline diffnparents
7723 global git_version currdiffsubmod
7725 set textconv {}
7727 set textconv "--textconv"
7728 }
7729 set submodule {}
7731 set submodule "--submodule"
7732 }
7735 append cmd " -w"
7736 }
7738 append cmd " --word-diff=porcelain"
7739 }
7742 }
7745 return
7746 }
7747 set targetline {}
7748 set diffnparents 0
7749 set diffinhdr 0
7750 set diffencoding [get_path_encoding {}]
7753 set currdiffsubmod ""
7755 }
7757 proc savecmitpos {} {
7758 global ctext cmitmode
7761 return {}
7762 }
7764 }
7766 proc savectextpos {} {
7767 global ctext
7770 }
7772 proc maybe_scroll_ctext {ateof} {
7773 global ctext target_scrollpos
7775 if {![info exists target_scrollpos]} return
7778 / [font metrics textfont -linespace]}]
7780 }
7782 unset target_scrollpos
7783 }
7785 proc setinlist {var i val} {
7790 }
7793 } else {
7795 }
7796 }
7798 proc makediffhdr {fname ids} {
7799 global ctext curdiffstart treediffs diffencoding
7800 global ctext_file_names jump_to_here targetline diffline
7807 }
7812 set targetline {}
7815 }
7816 set diffline 0
7817 }
7819 proc getblobdiffline {bdf ids} {
7820 global diffids blobdifffd ctext curdiffstart
7821 global diffnexthead diffnextnote difffilestart
7822 global ctext_file_names ctext_file_lines
7823 global diffinhdr treediffs mergemax diffnparents
7824 global diffencoding jump_to_here targetline diffline currdiffsubmod
7825 global worddiff
7827 set nr 0
7832 return 0
7833 }
7838 continue
7839 }
7840 # start of a new file
7841 set diffinhdr 1
7844 lappend ctext_file_names ""
7849 # start of a new file in a merge diff
7854 }
7856 } else {
7858 # If the name hasn't changed the length will be odd,
7859 # the middle char will be a space, and the two bits either
7860 # side will be a/name and b/name, or "a/name" and "b/name".
7861 # If the name has changed we'll get "rename from" and
7862 # "rename to" or "copy from" and "copy to" lines following
7863 # this, and we'll use them to get the filenames.
7864 # This complexity is necessary because spaces in the
7865 # filename(s) don't get escaped.
7871 continue
7872 }
7873 # unescape if quoted and chop off the a/ from the front
7876 } else {
7878 }
7879 }
7892 }
7900 }
7902 set diffinhdr 0
7905 # start of a new submodule
7908 } else {
7910 }
7913 }
7915 lappend ctext_file_names ""
7921 } else {
7923 }
7937 }
7942 }
7948 }
7951 # do nothing
7952 continue
7954 set diffinhdr 0
7955 continue
7956 }
7959 } else {
7960 set line [string map {\x1A ^Z} \
7962 # parse the prefix - one ' ', '-' or '+' for each parent
7966 set words_pre_markup ""
7967 set words_post_markup ""
7969 # prefix only has " ", "-" and "+" in it: normal diff line
7973 }
7977 set num "max"
7978 }
7981 } else {
7983 }
7986 }
7987 } else {
7988 set tags {}
7990 # added line
7996 set num "max"
7997 }
7999 }
8000 }
8001 set words_pre_markup "{+"
8002 set words_post_markup "+}"
8003 }
8007 set targetline {}
8008 } else {
8009 incr diffline
8010 }
8011 }
8014 } else {
8016 }
8019 }
8020 }
8023 } else {
8024 # "\ No newline at end of file",
8025 # or something else we don't recognize
8027 }
8028 }
8029 }
8030 if {[info exists seehere]} {
8032 }
8037 return 0
8038 }
8040 }
8042 proc changediffdisp {} {
8043 global ctext diffelide
8047 }
8049 proc highlightfile {cline} {
8050 global cflist cflist_top
8052 if {![info exists cflist_top]} return
8058 }
8060 proc highlightfile_for_scrollpos {topidx} {
8061 global cmitmode difffilestart
8064 if {![info exists difffilestart]} return
8068 highlightfile 0
8069 } else {
8071 }
8072 }
8074 proc prevfile {} {
8075 global difffilestart ctext cmitmode
8078 set prev 0.0
8083 return
8084 }
8086 }
8088 }
8090 proc nextfile {} {
8091 global difffilestart ctext cmitmode
8098 return
8099 }
8100 }
8101 }
8103 proc clear_ctext {{first 1.0}} {
8104 global ctext smarktop smarkbot
8105 global ctext_file_names ctext_file_lines
8106 global pendinglinks
8111 }
8114 }
8117 catch {unset pendinglinks}
8118 }
8119 set ctext_file_names {}
8120 set ctext_file_lines {}
8121 }
8123 proc settabs {{firstab {}}} {
8124 global firsttabstop tabstop ctext have_tk85
8128 }
8129 set w [font measure textfont "0"]
8135 } else {
8137 }
8138 }
8140 proc incrsearch {name ix op} {
8141 global ctext searchstring searchdirn
8144 # no anchor set, use start of selection, or of visible area
8150 } else {
8152 }
8153 }
8161 suppress_highlighting_file_for_current_scrollpos
8163 }
8164 }
8165 rehighlight_search_results
8166 }
8168 proc dosearch {} {
8169 global sstring ctext searchstring searchdirn
8173 set searchdirn -forwards
8179 set start "@0,0"
8180 }
8184 bell
8185 return
8186 }
8188 suppress_highlighting_file_for_current_scrollpos
8193 rehighlight_search_results
8194 }
8195 }
8197 proc dosearchback {} {
8198 global sstring ctext searchstring searchdirn
8202 set searchdirn -backwards
8209 }
8213 bell
8214 return
8215 }
8217 suppress_highlighting_file_for_current_scrollpos
8222 rehighlight_search_results
8223 }
8224 }
8226 proc rehighlight_search_results {} {
8227 global ctext searchstring
8233 searchmarkvisible 1
8234 }
8235 }
8237 proc searchmark {first last} {
8238 global ctext searchstring
8243 while {1} {
8249 } else {
8251 }
8252 }
8253 }
8255 proc searchmarkvisible {doall} {
8256 global ctext smarktop smarkbot
8261 # no overlap with previous
8265 } else {
8269 }
8273 }
8274 }
8275 }
8277 proc suppress_highlighting_file_for_current_scrollpos {} {
8278 global ctext suppress_highlighting_file_for_this_scrollpos
8281 }
8283 proc scrolltext {f0 f1} {
8284 global searchstring cmitmode ctext
8285 global suppress_highlighting_file_for_this_scrollpos
8288 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8291 }
8293 catch {unset suppress_highlighting_file_for_this_scrollpos}
8297 searchmarkvisible 0
8298 }
8299 }
8301 proc setcoords {} {
8302 global linespc charspc canvx0 canvy0
8303 global xspc1 xspc2 lthickness
8305 set linespc [font metrics mainfont -linespace]
8306 set charspc [font measure mainfont "m"]
8312 }
8314 proc redisplay {} {
8315 global canv
8316 global selectedline
8321 clear_display
8322 setcanvscroll
8324 drawvisible
8328 }
8329 }
8331 proc parsefont {f n} {
8332 global fontattr
8337 set s 10
8340 }
8346 "normal" -
8348 "roman" -
8350 }
8351 }
8352 }
8354 proc fontflags {f {isbold 0}} {
8355 global fontattr
8360 }
8362 proc fontname {f} {
8363 global fontattr
8367 lappend n "bold"
8368 }
8370 lappend n "italic"
8371 }
8373 }
8375 proc incrfont {inc} {
8376 global mainfont textfont ctext canv cflist showrefstop
8377 global stopped entries fontattr
8379 unmarkmatches
8383 set s 1
8384 }
8388 set mainfont [fontname mainfont]
8392 set s 1
8393 }
8397 set textfont [fontname textfont]
8398 setcoords
8399 settabs
8400 redisplay
8401 }
8403 proc clearsha1 {} {
8404 global sha1entry sha1string
8407 }
8408 }
8410 proc sha1change {n1 n2 op} {
8411 global sha1string currentid sha1but
8414 set state disabled
8415 } else {
8416 set state normal
8417 }
8421 } else {
8423 }
8424 }
8426 proc gotocommit {} {
8427 global sha1string tagids headids curview varcid
8435 } else {
8442 return
8443 }
8445 }
8446 } else {
8449 return
8450 }
8451 }
8452 }
8455 return
8456 }
8459 } else {
8461 }
8463 }
8465 proc lineenter {x y id} {
8466 global hoverx hovery hoverid hovertimer
8467 global commitinfo canv
8473 if {[info exists hovertimer]} {
8475 }
8476 set hovertimer [after 500 linehover]
8478 }
8480 proc linemotion {x y id} {
8481 global hoverx hovery hoverid hovertimer
8486 if {[info exists hovertimer]} {
8488 }
8489 set hovertimer [after 500 linehover]
8490 }
8491 }
8493 proc lineleave {id} {
8494 global hoverid hovertimer canv
8498 if {[info exists hovertimer]} {
8500 unset hovertimer
8501 }
8502 unset hoverid
8503 }
8504 }
8506 proc linehover {} {
8507 global hoverx hovery hoverid hovertimer
8508 global canv linespc lthickness
8509 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8511 global commitinfo
8525 -width 1 -tags hover]
8530 }
8532 proc clickisonarrow {id y} {
8533 global lthickness
8542 }
8543 }
8544 return {}
8545 }
8547 proc arrowjump {id n y} {
8548 global canv
8550 # 1 <-> 2, 3 <-> 4, etc...
8560 set yfrac 0
8561 }
8563 }
8565 proc lineclick {x y id isnew} {
8566 global ctext commitinfo children canv thickerline curview
8569 unmarkmatches
8570 unselectline
8571 normalline
8573 # draw this line thicker than normal
8581 }
8585 return
8586 }
8590 }
8591 # fill the details pane with info about this line
8593 clear_ctext
8594 settabs 0
8606 set i 0
8608 incr i
8618 }
8619 }
8620 maybe_scroll_ctext 1
8622 init_flist {}
8623 }
8625 proc normalline {} {
8626 global thickerline
8627 if {[info exists thickerline]} {
8629 unset thickerline
8631 }
8632 }
8634 proc selbyid {id {isnew 1}} {
8635 global curview
8638 }
8639 }
8641 proc mstime {} {
8642 global startmstime
8643 if {![info exists startmstime]} {
8644 set startmstime [clock clicks -milliseconds]
8645 }
8647 }
8649 proc rowmenu {x y id} {
8650 global rowctxmenu selectedline rowmenuid curview
8651 global nullid nullid2 fakerowmenu mainhead markedid
8653 stopfinding
8656 set state disabled
8657 } else {
8658 set state normal
8659 }
8661 set mstate normal
8662 } else {
8663 set mstate disabled
8664 }
8669 } else {
8671 }
8675 } else {
8677 }
8684 }
8686 proc markhere {} {
8687 global rowmenuid markedid canv
8691 }
8693 proc gotomark {} {
8694 global markedid
8696 if {[info exists markedid]} {
8698 }
8699 }
8701 proc replace_by_kids {l r} {
8702 global curview children
8708 }
8710 }
8712 proc find_common_desc {} {
8713 global markedid rowmenuid curview children
8715 if {![info exists markedid]} return
8718 #set t1 [clock clicks -milliseconds]
8721 while 1 {
8727 break
8728 }
8731 } else {
8733 }
8734 }
8735 #set t2 [clock clicks -milliseconds]
8737 }
8739 proc compare_commits {} {
8740 global markedid rowmenuid curview children
8742 if {![info exists markedid]} return
8746 }
8748 proc getpatchid {id} {
8749 global patchids
8753 # trim off the initial "|"
8755 if {[catch {
8758 }]} {
8760 }
8761 }
8763 }
8765 proc do_cmp_commits {a b} {
8766 global ctext curview parents children patchids commitinfo
8769 clear_ctext
8770 init_flist {}
8772 set skipa 0
8773 set skipb 0
8776 set skipa 1
8777 } else {
8779 }
8782 set skipb 1
8783 } else {
8785 }
8791 [mc " - stopping\n"]
8792 break
8793 }
8796 [mc " - stopping\n"]
8797 break
8798 }
8803 } else {
8807 }
8808 set skipa 1
8809 set skipb 1
8810 } else {
8817 update
8819 return
8820 }
8821 }
8828 break
8829 }
8831 }
8837 break
8838 }
8840 }
8841 }
8843 }
8845 proc diffcommits {a b} {
8846 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8848 set tmpdir [gitknewtmpdir]
8851 if {[catch {
8854 } err]} {
8856 return
8857 }
8858 if {[catch {
8860 } err]} {
8862 return
8863 }
8866 set diffinhdr 0
8867 set currdiffsubmod ""
8869 }
8871 proc diffvssel {dirn} {
8872 global rowmenuid selectedline
8878 } else {
8881 }
8884 }
8886 proc diffvsmark {dirn} {
8887 global rowmenuid markedid
8889 if {![info exists markedid]} return
8893 } else {
8896 }
8899 }
8901 proc doseldiff {oldid newid} {
8902 global ctext
8903 global commitinfo
8906 clear_ctext
8907 init_flist [mc "Top"]
8922 }
8924 proc mkpatch {} {
8925 global rowmenuid currentid commitinfo patchtop patchnum NS
8927 if {![info exists currentid]} return
8932 set top .patch
8962 incr patchnum
8974 }
8976 proc mkpatchrev {} {
8977 global patchtop
8983 foreach e [list fromsha1 fromhead tosha1 tohead] \
8989 }
8990 }
8992 proc mkpatchgo {} {
8993 global patchtop nullid nullid2
8999 # trim off the initial "|"
9004 }
9006 unset patchtop
9007 }
9009 proc mkpatchcan {} {
9010 global patchtop
9013 unset patchtop
9014 }
9016 proc mktag {} {
9017 global rowmenuid mktagtop commitinfo NS
9019 set top .maketag
9053 }
9055 proc domktag {} {
9056 global mktagtop env tagids idtags
9063 return 0
9064 }
9067 return 0
9068 }
9069 if {[catch {
9072 } else {
9074 }
9075 } err]} {
9077 return 0
9078 }
9084 dispneartags 0
9085 run refill_reflist
9086 return 1
9087 }
9089 proc redrawtags {id} {
9090 global canv linehtag idpos currentid curview cmitlisted markedid
9091 global canvxmax iddrawn circleitem mainheadid circlecolors
9092 global mainheadcirclecolor
9099 } else {
9101 }
9111 setcanvscroll
9112 }
9115 }
9118 }
9119 }
9121 proc mktagcan {} {
9122 global mktagtop
9125 unset mktagtop
9126 }
9128 proc mktaggo {} {
9129 if {![domktag]} return
9130 mktagcan
9131 }
9133 proc writecommit {} {
9134 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9136 set top .writecommit
9169 }
9171 proc wrcomgo {} {
9172 global wrcomtop
9179 }
9181 unset wrcomtop
9182 }
9184 proc wrcomcan {} {
9185 global wrcomtop
9188 unset wrcomtop
9189 }
9191 proc mkbranch {} {
9192 global rowmenuid mkbrtop NS
9194 set top .makebranch
9218 }
9220 proc mkbrgo {top} {
9221 global headids idheads
9225 set cmdargs {}
9226 set old_id {}
9229 return
9230 }
9232 if {![confirm_popup [mc \
9234 return
9235 }
9237 lappend cmdargs -f
9238 }
9241 nowbusy newbranch
9242 update
9243 if {[catch {
9245 } err]} {
9246 notbusy newbranch
9248 } else {
9249 notbusy newbranch
9255 } else {
9260 }
9261 dispneartags 0
9262 run refill_reflist
9263 }
9264 }
9266 proc exec_citool {tool_args {baseid {}}} {
9267 global commitinfo env
9269 set save_env [array get env GIT_AUTHOR_*]
9274 }
9277 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9283 }
9284 }
9288 array unset env GIT_AUTHOR_*
9290 }
9292 proc cherrypick {} {
9293 global rowmenuid curview
9294 global mainhead mainheadid
9295 global gitdir
9297 set oldhead [exec git rev-parse HEAD]
9300 set ok [confirm_popup [mc "Commit %s is already\
9301 included in branch %s -- really re-apply it?" \
9304 }
9305 nowbusy cherrypick [mc "Cherry-picking"]
9306 update
9307 # Unfortunately git-cherry-pick writes stuff to stderr even when
9308 # no error occurs, and exec takes that as an indication of error...
9310 notbusy cherrypick
9311 if {[regexp -line \
9312 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9314 error_popup [mc "Cherry-pick failed because of local changes\
9315 to file '%s'.\nPlease commit, reset or stash\
9317 } elseif {[regexp -line \
9318 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9320 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9321 conflict.\nDo you wish to run git citool to\
9322 resolve it?"]]} {
9323 # Force citool to read MERGE_MSG
9326 }
9327 } else {
9329 }
9330 run updatecommits
9331 return
9332 }
9333 set newhead [exec git rev-parse HEAD]
9335 notbusy cherrypick
9336 error_popup [mc "No changes committed"]
9337 return
9338 }
9341 # XXX this isn't right if we have a path limit...
9346 }
9351 }
9352 notbusy cherrypick
9353 }
9355 proc resethead {} {
9356 global mainhead rowmenuid confirm_ok resettype NS
9358 set confirm_ok 0
9359 set w ".confirmreset"
9367 set resettype mixed
9369 -text [mc "Soft: Leave working tree and index untouched"]
9372 -text [mc "Mixed: Leave working tree untouched, reset index"]
9375 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9386 if {[catch {set fd [open \
9389 } else {
9390 dohidelocalchanges
9392 nowbusy reset [mc "Resetting"]
9394 }
9395 }
9397 proc readresetstat {fd} {
9398 global mainhead mainheadid showlocalchanges rprogcoord
9403 adjustprogress
9404 }
9405 return 1
9406 }
9407 set rprogcoord 0
9408 adjustprogress
9409 notbusy reset
9412 }
9414 set newhead [exec git rev-parse HEAD]
9421 }
9423 doshowlocalchanges
9424 }
9425 return 0
9426 }
9428 # context menu for a head
9429 proc headmenu {x y id head} {
9430 global headmenuid headmenuhead headctxmenu mainhead
9432 stopfinding
9435 set state normal
9437 set state disabled
9438 }
9440 set state disabled
9441 }
9445 }
9447 proc cobranch {} {
9448 global headmenuid headmenuhead headids
9449 global showlocalchanges
9451 # check the tree is clean first??
9452 nowbusy checkout [mc "Checking out"]
9453 update
9454 dohidelocalchanges
9455 if {[catch {
9457 } err]} {
9458 notbusy checkout
9461 dodiffindex
9462 }
9463 } else {
9465 }
9466 }
9468 proc readcheckoutstat {fd newhead newheadid} {
9469 global mainhead mainheadid headids showlocalchanges progresscoords
9470 global viewmainheadid curview
9475 adjustprogress
9476 }
9477 return 1
9478 }
9479 set progresscoords {0 0}
9480 adjustprogress
9481 notbusy checkout
9484 }
9493 dodiffindex
9494 }
9495 }
9497 proc rmbranch {} {
9498 global headmenuid headmenuhead mainhead
9499 global idheads
9503 # this check shouldn't be needed any more...
9505 error_popup [mc "Cannot delete the currently checked-out branch"]
9506 return
9507 }
9510 # the stuff on this branch isn't on any other branch
9511 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9513 }
9514 nowbusy rmbranch
9515 update
9517 notbusy rmbranch
9519 return
9520 }
9524 notbusy rmbranch
9525 dispneartags 0
9526 run refill_reflist
9527 }
9529 # Display a list of tags and heads
9530 proc showrefs {} {
9531 global showrefstop bgcolor fgcolor selectbgcolor NS
9532 global bglist fglist reflistfilter reflist maincursor
9534 set top .showrefs
9538 refill_reflist
9539 return
9540 }
9548 -spacing1 1 -spacing3 1 -state disabled
9559 set reflistfilter "*"
9560 trace add variable reflistfilter write reflistfilter_change
9572 set reflist {}
9573 refill_reflist
9574 }
9576 proc sel_reflist {w x y} {
9577 global showrefstop reflist headids tagids otherrefids
9587 }
9589 }
9591 proc unsel_reflist {} {
9592 global showrefstop
9596 }
9598 proc reflistfilter_change {n1 n2 op} {
9599 global reflistfilter
9601 after cancel refill_reflist
9602 after 200 refill_reflist
9603 }
9605 proc refill_reflist {} {
9606 global reflist reflistfilter showrefstop headids tagids otherrefids
9607 global curview
9610 set refs {}
9611 foreach n [array names headids] {
9615 } else {
9617 }
9618 }
9619 }
9620 foreach n [array names tagids] {
9624 } else {
9626 }
9627 }
9628 }
9629 foreach n [array names otherrefids] {
9633 } else {
9635 }
9636 }
9637 }
9645 set i 0
9646 set j 0
9655 }
9656 } else {
9657 set cmp -1
9658 }
9659 } else {
9660 set cmp 1
9661 }
9663 -1 {
9665 incr i
9666 }
9667 0 {
9668 incr i
9669 incr j
9670 }
9671 1 {
9676 incr j
9677 }
9678 }
9679 }
9681 # delete last newline
9684 }
9686 # Stuff for finding nearby tags
9687 proc getallcommits {} {
9688 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9689 global idheads idtags idotherrefs allparents tagobjid
9690 global gitdir
9692 if {![info exists allcommits]} {
9693 set nextarc 0
9694 set allcommits 0
9695 set seeds {}
9696 set allcwait 0
9697 set cachedarcs 0
9699 if {![catch {
9701 set allcwait 1
9703 }]} return
9704 }
9707 return
9708 }
9709 set cmd [list | git rev-list --parents]
9712 set ids "--all"
9713 } else {
9714 set refs [concat [array names idheads] [array names idtags] \
9715 [array names idotherrefs]]
9716 set ids {}
9717 set tagobjs {}
9718 foreach name [array names tagobjid] {
9720 }
9725 }
9726 }
9730 }
9731 }
9732 }
9736 incr allcommits
9737 nowbusy allcommits
9739 } else {
9740 dispneartags 0
9741 }
9742 }
9744 # Since most commits have 1 parent and 1 child, we group strings of
9745 # such commits into "arcs" joining branch/merge points (BMPs), which
9746 # are commits that either don't have 1 parent or don't have 1 child.
9747 #
9748 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9749 # arcout(id) - outgoing arcs for BMP
9750 # arcids(a) - list of IDs on arc including end but not start
9751 # arcstart(a) - BMP ID at start of arc
9752 # arcend(a) - BMP ID at end of arc
9753 # growing(a) - arc a is still growing
9754 # arctags(a) - IDs out of arcids (excluding end) that have tags
9755 # archeads(a) - IDs out of arcids (excluding end) that have heads
9756 # The start of an arc is at the descendent end, so "incoming" means
9757 # coming from descendents, and "outgoing" means going towards ancestors.
9759 proc getallclines {fd} {
9760 global allparents allchildren idtags idheads nextarc
9761 global arcnos arcids arctags arcout arcend arcstart archeads growing
9762 global seeds allcommits cachedarcs allcupdate
9764 set nid 0
9768 # seen it already
9769 continue
9770 }
9771 set cachedarcs 0
9778 } else {
9784 }
9787 }
9789 # seen parent already
9792 }
9796 }
9799 continue
9800 }
9801 }
9806 }
9808 set ao {}
9811 set a [incr nextarc]
9820 # seen it already, may need to make a new branch
9823 }
9827 }
9829 }
9831 }
9833 global cached_dheads cached_dtags cached_atags
9834 catch {unset cached_dheads}
9835 catch {unset cached_dtags}
9836 catch {unset cached_atags}
9837 }
9840 }
9841 set cacheok 1
9842 if {[catch {
9845 } err]} {
9846 # got an error reading the list of commits
9847 # if we were updating, try rereading the whole thing again
9849 incr allcommits -1
9851 return
9852 }
9853 error_popup "[mc "Error reading commit topology information;\
9854 branch and preceding/following tag information\
9856 set cacheok 0
9857 }
9858 if {[incr allcommits -1] == 0} {
9859 notbusy allcommits
9861 run savecache
9862 }
9863 }
9864 dispneartags 0
9865 return 0
9866 }
9868 proc recalcarc {a} {
9869 global arctags archeads arcids idtags idheads
9871 set at {}
9872 set ah {}
9876 }
9879 }
9880 }
9883 }
9885 proc splitarc {p} {
9886 global arcnos arcids nextarc arctags archeads idtags idheads
9887 global arcstart arcend arcout allparents growing
9892 return
9893 }
9898 return
9899 }
9900 set na [incr nextarc]
9903 } else {
9907 }
9917 }
9922 } else {
9925 }
9926 }
9928 # reconstruct tags and heads lists
9932 } else {
9935 }
9936 }
9938 # Update things for a new commit added that is a child of one
9939 # existing commit. Used when cherry-picking.
9940 proc addnewchild {id p} {
9941 global allparents allchildren idtags nextarc
9942 global arcnos arcids arctags arcout arcend arcstart archeads growing
9943 global seeds allcommits
9951 set a [incr nextarc]
9959 }
9962 }
9964 # This implements a cache for the topology information.
9965 # The cache saves, for each arc, the start and end of the arc,
9966 # the ids on the arc, and the outgoing arcs from the end.
9967 proc readcache {f} {
9968 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9969 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9970 global allcwait
9976 }
9977 if {[catch {
9979 # finish reading the cache and setting up arctags, etc.
9983 foreach id [array names idtags] {
9989 }
9990 }
9991 }
9992 foreach id [array names idheads] {
9998 }
9999 }
10000 }
10004 }
10005 }
10006 set allcwait 0
10007 } else {
10017 }
10021 } else {
10025 }
10026 }
10032 }
10035 }
10038 }
10040 }
10041 } err]} {
10043 return 0
10044 }
10046 getallcommits
10047 }
10049 }
10051 proc getcache {f} {
10052 global nextarc cachedarcs possible_seeds
10054 if {[catch {
10057 # make sure it's an integer
10060 set nextarc 0
10061 set possible_seeds {}
10063 } err]} {
10065 }
10066 return 0
10067 }
10069 proc dropcache {err} {
10070 global allcwait nextarc cachedarcs seeds
10073 foreach v {arcnos arcout arcids arcstart arcend growing \
10074 arctags archeads allparents allchildren} {
10077 }
10078 set allcwait 0
10079 set nextarc 0
10080 set cachedarcs 0
10081 set seeds {}
10082 getallcommits
10083 }
10085 proc writecache {f} {
10086 global cachearc cachedarcs allccache
10087 global arcstart arcend arcnos arcids arcout
10093 }
10094 if {[catch {
10098 } else {
10100 }
10101 }
10102 } err]} {
10106 return 0
10107 }
10112 return 0
10113 }
10114 return 1
10115 }
10117 proc savecache {} {
10118 global nextarc cachedarcs cachearc allccache
10121 set cachearc 0
10123 catch {
10127 }
10128 }
10130 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10131 # or 0 if neither is true.
10132 proc anc_or_desc {a b} {
10133 global arcout arcstart arcend arcnos cached_isanc
10136 # Both are on the same arc(s); either both are the same BMP,
10137 # or if one is not a BMP, the other is also not a BMP or is
10138 # the BMP at end of the arc (and it only has 1 incoming arc).
10139 # Or both can be BMPs with no incoming arcs.
10141 return 0
10142 }
10148 return 1
10149 } else {
10150 return -1
10151 }
10152 }
10158 } else {
10159 set aend {}
10160 }
10162 } else {
10164 }
10169 } else {
10170 set bend {}
10171 }
10173 } else {
10175 }
10177 return 1
10178 }
10180 return -1
10181 }
10184 return 1
10185 }
10186 }
10189 return -1
10190 }
10192 return 0
10193 }
10194 }
10202 continue
10203 }
10209 return 1
10213 return -1
10214 }
10220 }
10221 }
10222 }
10225 return 0
10226 }
10230 # and returns 0 if so and 1 if not.
10231 # If we subsequently discover a tag on such a growing tip, and that
10234 # isn't a good choice to display as a descendent tag of
10238 #
10239 proc is_certain {desc anc} {
10240 global arcnos arcout arcstart arcend growing problems
10242 set certain {}
10244 # tags on the same arc are certain
10246 return 1
10247 }
10252 }
10253 }
10256 } else {
10259 }
10261 return 1
10262 }
10265 set nnh 1
10266 set ngrowanc 0
10270 incr nnh -1
10271 }
10277 incr ngrowanc
10278 }
10279 } else {
10286 incr nnh -1
10287 }
10289 incr ngrowanc -1
10290 }
10300 incr nnh -1
10301 }
10303 incr ngrowanc -1
10304 }
10306 }
10307 }
10308 }
10309 }
10310 }
10311 }
10315 } else {
10318 incr nnh
10319 }
10320 }
10321 }
10322 }
10323 foreach x [array names growanc] {
10325 return 0
10326 }
10327 return 0
10328 }
10329 return 1
10330 }
10332 proc validate_arctags {a} {
10333 global arctags idtags
10335 set i -1
10338 incr i
10341 incr i -1
10342 }
10343 }
10345 }
10347 proc validate_archeads {a} {
10348 global archeads idheads
10350 set i -1
10353 incr i
10356 incr i -1
10357 }
10358 }
10360 }
10362 # Return the list of IDs that have tags that are descendents of id,
10363 # ignoring IDs that are descendents of IDs already reported.
10364 proc desctags {id} {
10365 global arcnos arcstart arcids arctags idtags allparents
10366 global growing cached_dtags
10369 return {}
10370 }
10371 set t1 [clock clicks -milliseconds]
10374 # part-way along an arc; check that arc first
10379 set tid {}
10384 }
10387 }
10388 }
10392 }
10393 }
10396 }
10401 set nc 1
10407 incr nc -1
10408 }
10409 # ignore tags on starting node
10413 set ta 1
10416 set ta 1
10417 }
10418 }
10425 }
10426 }
10435 }
10438 }
10440 incr nc -1
10441 }
10443 }
10444 }
10445 }
10450 incr nc
10451 }
10452 }
10453 }
10454 }
10455 set tags {}
10456 foreach id [array names tagloc] {
10461 }
10462 }
10463 }
10464 }
10465 set t2 [clock clicks -milliseconds]
10468 # remove tags that are descendents of other tags
10476 incr j -1
10477 incr i -1
10480 incr i -1
10481 break
10482 }
10483 }
10484 }
10486 if {[array names growing] ne {}} {
10487 # graph isn't finished, need to check if any tag could get
10488 # eclipsed by another tag coming later. Simply ignore any
10489 # tags that could later get eclipsed.
10490 set ctags {}
10494 }
10495 }
10498 } else {
10500 }
10501 } else {
10503 }
10504 set t3 [clock clicks -milliseconds]
10508 }
10510 }
10512 proc anctags {id} {
10513 global arcnos arcids arcout arcend arctags idtags allparents
10514 global growing cached_atags
10517 return {}
10518 }
10519 set t1 [clock clicks -milliseconds]
10522 # part-way along an arc; check that arc first
10531 }
10532 }
10533 }
10535 return {}
10536 }
10540 }
10541 }
10544 }
10549 set taglist {}
10550 set nc 1
10556 incr nc -1
10557 }
10558 # ignore tags on starting node
10562 set td 1
10565 set td 1
10566 }
10567 }
10573 }
10574 }
10586 }
10587 }
10590 }
10592 incr nc -1
10593 }
10595 }
10596 }
10597 }
10602 incr nc
10603 }
10604 }
10605 }
10606 }
10607 set t2 [clock clicks -milliseconds]
10609 set tags {}
10610 foreach id [array names tagloc] {
10615 }
10616 }
10617 }
10618 }
10620 # remove tags that are ancestors of other tags
10628 incr j -1
10629 incr i -1
10632 incr i -1
10633 break
10634 }
10635 }
10636 }
10638 if {[array names growing] ne {}} {
10639 # graph isn't finished, need to check if any tag could get
10640 # eclipsed by another tag coming later. Simply ignore any
10641 # tags that could later get eclipsed.
10642 set ctags {}
10646 }
10647 }
10650 } else {
10652 }
10653 } else {
10655 }
10656 set t3 [clock clicks -milliseconds]
10660 }
10662 }
10664 # Return the list of IDs that have heads that are descendents of id,
10665 # including id itself if it has a head.
10666 proc descheads {id} {
10667 global arcnos arcstart arcids archeads idheads cached_dheads
10668 global allparents arcout
10671 return {}
10672 }
10673 set aret {}
10675 # part-way along an arc; check it first
10684 }
10685 }
10687 }
10691 set ret {}
10696 } else {
10699 }
10705 }
10706 }
10711 }
10712 }
10713 }
10714 }
10718 }
10720 proc addedtag {id} {
10721 global arcnos arcout cached_dtags cached_atags
10726 }
10727 catch {unset cached_dtags}
10728 catch {unset cached_atags}
10729 }
10731 proc addedhead {hid head} {
10732 global arcnos arcout cached_dheads
10737 }
10738 catch {unset cached_dheads}
10739 }
10741 proc removedhead {hid head} {
10742 global cached_dheads
10744 catch {unset cached_dheads}
10745 }
10747 proc movedhead {hid head} {
10748 global arcnos arcout cached_dheads
10753 }
10754 catch {unset cached_dheads}
10755 }
10757 proc changedrefs {} {
10758 global cached_dheads cached_dtags cached_atags cached_tagcontent
10759 global arctags archeads arcnos arcout idheads idtags
10761 foreach id [concat [array names idheads] [array names idtags]] {
10767 }
10768 }
10769 }
10770 catch {unset cached_tagcontent}
10771 catch {unset cached_dtags}
10772 catch {unset cached_atags}
10773 catch {unset cached_dheads}
10774 }
10776 proc rereadrefs {} {
10777 global idtags idheads idotherrefs mainheadid
10779 set refids [concat [array names idtags] \
10780 [array names idheads] [array names idotherrefs]]
10784 }
10785 }
10787 readrefs
10788 changedrefs
10790 [array names idheads] [array names idotherrefs]]]
10795 }
10796 }
10800 }
10801 run refill_reflist
10802 }
10804 proc listrefs {id} {
10805 global idtags idheads idotherrefs
10807 set x {}
10810 }
10811 set y {}
10814 }
10815 set z {}
10818 }
10820 }
10822 proc showtag {tag isnew} {
10823 global ctext cached_tagcontent tagids linknum tagobjid
10827 }
10829 clear_ctext
10830 settabs 0
10831 set linknum 0
10833 catch {
10835 }
10836 }
10839 } else {
10841 }
10843 maybe_scroll_ctext 1
10845 init_flist {}
10846 }
10848 proc doquit {} {
10849 global stopped
10850 global gitktmpdir
10852 set stopped 100
10853 savestuff .
10854 destroy .
10856 if {[info exists gitktmpdir]} {
10858 }
10859 }
10861 proc mkfontdisp {font top which} {
10870 }
10872 proc choosefont {font which} {
10873 global fontparam fontlist fonttop fontattr
10874 global prefstop NS
10882 set top .gitkfont
10885 font create sample
10892 set fontlist [lsort [font families]]
10903 -textvariable fontparam(size) \
10904 -validatecommand {string is integer -strict %s}
10906 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10907 -variable fontparam(weight) -onvalue bold -offvalue normal
10909 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10910 -variable fontparam(slant) -onvalue italic -offvalue roman
10914 -background white
10916 -fill black -tags text
10928 trace add variable fontparam write chg_fontparam
10929 } else {
10932 }
10937 }
10938 }
10940 proc centertext {w} {
10942 }
10944 proc fontok {} {
10945 global fontparam fontpref prefstop
10951 }
10954 }
10958 fontcan
10959 }
10961 proc fontcan {} {
10962 global fonttop fontparam
10964 if {[info exists fonttop]} {
10966 catch {font delete sample}
10967 unset fonttop
10968 unset fontparam
10969 }
10970 }
10972 if {[package vsatisfies [package provide Tk] 8.6]} {
10973 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10974 # function to make use of it.
10975 proc choosefont {font which} {
10978 tk fontchooser show
10979 }
10980 proc on_choosefont {font which newfont} {
10981 global fontparam
10990 fontok
10991 }
10992 }
10994 proc selfontfam {} {
10995 global fonttop fontparam
11000 }
11001 }
11003 proc chg_fontparam {v sub op} {
11004 global fontparam
11007 }
11009 # Create a property sheet tab page
11010 proc create_prefs_page {w} {
11011 global NS
11015 } else {
11017 }
11018 }
11020 proc prefspage_general {notebook} {
11021 global NS maxwidth maxgraphpct showneartags showlocalchanges
11022 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11023 global hideremotes want_ttk have_ttk maxrefs
11037 -variable showlocalchanges
11040 -variable autoselect
11044 -variable hideremotes
11053 -variable showneartags
11059 -variable limitdiffs
11062 -variable perfile_attrs
11076 -text [mc "Use themed widgets"]
11079 } else {
11081 }
11084 }
11086 proc prefspage_colors {notebook} {
11087 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11118 [mc "diff hunk header"] \
11124 [mc "marked line background"] \
11132 }
11134 proc prefspage_fonts {notebook} {
11135 global NS
11143 }
11145 proc doprefs {} {
11146 global maxwidth maxgraphpct use_ttk NS
11147 global oldprefs prefstop showneartags showlocalchanges
11148 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11149 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11150 global hideremotes want_ttk have_ttk
11152 set top .gitkprefs
11156 return
11157 }
11158 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11159 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11161 }
11168 } else {
11170 }
11175 set col 0
11179 } else {
11185 }
11186 }
11192 }
11209 }
11211 proc choose_extdiff {} {
11212 global extdifftool
11214 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11217 }
11218 }
11220 proc choosecolor {v vi w x cmd} {
11229 }
11231 proc setselbg {c} {
11232 global bglist cflist
11235 }
11239 }
11241 # This sets the background color and the color scheme for the whole UI.
11242 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11243 # if we don't specify one ourselves, which makes the checkbuttons and
11244 # radiobuttons look bad. This chooses white for selectColor if the
11245 # background color is light, or black if it is dark.
11246 proc setui {c} {
11247 if {[tk windowingsystem] eq "win32"} { return }
11249 set selc black
11251 set selc white
11252 }
11254 }
11256 proc setbg {c} {
11257 global bglist
11261 }
11262 }
11264 proc setfg {c} {
11265 global fglist canv
11269 }
11273 }
11275 proc prefscan {} {
11276 global oldprefs prefstop
11278 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11279 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11282 }
11284 unset prefstop
11285 fontcan
11286 }
11288 proc prefsok {} {
11289 global maxwidth maxgraphpct
11290 global oldprefs prefstop showneartags showlocalchanges
11291 global fontpref mainfont textfont uifont
11292 global limitdiffs treediffs perfile_attrs
11293 global hideremotes
11296 unset prefstop
11297 fontcan
11298 set fontchanged 0
11302 eval font configure mainfont [fontflags mainfont]
11303 eval font configure mainfontbold [fontflags mainfont 1]
11304 setcoords
11305 set fontchanged 1
11306 }
11310 eval font configure textfont [fontflags textfont]
11311 eval font configure textfontbold [fontflags textfont 1]
11312 }
11316 eval font configure uifont [fontflags uifont]
11317 }
11318 settabs
11321 doshowlocalchanges
11322 } else {
11323 dohidelocalchanges
11324 }
11325 }
11328 # treediffs elements are limited by path;
11329 # won't have encodings cached if perfile_attrs was just turned on
11330 catch {unset treediffs}
11331 }
11334 redisplay
11337 reselectline
11338 }
11340 rereadrefs
11341 }
11342 }
11344 proc formatdate {d} {
11345 global datetimeformat
11348 }
11350 }
11352 # This list of encoding names and aliases is distilled from
11353 # http://www.iana.org/assignments/character-sets.
11354 # Not all of them are supported by Tcl.
11355 set encoding_aliases {
11356 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11357 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11358 { ISO-10646-UTF-1 csISO10646UTF1 }
11359 { ISO_646.basic:1983 ref csISO646basic1983 }
11360 { INVARIANT csINVARIANT }
11361 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11362 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11363 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11364 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11365 { NATS-DANO iso-ir-9-1 csNATSDANO }
11366 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11367 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11368 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11369 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11370 { ISO-2022-KR csISO2022KR }
11371 { EUC-KR csEUCKR }
11372 { ISO-2022-JP csISO2022JP }
11373 { ISO-2022-JP-2 csISO2022JP2 }
11374 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11375 csISO13JISC6220jp }
11376 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11377 { IT iso-ir-15 ISO646-IT csISO15Italian }
11378 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11379 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11380 { greek7-old iso-ir-18 csISO18Greek7Old }
11381 { latin-greek iso-ir-19 csISO19LatinGreek }
11382 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11383 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11384 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11385 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11386 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11387 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11388 { INIS iso-ir-49 csISO49INIS }
11389 { INIS-8 iso-ir-50 csISO50INIS8 }
11390 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11391 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11392 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11393 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11394 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11395 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11396 csISO60Norwegian1 }
11397 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11398 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11399 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11400 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11401 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11402 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11403 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11404 { greek7 iso-ir-88 csISO88Greek7 }
11405 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11406 { iso-ir-90 csISO90 }
11407 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11408 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11409 csISO92JISC62991984b }
11410 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11411 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11412 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11413 csISO95JIS62291984handadd }
11414 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11415 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11416 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11417 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11418 CP819 csISOLatin1 }
11419 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11420 { T.61-7bit iso-ir-102 csISO102T617bit }
11421 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11422 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11423 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11424 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11425 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11426 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11427 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11428 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11429 arabic csISOLatinArabic }
11430 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11431 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11432 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11433 greek greek8 csISOLatinGreek }
11434 { T.101-G2 iso-ir-128 csISO128T101G2 }
11435 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11436 csISOLatinHebrew }
11437 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11438 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11439 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11440 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11441 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11442 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11443 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11444 csISOLatinCyrillic }
11445 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11446 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11447 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11448 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11449 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11450 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11451 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11452 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11453 { ISO_10367-box iso-ir-155 csISO10367Box }
11454 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11455 { latin-lap lap iso-ir-158 csISO158Lap }
11456 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11457 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11458 { us-dk csUSDK }
11459 { dk-us csDKUS }
11460 { JIS_X0201 X0201 csHalfWidthKatakana }
11461 { KSC5636 ISO646-KR csKSC5636 }
11462 { ISO-10646-UCS-2 csUnicode }
11463 { ISO-10646-UCS-4 csUCS4 }
11464 { DEC-MCS dec csDECMCS }
11465 { hp-roman8 roman8 r8 csHPRoman8 }
11466 { macintosh mac csMacintosh }
11467 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11468 csIBM037 }
11469 { IBM038 EBCDIC-INT cp038 csIBM038 }
11470 { IBM273 CP273 csIBM273 }
11471 { IBM274 EBCDIC-BE CP274 csIBM274 }
11472 { IBM275 EBCDIC-BR cp275 csIBM275 }
11473 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11474 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11475 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11476 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11477 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11478 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11479 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11480 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11481 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11482 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11483 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11484 { IBM437 cp437 437 csPC8CodePage437 }
11485 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11486 { IBM775 cp775 csPC775Baltic }
11487 { IBM850 cp850 850 csPC850Multilingual }
11488 { IBM851 cp851 851 csIBM851 }
11489 { IBM852 cp852 852 csPCp852 }
11490 { IBM855 cp855 855 csIBM855 }
11491 { IBM857 cp857 857 csIBM857 }
11492 { IBM860 cp860 860 csIBM860 }
11493 { IBM861 cp861 861 cp-is csIBM861 }
11494 { IBM862 cp862 862 csPC862LatinHebrew }
11495 { IBM863 cp863 863 csIBM863 }
11496 { IBM864 cp864 csIBM864 }
11497 { IBM865 cp865 865 csIBM865 }
11498 { IBM866 cp866 866 csIBM866 }
11499 { IBM868 CP868 cp-ar csIBM868 }
11500 { IBM869 cp869 869 cp-gr csIBM869 }
11501 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11502 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11503 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11504 { IBM891 cp891 csIBM891 }
11505 { IBM903 cp903 csIBM903 }
11506 { IBM904 cp904 904 csIBBM904 }
11507 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11508 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11509 { IBM1026 CP1026 csIBM1026 }
11510 { EBCDIC-AT-DE csIBMEBCDICATDE }
11511 { EBCDIC-AT-DE-A csEBCDICATDEA }
11512 { EBCDIC-CA-FR csEBCDICCAFR }
11513 { EBCDIC-DK-NO csEBCDICDKNO }
11514 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11515 { EBCDIC-FI-SE csEBCDICFISE }
11516 { EBCDIC-FI-SE-A csEBCDICFISEA }
11517 { EBCDIC-FR csEBCDICFR }
11518 { EBCDIC-IT csEBCDICIT }
11519 { EBCDIC-PT csEBCDICPT }
11520 { EBCDIC-ES csEBCDICES }
11521 { EBCDIC-ES-A csEBCDICESA }
11522 { EBCDIC-ES-S csEBCDICESS }
11523 { EBCDIC-UK csEBCDICUK }
11524 { EBCDIC-US csEBCDICUS }
11525 { UNKNOWN-8BIT csUnknown8BiT }
11526 { MNEMONIC csMnemonic }
11527 { MNEM csMnem }
11528 { VISCII csVISCII }
11529 { VIQR csVIQR }
11530 { KOI8-R csKOI8R }
11531 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11532 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11533 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11534 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11535 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11536 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11537 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11538 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11539 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11540 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11541 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11542 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11543 { IBM1047 IBM-1047 }
11544 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11545 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11546 { UNICODE-1-1 csUnicode11 }
11547 { CESU-8 csCESU-8 }
11548 { BOCU-1 csBOCU-1 }
11549 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11550 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11551 l8 }
11552 { ISO-8859-15 ISO_8859-15 Latin-9 }
11553 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11554 { GBK CP936 MS936 windows-936 }
11555 { JIS_Encoding csJISEncoding }
11556 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11557 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11558 EUC-JP }
11559 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11560 { ISO-10646-UCS-Basic csUnicodeASCII }
11561 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11562 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11563 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11564 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11565 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11566 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11567 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11568 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11569 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11570 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11571 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11572 { Ventura-US csVenturaUS }
11573 { Ventura-International csVenturaInternational }
11574 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11575 { PC8-Turkish csPC8Turkish }
11576 { IBM-Symbols csIBMSymbols }
11577 { IBM-Thai csIBMThai }
11578 { HP-Legal csHPLegal }
11579 { HP-Pi-font csHPPiFont }
11580 { HP-Math8 csHPMath8 }
11581 { Adobe-Symbol-Encoding csHPPSMath }
11582 { HP-DeskTop csHPDesktop }
11583 { Ventura-Math csVenturaMath }
11584 { Microsoft-Publishing csMicrosoftPublishing }
11585 { Windows-31J csWindows31J }
11586 { GB2312 csGB2312 }
11587 { Big5 csBig5 }
11588 }
11590 proc tcl_encoding {enc} {
11591 global encoding_aliases tcl_encoding_cache
11594 }
11595 set names [encoding names]
11600 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11603 }
11604 }
11609 # look through the aliases for one that tcl knows about
11615 }
11616 }
11618 }
11619 break
11620 }
11621 }
11622 set tclenc {}
11625 }
11628 }
11630 proc gitattr {path attr default} {
11631 global path_attr_cache
11634 } else {
11635 set r "unspecified"
11638 }
11640 }
11643 }
11645 }
11647 proc cache_gitattr {attr pathlist} {
11648 global path_attr_cache
11649 set newlist {}
11653 }
11654 }
11655 set lim 1000
11656 if {[tk windowingsystem] == "win32"} {
11657 # windows has a 32k limit on the arguments to a command...
11658 set lim 30
11659 }
11668 }
11670 }
11671 }
11672 }
11673 }
11674 }
11676 proc get_path_encoding {path} {
11677 global gui_encoding perfile_attrs
11683 }
11684 }
11686 }
11688 # First check that Tcl/Tk is recent enough
11689 if {[catch {package require Tk 8.4} err]} {
11690 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11691 Gitk requires at least Tcl/Tk 8.4." list
11692 exit 1
11693 }
11695 # Unset GIT_TRACE var if set
11696 if { [info exists ::env(GIT_TRACE)] } {
11697 unset ::env(GIT_TRACE)
11698 }
11700 # defaults...
11701 set wrcomcmd "git diff-tree --stdin -p --pretty"
11703 set gitencoding {}
11704 catch {
11705 set gitencoding [exec git config --get i18n.commitencoding]
11706 }
11707 catch {
11708 set gitencoding [exec git config --get i18n.logoutputencoding]
11709 }
11711 set gitencoding "utf-8"
11712 }
11716 }
11718 set gui_encoding [encoding system]
11719 catch {
11720 set enc [exec git config --get gui.encoding]
11725 } else {
11727 }
11728 }
11729 }
11731 set log_showroot true
11732 catch {
11733 set log_showroot [exec git config --bool --get log.showroot]
11734 }
11736 if {[tk windowingsystem] eq "aqua"} {
11737 set mainfont {{Lucida Grande} 9}
11738 set textfont {Monaco 9}
11739 set uifont {{Lucida Grande} 9 bold}
11741 # fontconfig!
11742 set mainfont {sans 9}
11743 set textfont {monospace 9}
11744 set uifont {sans 9 bold}
11745 } else {
11746 set mainfont {Helvetica 9}
11747 set textfont {Courier 9}
11748 set uifont {Helvetica 9 bold}
11749 }
11750 set tabstop 8
11751 set findmergefiles 0
11752 set maxgraphpct 50
11753 set maxwidth 16
11754 set revlistorder 0
11755 set fastdate 0
11756 set uparrowlen 5
11757 set downarrowlen 5
11758 set mingaplen 100
11759 set cmitmode "patch"
11760 set wrapcomment "none"
11761 set showneartags 1
11762 set hideremotes 0
11763 set maxrefs 20
11764 set maxlinelen 200
11765 set showlocalchanges 1
11766 set limitdiffs 1
11767 set datetimeformat "%Y-%m-%d %H:%M:%S"
11768 set autoselect 1
11769 set autosellen 40
11770 set perfile_attrs 0
11771 set want_ttk 1
11773 if {[tk windowingsystem] eq "aqua"} {
11774 set extdifftool "opendiff"
11775 } else {
11776 set extdifftool "meld"
11777 }
11779 set colors {green red blue magenta darkgrey brown orange}
11780 if {[tk windowingsystem] eq "win32"} {
11781 set uicolor SystemButtonFace
11782 set uifgcolor SystemButtonText
11783 set uifgdisabledcolor SystemDisabledText
11784 set bgcolor SystemWindow
11785 set fgcolor SystemWindowText
11786 set selectbgcolor SystemHighlight
11787 } else {
11788 set uicolor grey85
11789 set uifgcolor black
11790 set uifgdisabledcolor "#999"
11791 set bgcolor white
11792 set fgcolor black
11793 set selectbgcolor gray85
11794 }
11795 set diffcolors {red "#00a000" blue}
11796 set diffcontext 3
11797 set mergecolors {red blue green purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
11798 set ignorespace 0
11799 set worddiff ""
11800 set markbgcolor "#e0e0ff"
11802 set headbgcolor green
11803 set headfgcolor black
11804 set headoutlinecolor black
11805 set remotebgcolor #ffddaa
11806 set tagbgcolor yellow
11807 set tagfgcolor black
11808 set tagoutlinecolor black
11809 set reflinecolor black
11810 set filesepbgcolor #aaaaaa
11811 set filesepfgcolor black
11812 set linehoverbgcolor #ffff80
11813 set linehoverfgcolor black
11814 set linehoveroutlinecolor black
11815 set mainheadcirclecolor yellow
11816 set workingfilescirclecolor red
11817 set indexcirclecolor green
11818 set circlecolors {white blue gray blue blue}
11819 set linkfgcolor blue
11821 set foundbgcolor yellow
11822 set currentsearchhitbgcolor orange
11824 # button for popping up context menus
11825 if {[tk windowingsystem] eq "aqua"} {
11826 set ctxbut <Button-2>
11827 } else {
11828 set ctxbut <Button-3>
11829 }
11831 ## For msgcat loading, first locate the installation location.
11832 if { [info exists ::env(GITK_MSGSDIR)] } {
11833 ## Msgsdir was manually set in the environment.
11834 set gitk_msgsdir $::env(GITK_MSGSDIR)
11835 } else {
11836 ## Let's guess the prefix from argv0.
11840 unset gitk_prefix
11841 }
11843 ## Internationalization (i18n) through msgcat and gettext. See
11844 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11845 package require msgcat
11846 namespace import ::msgcat::mc
11847 ## And eventually load the actual message catalog
11850 catch {source ~/.gitk}
11853 eval font create mainfont [fontflags mainfont]
11854 eval font create mainfontbold [fontflags mainfont 1]
11857 eval font create textfont [fontflags textfont]
11858 eval font create textfontbold [fontflags textfont 1]
11861 eval font create uifont [fontflags uifont]
11865 setoptions
11867 # check that we can find a .git directory somewhere...
11868 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
11869 show_error {} . [mc "Cannot find a git repository here."]
11870 exit 1
11871 }
11873 set selecthead {}
11874 set selectheadid {}
11876 set revtreeargs {}
11877 set cmdline_files {}
11878 set i 0
11879 set revtreeargscmd {}
11882 "" { }
11883 "--" {
11885 break
11886 }
11887 "--select-commit=*" {
11889 }
11890 "--argscmd=*" {
11892 }
11893 default {
11895 }
11896 }
11897 incr i
11898 }
11901 set selecthead {}
11902 }
11905 # no -- on command line, but some arguments (other than --argscmd)
11906 if {[catch {
11911 # Unfortunately git rev-parse doesn't produce an error when
11912 # something is both a revision and a filename. To be consistent
11913 # with git log and git rev-list, check revtreeargs for filenames.
11916 show_error {} . [mc "Ambiguous argument '%s': both revision\
11918 exit 1
11919 }
11920 }
11921 } err]} {
11923 # so look for "fatal:".
11927 }
11929 exit 1
11930 }
11931 }
11933 set nullid "0000000000000000000000000000000000000000"
11934 set nullid2 "0000000000000000000000000000000000000001"
11935 set nullfile "/dev/null"
11938 if {![info exists have_ttk]} {
11939 set have_ttk [llength [info commands ::ttk::style]]
11940 }
11944 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
11946 set show_notes {}
11948 set show_notes "--show-notes"
11949 }
11951 set appname "gitk"
11953 set runq {}
11954 set history {}
11955 set historyindex 0
11956 set fh_serial 0
11957 set nhl_names {}
11958 set highlight_paths {}
11959 set findpattern {}
11960 set searchdirn -forwards
11961 set boldids {}
11962 set boldnameids {}
11963 set diffelide {0 0}
11964 set markingmatches 0
11965 set linkentercount 0
11966 set need_redisplay 0
11967 set nrows_drawn 0
11968 set firsttabstop 0
11970 set nextviewnum 1
11971 set curview 0
11972 set selectedview 0
11973 set selectedhlview [mc "None"]
11974 set highlight_related [mc "None"]
11975 set highlight_files {}
11976 set viewfiles(0) {}
11977 set viewperm(0) 0
11978 set viewargs(0) {}
11979 set viewargscmd(0) {}
11981 set selectedline {}
11982 set numcommits 0
11983 set loginstance 0
11984 set cmdlineok 0
11985 set stopped 0
11986 set stuffsaved 0
11987 set patchnum 0
11988 set lserial 0
11989 set hasworktree [hasworktree]
11990 set cdup {}
11991 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
11992 set cdup [exec git rev-parse --show-cdup]
11993 }
11994 set worktree [exec git rev-parse --show-toplevel]
11995 setcoords
11996 makewindow
11997 catch {
11998 image create photo gitlogo -width 16 -height 16
12000 image create photo gitlogominus -width 4 -height 2
12001 gitlogominus put #C00000 -to 0 0 4 2
12002 gitlogo copy gitlogominus -to 1 5
12003 gitlogo copy gitlogominus -to 6 5
12004 gitlogo copy gitlogominus -to 11 5
12005 image delete gitlogominus
12007 image create photo gitlogoplus -width 4 -height 4
12008 gitlogoplus put #008000 -to 1 0 3 4
12009 gitlogoplus put #008000 -to 0 1 4 3
12010 gitlogo copy gitlogoplus -to 1 9
12011 gitlogo copy gitlogoplus -to 6 9
12012 gitlogo copy gitlogoplus -to 11 9
12013 image delete gitlogoplus
12015 image create photo gitlogo32 -width 32 -height 32
12016 gitlogo32 copy gitlogo -zoom 2 2
12018 wm iconphoto . -default gitlogo gitlogo32
12019 }
12020 # wait for the window to become visible
12021 tkwait visibility .
12023 update
12024 readrefs
12027 # create a view for the files/dirs specified on the command line
12028 set curview 1
12029 set selectedview 1
12030 set nextviewnum 2
12031 set viewname(1) [mc "Command line"]
12035 set viewperm(1) 0
12036 set vdatemode(1) 0
12037 addviewmenu 1
12038 .bar.view entryconf [mca "Edit view..."] -state normal
12039 .bar.view entryconf [mca "Delete view"] -state normal
12040 }
12042 if {[info exists permviews]} {
12045 incr nextviewnum
12052 }
12053 }
12055 if {[tk windowingsystem] eq "win32"} {
12056 focus -force .
12057 }
12059 getcommits {}
12061 # Local variables:
12062 # mode: tcl
12063 # indent-tabs-mode: t
12064 # tab-width: 8
12065 # End: