1 # git-gui branch merge support
2 # Copyright (C) 2006, 2007 Shawn Pearce
7 global HEAD commit_type file_states
9 if {[string match amend
* $commit_type]} {
10 info_popup
{Cannot merge
while amending.
12 You must finish amending this commit before starting any type of merge.
17 if {[committer_ident
] eq
{}} {return 0}
18 if {![lock_index merge
]} {return 0}
20 # -- Our in memory state should match the repository.
22 repository_state curType curHEAD curMERGE_HEAD
23 if {$commit_type ne
$curType ||
$HEAD ne
$curHEAD} {
24 info_popup
{Last scanned state does not match repository state.
26 Another Git program has modified this repository since the last
scan. A rescan must be performed before a merge can be performed.
28 The rescan will be automatically started now.
31 rescan
{set ui_status_value
{Ready.
}}
35 foreach path
[array names file_states
] {
36 switch -glob -- [lindex $file_states($path) 0] {
38 continue; # and pray it works!
41 error_popup
"You are in the middle of a conflicted merge.
43 File [short_path $path] has merge conflicts.
45 You must resolve them, add the file, and commit to complete the current merge. Only then can you begin another merge.
51 error_popup
"You are in the middle of a change.
53 File [short_path $path] is modified.
55 You should complete the current commit before starting a merge. Doing so will help you abort a failed merge, should the need arise.
68 foreach i
[$w.
source.l curselection
] {
69 lappend r
[lindex [lindex $list $i] 0]
74 proc _visualize
{w
list} {
75 set revs
[_refs
$w $list]
76 if {$revs eq
{}} return
77 lappend revs
--not HEAD
81 proc _start
{w
list} {
82 global HEAD ui_status_value current_branch
84 set cmd
[list git merge
]
85 set names
[_refs
$w $list]
86 set revcnt
[llength $names]
91 } elseif
{$revcnt == 1} {
93 } elseif
{$revcnt <= 15} {
99 "Use octopus merge strategy?
101 You are merging $revcnt branches at once. This requires using the octopus merge driver, which may not succeed if there are file-level conflicts.
112 -title [wm title
$w] \
114 -message "Too many branches selected.
116 You have requested to merge $revcnt branches in an octopus merge. This exceeds Git's internal limit of 15 branches per merge.
118 Please select fewer branches. To merge more than 15 branches, merge the branches in batches.
123 set msg
"Merging $current_branch, [join $names {, }]"
124 set ui_status_value
"$msg..."
125 set cons
[console::new "Merge" $msg]
126 console::exec $cons $cmd [namespace code
[list _finish
$revcnt]]
131 proc _finish
{revcnt w ok
} {
134 set msg
{Merge completed successfully.
}
137 info_popup
"Octopus merge failed.
139 Your merge of $revcnt branches has failed.
141 There are file-level conflicts between the branches which must be resolved manually.
143 The working directory will now be reset.
145 You can attempt this merge again by merging only one branch at a time." $w
147 set fd
[open "| git read-tree --reset -u HEAD" r
]
148 fconfigure $fd -blocking 0 -translation binary
149 fileevent $fd readable
\
150 [namespace code
[list _reset_wait
$fd]]
151 set ui_status_value
{Aborting... please wait...
}
155 set msg
{Merge failed. Conflict resolution is required.
}
158 rescan
[list set ui_status_value
$msg]
162 global current_branch
164 if {![_can_merge
]} return
166 set fmt
{list %(objectname
) %(*objectname
) %(refname
) %(subject
)}
167 set cmd
[list git for-each-ref
--tcl --format=$fmt]
168 lappend cmd refs
/heads
169 lappend cmd refs
/remotes
170 lappend cmd refs
/tags
171 set fr_fd
[open "| $cmd" r
]
172 fconfigure $fr_fd -translation binary
173 while {[gets $fr_fd line
] > 0} {
174 set line
[eval $line]
175 set ref
[lindex $line 2]
176 regsub ^refs
/(heads|remotes|tags
)/ $ref {} ref
177 set subj
($ref) [lindex $line 3]
178 lappend sha1
([lindex $line 0]) $ref
179 if {[lindex $line 1] ne
{}} {
180 lappend sha1
([lindex $line 1]) $ref
186 set fr_fd
[open "| git rev-list --all --not HEAD"]
187 while {[gets $fr_fd line
] > 0} {
188 if {[catch {set ref
$sha1($line)}]} continue
190 lappend to_show
[list $n $line]
194 set to_show
[lsort -unique $to_show]
198 wm geometry
$w "+[winfo rootx .]+[winfo rooty .]"
201 -text "Merge Into $current_branch" \
203 pack $w.header
-side top
-fill x
206 button $w.buttons.visualize
-text Visualize
\
207 -command [namespace code
[list _visualize
$w $to_show]]
208 pack $w.buttons.visualize
-side left
209 button $w.buttons.create
-text Merge
\
210 -command [namespace code
[list _start
$w $to_show]]
211 pack $w.buttons.create
-side right
212 button $w.buttons.cancel
-text {Cancel
} \
213 -command [list destroy $w]
214 pack $w.buttons.cancel
-side right
-padx 5
215 pack $w.buttons
-side bottom
-fill x
-pady 10 -padx 10
217 labelframe $w.
source -text {Source Branches
}
218 listbox $w.
source.l
\
222 -selectmode extended
\
223 -yscrollcommand [list $w.
source.sby
set]
224 scrollbar $w.
source.sby
-command [list $w.
source.l yview
]
225 pack $w.
source.sby
-side right
-fill y
226 pack $w.
source.l
-side left
-fill both
-expand 1
227 pack $w.
source -fill both
-expand 1 -pady 5 -padx 5
229 foreach ref
$to_show {
230 set n
[lindex $ref 0]
231 if {[string length
$n] > 20} {
232 set n
"[string range $n 0 16]..."
234 $w.
source.l insert end
[format {%s
%-20s %s
} \
235 [string range
[lindex $ref 1] 0 5] \
237 $subj([lindex $ref 0])]
240 bind $w <Visibility
> "grab $w; focus $w.source.l"
241 bind $w <Key-Escape
> "unlock_index;destroy $w"
242 bind $w <Destroy
> unlock_index
243 wm title
$w "[appname] ([reponame]): Merge"
248 global HEAD commit_type file_states
250 if {[string match amend
* $commit_type]} {
251 info_popup
{Cannot abort
while amending.
253 You must finish amending this commit.
258 if {![lock_index abort
]} return
260 if {[string match
*merge
* $commit_type]} {
266 if {[ask_popup
"Abort $op?
268 Aborting the current $op will cause *ALL* uncommitted changes to be lost.
270 Continue with aborting the current $op?"] eq
{yes
}} {
271 set fd
[open "| git read-tree --reset -u HEAD" r
]
272 fconfigure $fd -blocking 0 -translation binary
273 fileevent $fd readable
[namespace code
[list _reset_wait
$fd]]
274 set ui_status_value
{Aborting... please wait...
}
280 proc _reset_wait
{fd
} {
288 $ui_comm delete
0.0 end
289 $ui_comm edit modified false
291 catch {file delete
[gitdir MERGE_HEAD
]}
292 catch {file delete
[gitdir rr-cache MERGE_RR
]}
293 catch {file delete
[gitdir SQUASH_MSG
]}
294 catch {file delete
[gitdir MERGE_MSG
]}
295 catch {file delete
[gitdir GITGUI_MSG
]}
297 rescan
{set ui_status_value
{Abort completed. Ready.
}}