3 # REuse REcorded REsolve. This tool records a conflicted automerge
4 # result and its hand resolution, and helps to resolve future
5 # automerge that results in the same conflict.
7 # To enable this feature, create a directory 'rr-cache' under your
14 my $git_dir = $::ENV
{GIT_DIR
} || ".git";
15 my $rr_dir = "$git_dir/rr-cache";
16 my $merge_rr = "$git_dir/rr-cache/MERGE_RR";
27 open $in, "<$merge_rr" or die "$!: $merge_rr";
30 my ($name, $path) = /^([0-9a-f]{40})\t(.*)$/s;
31 $merge_rr{$path} = $name;
38 open $out, ">$merge_rr" or die "$!: $merge_rr";
39 for my $path (sort keys %merge_rr) {
40 my $name = $merge_rr{$path};
41 print $out "$name\t$path\0";
46 sub compute_conflict_name
{
50 open $in, "<$path" or die "$!: $path";
52 my $sha1 = Digest
->new("SHA-1");
62 elsif (/^>>>>>>> .*/) {
64 $one = join('', @
{$side[0]});
65 $two = join('', @
{$side[1]});
67 ($one, $two) = ($two, $one);
78 elsif (defined $side[1]) {
86 return ($sha1->hexdigest, $hunk);
90 my ($path, $name) = @_;
93 open $in, "<$path" or die "$!: $path";
94 open $out, ">$name" or die "$!: $name";
100 elsif (/^=======$/) {
103 elsif (/^>>>>>>> .*/) {
105 $one = join('', @
{$side[0]});
106 $two = join('', @
{$side[1]});
108 ($one, $two) = ($two, $one);
110 print $out "<<<<<<<\n";
112 print $out "=======\n";
114 print $out ">>>>>>>\n";
120 elsif (defined $side[1]) {
121 push @
{$side[1]}, $_;
124 push @
{$side[0]}, $_;
134 open $in, '-|', qw(git ls-files -z -u) or die "$!: ls-files";
139 my ($mode, $sha1, $stage, $path) =
140 /^([0-7]+) ([0-9a-f]{40}) ([123])\t(.*)$/s;
141 $path{$path} |= (1 << $stage);
144 while (my ($path, $status) = each %path) {
145 if ($status == 14) { push @path, $path; }
151 my ($name, $path) = @_;
152 record_preimage
($path, "$rr_dir/$name/thisimage");
153 unless (system('merge', map { "$rr_dir/$name/${_}image" }
154 qw(this pre post))) {
156 open $in, "<$rr_dir/$name/thisimage" or
157 die "$!: $name/thisimage";
159 open $out, ">$path" or die "$!: $path";
160 while (<$in>) { print $out $_; }
168 -d
"$rr_dir" || exit(0);
171 my %conflict = map { $_ => 1 } find_conflict
();
173 # MERGE_RR records paths with conflicts immediately after merge
174 # failed. Some of the conflicted paths might have been hand resolved
175 # in the working tree since then, but the initial run would catch all
176 # and register their preimages.
178 for my $path (keys %conflict) {
179 # This path has conflict. If it is not recorded yet,
180 # record the pre-image.
181 if (!exists $merge_rr{$path}) {
182 my ($name, $hunk) = compute_conflict_name
($path);
184 $merge_rr{$path} = $name;
185 if (! -d
"$rr_dir/$name") {
186 mkpath
("$rr_dir/$name", 0, 0777);
187 print STDERR
"Recorded preimage for '$path'\n";
188 record_preimage
($path, "$rr_dir/$name/preimage");
193 # Now some of the paths that had conflicts earlier might have been
194 # hand resolved. Others may be similar to a conflict already that
195 # was resolved before.
197 for my $path (keys %merge_rr) {
198 my $name = $merge_rr{$path};
200 # We could resolve this automatically if we have images.
201 if (-f
"$rr_dir/$name/preimage" &&
202 -f
"$rr_dir/$name/postimage") {
203 if (merge
($name, $path)) {
204 print STDERR
"Resolved '$path' using previous resolution.\n";
205 # Then we do not have to worry about this path
207 delete $merge_rr{$path};
212 # Let's see if we have resolved it.
213 (undef, my $hunk) = compute_conflict_name
($path);
216 print STDERR
"Recorded resolution for '$path'.\n";
217 copy
($path, "$rr_dir/$name/postimage");
218 # And we do not have to worry about this path anymore.
219 delete $merge_rr{$path};
222 # Write out the rest.