Hello.
I changed your perl-script int that way that it only gives out the first line of the patch. This makes the changelog less verbose but you can read the changes very quickly and if you're interested in a certain patch, you can grep the verbose one.
That makes more sense. IMHO I like it better that way. Most people want to see a little overview and are only really interested in the parts they're working on.
This is now the output:
[...]
<hch@infradead.org>
- remove global_bufferlist_lock
- fix config.in syntax errors.
- architecture-independand si_meminfo
<jsimmons@heisenberg.transvirtual.com>
- A bunch of fixes.
- Pmac updates
- Some more small fixes.
<maxk@qualcomm.com>
- Bluetooth subsystem sync up
[...]
*Kristian
#!/usr/bin/perl -w
use strict;
my %people = ();
my $addr = "";
my @cur = ();
my $comment = 0;
sub append_item() {
if (!$addr) {
return;
}
if (!$people{$addr}) {
@{$people{$addr}} = ();
}
push @{$people{$addr}}, [@cur];
@cur = ();
}
while (<>) {
# Match address
if (/^\s*<([^>]+)>/) {
# Add old item (if any) before beginning new
append_item();
$addr = $1;
$comment = 1;
} elsif ($addr) {
# Add line to patch
s/^\s*(.*)\s*$/- $1/;
$_ =~ s/\[PATCH\] //g;
$_ =~ s/\s*PATCH //g;
if ($comment == 1) {
push @cur, "\t$_\n";
$comment = 0;
}
} else {
# Header information
print;
}
}
sub print_items($) {
my @items = @{$people{$_[0]}};
# Vain attempt to sort patches from one address
@items = sort @items;
while ($_ = shift @items) {
print @$_;
}
}
append_item();
foreach $addr (sort keys %people) {
print "<$addr>\n";
print_items($addr);
print "\n";
}
:... [snd.science] ...:
:: _o)
:: http://www.korseby.net /\\
:: http://gsmp.sf.net _\_V
:.........................:
-
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to majordomo@vger.kernel.org
More majordomo info at http://vger.kernel.org/majordomo-info.html
Please read the FAQ at http://www.tux.org/lkml/
This archive was generated by hypermail 2b29 : Tue May 14 2002 - 12:00:19 EST