kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

candidates: some topics have capital letters in their names

todo
Junio C Hamano 2010-12-08 15:35:41 -08:00
parent 8a419eb2ac
commit 83f8c7461e
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
candidates
View File

@ -15,29 +15,33 @@ sub merged {
return $count;
}

my ($topic, $topic_date);
my ($topic, $topic_date, $last);
my (@candidate);

while (<>) {
if (/^\* ([a-z][a-z]\/[-a-z0-9_]+) \(([-0-9]{10})\) \d+ commit/) {
$topic = $1;
if (/^\* ([a-z][a-z]\/[-a-zA-Z0-9_]+) \(([-0-9]{10})\) \d+ commit/) {
$topic = $last = $1;
$topic_date = $2;
next;
}
if (defined $topic) {
if (/^ \(merged to 'next' on ([-0-9]{10}) at/) {
push @candidate, [$topic, $1, $topic_date];
push @candidate, [$topic, $1, $topic_date, ""];
next;
}
$topic = undef;
$topic_date = undef;
}
if (defined $last && @candidate && $candidate[-1][0] eq $last) {
if (/Will merge to 'master'/i) {
$candidate[-1][3] = "*";
}
}
}

for $topic (sort { ($a->[1] cmp $b->[1]) || ($a->[2] cmp $b->[2]) } @candidate) {
my $count = merged($topic->[0], 'master');
if ($count) {
print "$topic->[1] $topic->[2] ($count) $topic->[0]\n";
print "$topic->[1] $topic->[2] ($count) $topic->[3]$topic->[0]\n";
}
}