Re: Changelogs on kernel.org

Kristian Peters
2002-05-13T07:35:45Z

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