chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
git-debrebase: Break out record_gdrlast
[dgit.git]
/
git-debrebase
diff --git
a/git-debrebase
b/git-debrebase
index 42e8f7e3eec152892c35cd87666147749eea03ee..8e347f15843b71deb7ad9e0450ce37478a2c8b93 100755
(executable)
--- a/
git-debrebase
+++ b/
git-debrebase
@@
-50,11
+50,9
@@
usages:
See git-debrebase(1), git-debrebase(5), dgit-maint-debrebase(7) (in dgit).
END
See git-debrebase(1), git-debrebase(5), dgit-maint-debrebase(7) (in dgit).
END
-our ($opt_force, $opt_
careful, $opt_noop_ok
, @opt_anchors);
+our ($opt_force, $opt_
noop_ok, $opt_merges
, @opt_anchors);
our ($opt_defaultcmd_interactive);
our ($opt_defaultcmd_interactive);
-$opt_careful = 0;
-
our $us = qw(git-debrebase);
our $wrecknoteprefix = 'refs/debrebase/wreckage';
our $us = qw(git-debrebase);
our $wrecknoteprefix = 'refs/debrebase/wreckage';
@@
-198,6
+196,8
@@
sub get_tree ($;$$) {
return () if $type eq 'missing';
}
return () if $type eq 'missing';
}
+ confess "get_tree needs object not $x ?" unless $x =~ m{^[0-9a-f]+\:};
+
our (@get_tree_memo, %get_tree_memo);
my $memo = $get_tree_memo{$x};
return @$memo if $memo;
our (@get_tree_memo, %get_tree_memo);
my $memo = $get_tree_memo{$x};
return @$memo if $memo;
@@
-428,6
+428,11
@@
sub any_snags () {
return $snags_forced || $snags_tripped;
}
return $snags_forced || $snags_tripped;
}
+sub record_gdrlast ($$) {
+ my ($gdrlast, $newvalue) = @_;
+ push @deferred_updates, "update $gdrlast $newvalue $git_null_obj";
+}
+
sub gbp_pq_export ($$$) {
my ($bname, $base, $tip) = @_;
# must be run in a workarea. $bname and patch-queue/$bname
sub gbp_pq_export ($$$) {
my ($bname, $base, $tip) = @_;
# must be run in a workarea. $bname and patch-queue/$bname
@@
-446,11
+451,7
@@
sub gbp_pq_export ($$$) {
}
}
-# xxx allow merge resolution separately from laundering, before git merge
-#
-# xxx general gdr docs highlight forbidden things
-# xxx general gdr docs list allowable things ?
-# xxx general gdr docs explicitly forbid some rebase
+# MERGE-TODO allow merge resolution separately from laundering, before git merge
# later/rework?
# use git-format-patch?
# later/rework?
# use git-format-patch?
@@
-687,6
+688,8
@@
sub merge_series_patchqueue_convert ($$$) {
runcmd @git, qw(checkout -q -b mergec), $merged_pq;
merge_attempt_cmd($wrecknotes, qw(gbp pq import));
runcmd @git, qw(checkout -q -b mergec), $merged_pq;
merge_attempt_cmd($wrecknotes, qw(gbp pq import));
+ # MERGE-TODO consider git-format-patch etc. instead,
+ # since gbp pq doesn't always round-trip :-/
# OK now we are on patch-queue/merge, and we need to rebase
# onto the intended parent and drop the patches from each one
# OK now we are on patch-queue/merge, and we need to rebase
# onto the intended parent and drop the patches from each one
@@
-982,7
+985,6
@@
sub classify ($) {
if (@p == 2 and
$r->{Msg} =~ m{^\[git-debrebase merged-breakwater.*\]$}m) {
if (@p == 2 and
$r->{Msg} =~ m{^\[git-debrebase merged-breakwater.*\]$}m) {
- # xxx ^ metadata tag needs adding to (5)
return $classify->("MergedBreakwaters");
}
if ($r->{Msg} =~ m{^\[(git-debrebase|dgit)[: ].*\]$}m) {
return $classify->("MergedBreakwaters");
}
if ($r->{Msg} =~ m{^\[(git-debrebase|dgit)[: ].*\]$}m) {
@@
-992,7
+994,7
@@
sub classify ($) {
return $unknown->("octopus merge");
}
return $unknown->("octopus merge");
}
- if (!$
ENV{GIT_DEBREBASE_EXPERIMENTAL_MERGE}
) {
+ if (!$
opt_merges
) {
return $unknown->("general two-parent merge");
}
return $unknown->("general two-parent merge");
}
@@
-1313,7
+1315,7
@@
sub walk ($;$$$) {
# which was reachable via ffq-prev is no longer findable.
# This is suboptimal, but if it all works we'll have done
# the right thing.
# which was reachable via ffq-prev is no longer findable.
# This is suboptimal, but if it all works we'll have done
# the right thing.
- #
xxx
we should warn the user in the docs about this
+ #
MERGE-TODO
we should warn the user in the docs about this
my $ok=1;
my $best_anchor;
my $ok=1;
my $best_anchor;
@@
-1605,7
+1607,7
@@
sub walk ($;$$$) {
printdebug "WALK REWRITING NOW cl=$cl procd=$procd\n";
}
}
printdebug "WALK REWRITING NOW cl=$cl procd=$procd\n";
}
}
- if ($rewriting
|| $opt_careful
) {
+ if ($rewriting) {
read_tree_upstream $want_upstream, 0, $want_debian;
my $newtree = cmdoutput @git, qw(write-tree);
read_tree_upstream $want_upstream, 0, $want_debian;
my $newtree = cmdoutput @git, qw(write-tree);
@@
-1884,8
+1886,7
@@
sub stitch ($$$$$) {
# ffq-prev is ahead of us, and the only tree changes it has
# are possibly addition of things in debian/patches/.
# Just wind forwards rather than making a pointless pseudomerge.
# ffq-prev is ahead of us, and the only tree changes it has
# are possibly addition of things in debian/patches/.
# Just wind forwards rather than making a pointless pseudomerge.
- push @deferred_updates,
- "update $gdrlast $ffq_prev_commitish $git_null_obj";
+ record_gdrlast $gdrlast, $ffq_prev_commitish;
update_head_checkout $old_head, $ffq_prev_commitish,
"stitch (fast forward)";
return;
update_head_checkout $old_head, $ffq_prev_commitish,
"stitch (fast forward)";
return;
@@
-1898,7
+1899,7
@@
sub stitch ($$$$$) {
'Declare fast forward / record previous work',
"[git-debrebase pseudomerge: $prose]",
];
'Declare fast forward / record previous work',
"[git-debrebase pseudomerge: $prose]",
];
-
push @deferred_updates, "update $gdrlast $new_head $git_null_obj"
;
+
record_gdrlast $gdrlast, $new_head
;
update_head $old_head, $new_head, "stitch: $prose";
}
update_head $old_head, $new_head, "stitch: $prose";
}
@@
-2762,7
+2763,7
@@
END
sub cmd_record_resolved_merge () {
badusage "record-resolved-merge takes no further arguments" if @ARGV;
sub cmd_record_resolved_merge () {
badusage "record-resolved-merge takes no further arguments" if @ARGV;
- #
xxx
needs documentation
+ #
MERGE-TODO
needs documentation
my $new = get_head();
my $method;
my $new = get_head();
my $method;
@@
-2857,6
+2858,7
@@
getoptions_main
'anchor=s' => \@opt_anchors,
'--dgit=s' => \($dgit[0]),
'force!',
'anchor=s' => \@opt_anchors,
'--dgit=s' => \($dgit[0]),
'force!',
+ 'experimental-merge-resolution!', \$opt_merges,
'-i:s' => sub {
my ($opt,$val) = @_;
badusage "git-debrebase: no cuddling to -i for git-rebase"
'-i:s' => sub {
my ($opt,$val) = @_;
badusage "git-debrebase: no cuddling to -i for git-rebase"