chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
i18n: dgit: Reorganise quilt differences message generation
[dgit.git]
/
dgit
diff --git
a/dgit
b/dgit
index e2305834c473cad92aca587cc7d7c6d702e73e6f..e0ebfbadd1c230f94466f420b5dad7e1ee2996e4 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-5356,16
+5356,17
@@
END
" to record .gitignore changes",
$gipatch
if (stat _)[7];
" to record .gitignore changes",
$gipatch
if (stat _)[7];
- print GIPATCH
<<END
or die "$gipatch: $!";
+ print GIPATCH
+(__ <<END).<<ENDU
or die "$gipatch: $!";
Subject: Update .gitignore from Debian packaging branch
The Debian packaging git branch contains these updates to the upstream
.gitignore file(s). This patch is autogenerated, to provide these
updates to users of the official Debian archive view of the package.
Subject: Update .gitignore from Debian packaging branch
The Debian packaging git branch contains these updates to the upstream
.gitignore file(s). This patch is autogenerated, to provide these
updates to users of the official Debian archive view of the package.
+END
[dgit ($our_version) update-gitignore]
---
[dgit ($our_version) update-gitignore]
---
-END
+END
U
close GIPATCH or die "$gipatch: $!";
runcmd shell_cmd "exec >>$gipatch", @git, qw(diff),
$unapplied, $headref, "--", sort keys %$editedignores;
close GIPATCH or die "$gipatch: $!";
runcmd shell_cmd "exec >>$gipatch", @git, qw(diff),
$unapplied, $headref, "--", sort keys %$editedignores;
@@
-5377,11
+5378,12
@@
END
print SERIES "auto-gitignore\n" or die $!;
close SERIES or die $!;
runcmd @git, qw(add -f -- debian/patches/series), $gipatch;
print SERIES "auto-gitignore\n" or die $!;
close SERIES or die $!;
runcmd @git, qw(add -f -- debian/patches/series), $gipatch;
- commit_admin
<<END
+ commit_admin
+(__ <<END).<<ENDU
Commit patch to update .gitignore
Commit patch to update .gitignore
+END
[dgit ($our_version) update-gitignore-quilt-fixup]
[dgit ($our_version) update-gitignore-quilt-fixup]
-END
+END
U
}
my $dgitview = git_rev_parse 'HEAD';
}
my $dgitview = git_rev_parse 'HEAD';
@@
-5391,8
+5393,8
@@
END
changedir "$playground/work";
changedir "$playground/work";
- my $saved = maybe_split_brain_save $headref, $dgitview, "converted";
- progress
"dgit view: created ($saved)"
;
+ my $saved = maybe_split_brain_save $headref, $dgitview,
__
"converted";
+ progress
f_ "dgit view: created (%s)", $saved
;
}
sub quiltify ($$$$) {
}
sub quiltify ($$$$) {
@@
-5457,7
+5459,7
@@
sub quiltify ($$$$) {
my $c = shift @todo;
next if $considered{$c->{Commit}}++;
my $c = shift @todo;
next if $considered{$c->{Commit}}++;
- $not->($c, "maximum search space exceeded") if --$max_work <= 0;
+ $not->($c,
__
"maximum search space exceeded") if --$max_work <= 0;
printdebug "quiltify investigate $c->{Commit}\n";
printdebug "quiltify investigate $c->{Commit}\n";
@@
-5475,7
+5477,7
@@
sub quiltify ($$$$) {
}
my $c_sentinels = quiltify_tree_sentinelfiles $c->{Commit};
}
my $c_sentinels = quiltify_tree_sentinelfiles $c->{Commit};
- $not->($c,
"has $c_sentinels not $t_sentinels"
)
+ $not->($c,
f_ "has %s not %s", $c_sentinels, $t_sentinels
)
if $c_sentinels ne $t_sentinels;
my $commitdata = cmdoutput @git, qw(cat-file commit), $c->{Commit};
if $c_sentinels ne $t_sentinels;
my $commitdata = cmdoutput @git, qw(cat-file commit), $c->{Commit};
@@
-5484,13
+5486,14
@@
sub quiltify ($$$$) {
my @parents = ($commitdata =~ m/^parent (\w+)$/gm);
@parents = map { { Commit => $_, Child => $c } } @parents;
my @parents = ($commitdata =~ m/^parent (\w+)$/gm);
@parents = map { { Commit => $_, Child => $c } } @parents;
- $not->($c, "root commit") if !@parents;
+ $not->($c,
__
"root commit") if !@parents;
foreach my $p (@parents) {
$p->{Nontrivial}= quiltify_trees_differ $p->{Commit},$c->{Commit};
}
my $ndiffers = grep { $_->{Nontrivial} } @parents;
foreach my $p (@parents) {
$p->{Nontrivial}= quiltify_trees_differ $p->{Commit},$c->{Commit};
}
my $ndiffers = grep { $_->{Nontrivial} } @parents;
- $not->($c, "merge ($ndiffers nontrivial parents)") if $ndiffers > 1;
+ $not->($c, f_ "merge (%s nontrivial parents)", $ndiffers)
+ if $ndiffers > 1;
foreach my $p (@parents) {
printdebug "considering C=$c->{Commit} P=$p->{Commit}\n";
foreach my $p (@parents) {
printdebug "considering C=$c->{Commit} P=$p->{Commit}\n";
@@
-5500,7
+5503,7
@@
sub quiltify ($$$$) {
my $patchstackchange = cmdoutput @cmd;
if (length $patchstackchange) {
$patchstackchange =~ s/\n/,/g;
my $patchstackchange = cmdoutput @cmd;
if (length $patchstackchange) {
$patchstackchange =~ s/\n/,/g;
- $not->($p,
"changed $patchstackchange"
);
+ $not->($p,
f_ "changed %s", $patchstackchange
);
}
printdebug " search queue P=$p->{Commit} ",
}
printdebug " search queue P=$p->{Commit} ",
@@
-5517,19
+5520,17
@@
sub quiltify ($$$$) {
$x =~ s/(.*?[0-9a-z]{8})[0-9a-z]*$/$1/;
return $x;
};
$x =~ s/(.*?[0-9a-z]{8})[0-9a-z]*$/$1/;
return $x;
};
- my $reportnot = sub {
- my ($notp) = @_;
- my $s = $abbrev->($notp);
- my $c = $notp->{Child};
- $s .= "..".$abbrev->($c) if $c;
- $s .= ": ".$notp->{Whynot};
- return $s;
- };
if ($quilt_mode eq 'linear') {
if ($quilt_mode eq 'linear') {
- print STDERR "\n$us: error: quilt fixup cannot be linear. Stopped at:\n";
+ print STDERR f_
+ "\n%s: error: quilt fixup cannot be linear. Stopped at:\n",
+ $us;
my $all_gdr = !!@nots;
foreach my $notp (@nots) {
my $all_gdr = !!@nots;
foreach my $notp (@nots) {
- print STDERR "$us: ", $reportnot->($notp), "\n";
+ my $c = $notp->{Child};
+ my $cprange = $abbrev->($notp);
+ $cprange .= "..".$abbrev->($c) if $c;
+ print STDERR f_ "%s: %s: %s\n",
+ $us, $cprange, $notp->{Whynot};
$all_gdr &&= $notp->{Child} &&
(git_cat_file $notp->{Child}{Commit}, 'commit')
=~ m{^\[git-debrebase(?! split[: ]).*\]$}m;
$all_gdr &&= $notp->{Child} &&
(git_cat_file $notp->{Child}{Commit}, 'commit')
=~ m{^\[git-debrebase(?! split[: ]).*\]$}m;
@@
-5539,13
+5540,13
@@
sub quiltify ($$$$) {
[ grep { $_->[0] ne 'quilt-mode' } @$failsuggestion ]
if $all_gdr;
print STDERR "$us: $_->[1]\n" foreach @$failsuggestion;
[ grep { $_->[0] ne 'quilt-mode' } @$failsuggestion ]
if $all_gdr;
print STDERR "$us: $_->[1]\n" foreach @$failsuggestion;
- fail
+ fail
__
"quilt history linearisation failed. Search \`quilt fixup' in dgit(7).\n";
} elsif ($quilt_mode eq 'smash') {
} elsif ($quilt_mode eq 'auto') {
"quilt history linearisation failed. Search \`quilt fixup' in dgit(7).\n";
} elsif ($quilt_mode eq 'smash') {
} elsif ($quilt_mode eq 'auto') {
- progress "quilt fixup cannot be linear, smashing...";
+ progress
__
"quilt fixup cannot be linear, smashing...";
} else {
} else {
-
die
"$quilt_mode ?";
+
confess
"$quilt_mode ?";
}
my $time = $ENV{'GIT_COMMITTER_DATE'} || time;
}
my $time = $ENV{'GIT_COMMITTER_DATE'} || time;
@@
-5555,12
+5556,14
@@
sub quiltify ($$$$) {
quiltify_dpkg_commit "auto-$version-$target-$time",
(getfield $clogp, 'Maintainer'),
quiltify_dpkg_commit "auto-$version-$target-$time",
(getfield $clogp, 'Maintainer'),
- "Automatically generated patch ($clogp->{Version})\n".
- "Last (up to) $ncommits git changes, FYI:\n\n". $msg;
+ (f_ "Automatically generated patch (%s)\n".
+ "Last (up to) %s git changes, FYI:\n\n",
+ $clogp->{Version}, $ncommits).
+ $msg;
return;
}
return;
}
- progress "quiltify linearisation planning successful, executing...";
+ progress
__
"quiltify linearisation planning successful, executing...";
for (my $p = $sref_S;
my $c = $p->{Child};
for (my $p = $sref_S;
my $c = $p->{Child};
@@
-5766,11
+5769,12
@@
sub unpack_playtree_linkorigs ($$) {
sub quilt_fixup_delete_pc () {
runcmd @git, qw(rm -rqf .pc);
sub quilt_fixup_delete_pc () {
runcmd @git, qw(rm -rqf .pc);
- commit_admin <<END
+ commit_admin <<END
.<<ENDU
Commit removal of .pc (quilt series tracking data)
Commit removal of .pc (quilt series tracking data)
+END
[dgit ($our_version) upgrade quilt-remove-pc]
[dgit ($our_version) upgrade quilt-remove-pc]
-END
+END
U
}
sub quilt_fixup_singlepatch ($$$) {
}
sub quilt_fixup_singlepatch ($$$) {
@@
-6063,13
+6067,13
@@
END
printdebug "differences \@dl @dl.\n";
progress sprintf
printdebug "differences \@dl @dl.\n";
progress sprintf
-"
$u
s: base trees orig=%.20s o+d/p=%.20s",
- $unapplied, $oldtiptree;
+"
%
s: base trees orig=%.20s o+d/p=%.20s",
+ $u
s, $u
napplied, $oldtiptree;
progress sprintf
progress sprintf
-"
$u
s: quilt differences: src: %s orig %s gitignores: %s orig %s\n".
-"
$u
s: quilt differences: HEAD %s o+d/p HEAD %s o+d/p",
-
$dl[0], $dl[1], $dl[3], $dl[4],
-
$dl[2], $dl[5];
+"
%
s: quilt differences: src: %s orig %s gitignores: %s orig %s\n".
+"
%
s: quilt differences: HEAD %s o+d/p HEAD %s o+d/p",
+
$us,
$dl[0], $dl[1], $dl[3], $dl[4],
+
$us,
$dl[2], $dl[5];
if (@unrepres) {
print STDERR "dgit: cannot represent change: $_->[1]: $_->[0]\n"
if (@unrepres) {
print STDERR "dgit: cannot represent change: $_->[1]: $_->[0]\n"