reiserfs of course ;-)
> Thank you.
Here we go:
Unable to handle kernel paging request at virtual address 00268eb7
c014f5a3
*pde = 00000000
Oops: 0000
CPU: 1
EIP: 0010:[<c014f5a3>] Not tainted
Using defaults from ksymoops -t elf32-i386 -a i386
EFLAGS: 00010202
eax: 00000000 ebx: e34b05c0 ecx: e34b05d0 edx: d1da1c40
esi: d6c03e00 edi: 00268ea7 ebp: 0000318e esp: f7edff34
ds: 0018 es: 0018 ss: 0018
Process kswapd (pid: 5, stackpage=f7edf000)
Stack: d1da1c58 e34b05c0 e34b05c0 c017a75f e34b05c0 d1da1c58 d1da1c40 c014cf20
d1da1c40 e34b05c0 00000006 000001d0 00000020 00000006 c014d2ab 000108c9
c0132046 00000006 000001d0 00000006 00000020 000001d0 c02d94b4 c02d94b4
Call Trace: [<c017a75f>] [<c014cf20>] [<c014d2ab>] [<c0132046>] [<c013209c>]
[<c01321a1>] [<c0132206>] [<c013232d>] [<c0105708>]
Code: 8b 47 10 85 c0 74 06 53 ff d0 83 c4 04 68 f0 a3 2d c0 8d 43
>>EIP; c014f5a2 <iput+32/1f0> <=====
Trace; c017a75e <journal_blocks_per_page+b92e/25f20>
Trace; c014cf20 <prune_dcache+e0/180>
Trace; c014d2aa <shrink_dcache_parent+3a/60>
Trace; c0132046 <kmem_find_general_cachep+1696/2150>
Trace; c013209c <kmem_find_general_cachep+16ec/2150>
Trace; c01321a0 <kmem_find_general_cachep+17f0/2150>
Trace; c0132206 <kmem_find_general_cachep+1856/2150>
Trace; c013232c <kmem_find_general_cachep+197c/2150>
Trace; c0105708 <kernel_thread+28/1f0>
Code; c014f5a2 <iput+32/1f0>
00000000 <_EIP>:
Code; c014f5a2 <iput+32/1f0> <=====
0: 8b 47 10 mov 0x10(%edi),%eax <=====
Code; c014f5a4 <iput+34/1f0>
3: 85 c0 test %eax,%eax
Code; c014f5a6 <iput+36/1f0>
5: 74 06 je d <_EIP+0xd> c014f5ae <iput+3e/1f0>
Code; c014f5a8 <iput+38/1f0>
7: 53 push %ebx
Code; c014f5aa <iput+3a/1f0>
8: ff d0 call *%eax
Code; c014f5ac <iput+3c/1f0>
a: 83 c4 04 add $0x4,%esp
Code; c014f5ae <iput+3e/1f0>
d: 68 f0 a3 2d c0 push $0xc02da3f0
Code; c014f5b4 <iput+44/1f0>
12: 8d 43 00 lea 0x0(%ebx),%eax
Soeren.
-
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/
sub doprint(\%@ ); # forward declaration
my %address_unknown;
# get name associated to an email address sub rmap_address { my @o = map {defined $addresses{$_} ? $addresses{$_} : scalar (($address_unknown{$_} = 1), $_); } map { lc; } @_; return wantarray ? @o : $o[0]; }
# case insensitive string comparison # FIXME: use locale? sub caseicmp { uc($a) cmp uc($b) };
# case insensitive string comparison by surname # Strings are of the form # "Firstname Surname <mailaddress>" # or # "<mailaddress>" sub caseicmpbysurname { my $alast = ""; my $blast = ""; if ($a =~ m/(\S+)\s*(\s\<|$)/) { $alast = $1; } if ($b =~ m/(\S+)\s*(\s\<|$)/) { $blast = $1; } return uc($alast . $a) cmp uc($blast . $b); }
my ($author, $address, $name); # * $address is always an email address # * $author can be the email address or Joe N. Sixpack II <joe6@example.com> # (ready formatted to print) # * $name is the name (Joe N. Sixpack II) or the mail address # (<joe6@example.com>)
sub get_name() { return $name; } sub get_author() { return $author; }
# This table maps MODE => { myhash } # myhash knows the keys "index" and "print" to choose the respective functions my %table = ( 'oneline' => { 'index' => \&get_name, 'print' => \&print_oneline }, 'terse' => { 'index' => \&get_name, 'print' => \&print_terse }, 'grouped' => { 'index' => \&get_author, 'print' => \&print_grouped }, 'full' => { 'index' => \&get_author, 'print' => \&print_full } );
# temp store my $indexby;
# The sort function we will use my $namesortfunc;
# Global store ############# # We store our options here. my %opt;
# As we are parsing, the log is accumulated in the @cur array. When # we are done with one item (end of input or new mail address found), # stuff a copy of this @cur array into the %log hash. sub append_item(\%@) # arguments: reference to hash # array to push { my $log = shift; my @cur = @_; return unless @cur; return unless &$indexby; $log->{&$indexby} = () unless defined $log->{&$indexby};
# strip trailing blank lines my $t; while (($t = pop(@cur)) eq '') { }; push @cur, $t;
# store the array push @{$log->{&$indexby}}, [@cur]; }
# Remove duplicates from hash, without changing the order. # Prefix duplicates with the count. sub countdups(@) { my %t; croak "do not call removedups() in scalar context" unless wantarray; my @u = grep (!$t{lc $_}++, @_); return map { $t{lc $_} > 1 ? sprintf("%d x ", $t{lc $_}) . $_ : $_; } @u; }
# Remove duplicates from array, without changing the order. The # duplicates need not follow each other, so A B A is properly # stripped down to A B sub removedups(@) { my %t; croak "do not call removedups() in scalar context" unless wantarray; return grep (!$t{lc $_}++, @_); }
# Compress the hash passed in, depending on the --compress and --count # options in the %opt hash. sub compress(@) { croak "do not call compress() in scalar context" unless wantarray; if ($opt{compress}) { if ($opt{count}) { return countdups(@_); } else { return removedups(@_); } } else { return @_; } }
# report write error, exit # do not return sub write_error() { croak "Write error: $!\nAborting"; exit (1); }
# implementation of "grouped" output: # author: # first line of log1 # first line of log2 sub print_grouped(\%) { my $log = shift; for (sort $namesortfunc keys %$log) { my @lines = compress(map { $_->[0] . "\n"; } @{$log->{$_}}); if ($opt{width}) { @lines = map { expand(wrap($indent1, $indent, ($_))); } @lines; } else { @lines = map { "$indent1$_" } @lines; } printtag($_) or write_error(); print join("", @lines), "\n" or write_error(); } }
# implementation of "full" output # author: # o log1 # more information on changeset1 # o log2 # more information on changeset2 sub print_full(\%) { my $log = shift; for (sort $namesortfunc keys %$log) { printtag($_) or write_error(); foreach (compress(@{$log->{$_}})) { my @lines = map { s/^\t//; "$_\n"; } @$_; if ($opt{width}) { @lines = expand(wrap($indent1, $indent, @lines)); } else { @lines = map { "$indent$_"; } @lines; substr($lines[0], $[, length($indent1)) = $indent1; } print join("", @lines), "\n" or write_error(); } } print "\n" or write_error(); }
# implementation of "terse" output # with --swap without --swap # author1: log1 log1 (author1) # author1: log2 log2 (author2) # author2: log3 log3 (author3) sub print_terse(\%) { my $log = shift; for (sort $namesortfunc keys %$log) { my $a = $_; if ($opt{width}) { if ($opt{swap}) { foreach (compress(map { $_->[0]; } @{$log->{$_}})) { my @lines = expand(wrap($indent1, $indent, ("$a: $_"))); print join("\n", @lines), "\n" or write_error(); } } else { # width, but not swap set foreach (compress(map { $_->[0]; } @{$log->{$_}})) { my @addr = expand(split(/\n/, wrap('', $indent, " ($a)"))); my @lines = expand(split(/\n/, wrap($indent1, $indent, ($_))));
if (length($lines[$#lines]) + length($addr[0]) > $opt{width}) { push @lines, ''; } $lines[$#lines] .= sprintf("%*s", $opt{width} - length($lines[$#lines]), $addr[0]); shift @addr; print join("\n", @lines), "\n" or write_error(); foreach (@addr) { printf "%*s\n", $opt{width}, $_ or write_error(); } } } } else { # using the ?: operator within the map is more maintainable, but # less efficient. if ($opt{swap}) { print join("\n", map { "$indent1$a: $_" } compress(map { $_->[0]; } @{$log->{$_}})), "\n" or write_error(); } else { print join("\n", map { "$indent1$_ ($a)" } compress(map { $_->[0]; } @{$log->{$_}})), "\n" or write_error(); } } } }
# implementation of "oneline" output # which is similar to terse but reformats to one line exactly # with --swap without --swap # author1: log1 log1 (author1) # author1: log2 log2 (author2) # author2: log3 log3 (author3) sub print_oneline(\%) { my $log = shift; for (sort $namesortfunc keys %$log) { my $a = $_; if ($opt{width}) { if ($opt{swap}) { foreach (compress(map { $_->[0]; } @{$log->{$_}})) { my $str = "$a: $_"; if (length($str) > $opt{width}) { printf "%-.*s...\n", $opt{width}-3, $indent1 . "$a: $_" or write_error(); } else { printf "%-.*s\n", $opt{width}, $indent1 . "$a: $_" or write_error(); } } } else { # not swapping foreach (compress(map { $_->[0]; } @{$log->{$_}})) { my $l = $opt{width} - length($indent1) - length($a) - 3; if (length($_) > $l) { $l -= 3; printf "%s%-*.*s... (%s)\n", $indent1, $l, $l, $_, $a; } else { printf "%s%-*.*s (%s)\n", $indent1, $l, $l, $_, $a; } } } } else { # not $opt{width} -> same as print_terse print_terse(%$log); } } }
# Abbreviate all components of the name except the last. If capital # Roman numerals form the last component, leave that and the previous # component alone. sub abbreviate_name($ ) { my @a = split /\s+/, $_[0];
# treat Roman numerals as last part of name my $off = 0; $off = 1 if ($a[$#a] =~ /^[IVXLCMD]+$/);
for (my $i = 0; $i < $#a - $off; $i++) { $a[$i] =~ s/^(.).*/$1./; } return join(" ", @a); }
# Read a file and parse it into the %log hash. sub parse_file(\%$$ ) { # arguments: %log hash # file name # file handle (IO::Handle or IO::File) croak unless wantarray; my $log = shift; my $fn = shift; my $fh = shift; my @prolog; local $_;
# initialize my @cur = (); my $first = 0; my $firstpar = 0; undef $address;
# now go!
# NOTE: the first @cur item can consist of multiple lines in the # source file which are joined together. This happens when the first # paragraph is longer than a single line. while($_ = $fh -> getline) { chomp; s/^ (\S)/\t$1/; # expand all tabs but the first $_ = expand($_); s/^ /\t/;
if (defined $address and $opt{multi} and m{^[^<[:space:]]} and not m{^ChangeSet@}) { # if we are in multi mode, if we encounter a non-address # left-justified line, flush all data and print the header. The # defined $address trick lets this only trigger to switch back # from "log entry" to "prolog" mode append_item(%$log, @cur); @cur = (); doprint(%$log, @prolog); print "\n" or write_error(); # print blank line between changelogs @prolog = ($_); undef %$log; undef $address; } elsif (m{^<([^>]+)>} or m{^ChangeSet@[0-9.]+,\s*[-0-9:+ ]+,\s*(.*)}) { # go figure if a line starts with an address, if so, take it # resolve the address to a name if possible append_item(%$log, @cur); @cur = (); $address = lc($1); $address =~ s/\[[^]]+\]$//; $name = rmap_address($address); if ($name ne $address) { if ($opt{'abbreviate-names'}) { $name = abbreviate_name($name); } $author = $name . ' <' . $address . '>'; } else { $author = '<' . $address . '>'; } $first = 1; $firstpar = 1; } elsif ($first) { # we have a "first" line after an address, take it, # strip common redundant tags
# kill "PATCH" tag s/^\s*\[PATCH\]//; s/^\s*PATCH//; s/^\s*[-:]+\s*//;
# strip trailing colon or period, and if we strip one, # we don't parse further lines as part of the first paragraph if (s/[:.]+\s*$//) { $firstpar = 0; }
# kill leading and trailing whitespace for consistent indentation s/^\s+//; s/\s+$//;
push @cur, $_; $first = 0; } elsif (defined $address) { # second or subsequent lines -- if in first paragraph, # append this line to the first log line. if (m/^\s*$/) { $firstpar = 0; } elsif (m/^\s*[-*o\#]/) { $firstpar = 0; } if ($firstpar) { s/^\s*/ /; $cur[0] .= $_; } else { push @cur, $_; } # we don't parse further lines as part of the first paragraph if (s/[:.]+\s*$//) { $firstpar = 0; } } else { # store header before a changelog push @prolog, $_; } }
if ($fh -> error) { die "Error while reading from \"$fn\": $!"; }
# at file end, flush @cur array to %log. append_item(%$log, @cur);
return @prolog; }
# print a word-wrapped name or mail address, followed by a trailing colon. # used by print_grouped and print_full # passes the return value of print back up sub printtag($ ) { my $a = shift; $a .= ':'; return print $opt{width} ? expand(wrap("", "", ($a))) : $a, "\n"; }
# === MAIN PROGRAM =============================================== # Command line arguments # What options do we support? my @opts = ("help|?|h", "man", "mode=s", "compress!", "count!", "width:i", "swap!", "merge!", "warn!", "multi!", "abbreviate-names!", "by-surname!"); # "bitkeeper|bk!");
# How do we parse them? if ($Getopt::Long::VERSION gt '2.24') { Getopt::Long::Configure("gnu_getopt"); }
# set default options $opt{mode} = 'grouped'; $opt{warn} = 1;
# Parse from environment, temporarily storing the original @ARGV. if (defined $ENV{LINUXKERNEL_BK_FMT}) { my @savedargs = @ARGV; @ARGV = parse_line('\s+', 0, $ENV{LINUXKERNEL_BK_FMT}); GetOptions(\%opt, @opts) or pod2usage(-verbose => 0, -message => $0 . ': error in $LINUXKERNEL_BK_FMT'); push @ARGV, @savedargs; }
# Parse command line. Handle help, check for errors. GetOptions(\%opt, @opts) or pod2usage(-verbose => 0); pod2usage(-verbose => 1) if $opt{help}; pod2usage(-verbose => 2) if $opt{man}; pod2usage(-verbose => 0, -message => ("$0: Unknown mode specified.\nValid modes are:\n " . join(" ", sort keys %table) . "\n")) unless defined $table{$opt{mode}}; pod2usage(-verbose => 0, -message => "$0: No files given, refusing to read from a TTY.") if (not $opt{bitkeeper} and (@ARGV == 0) and (-t STDIN)); pod2usage(-verbose => 0, -message => "$0: Must have one or two arguments in --bitkeeper mode.") if ($opt{bitkeeper} && (@ARGV < 1 || @ARGV > 2)); pod2usage(-verbose => 0, -message => "$0: You cannot use --merge and --multi at the same time.") if ($opt{merge} and $opt{multi});
# Shortcut for programmer convenience :-) $indexby = $table{$opt{mode}}->{'index'};
# --count implies --compress if ($opt{count}) { $opt{compress} = 1; }
# Set the sort function $namesortfunc = \&caseicmp; if ($opt{'by-surname'}) { $namesortfunc = \&caseicmpbysurname; }
# if --width is without argument or the argument is zero, # try to figure $COLUMNS or fall back to 80. if (exists $opt{width} and not $opt{width}) { $opt{width} = $ENV{COLUMNS} ? $ENV{COLUMNS} : 80; }
# Print the passed-in array linewise, checking for write errors # Then call the configured function to print %log formatted sub doprint(\%@ ) { my $log = shift; print join("\n", @_), "\n" or write_error(); $table{$opt{mode}}->{print}->($log); }
# -------------------------------------------------------------------- # Global initializations $Text::Tabs::tabstop = 8; $Text::Wrap::huge = 'wrap'; if ($opt{width}) { $Text::Wrap::columns = $opt{width}; }
if ($debug) { print STDERR "DEBUG: Options summary:\n"; while (my ($k, $v) = each %opt) { print STDERR "DEBUG: '$k' => '$v'\n"; } print STDERR "DEBUG: Arguments summary:\n"; foreach (@ARGV) { print STDERR "DEBUG: '$_'\n"; } }
# Main program my @prolog; my %log;
if($opt{bitkeeper}) { # in Bitkeeper mode, try to figure the change set, and connect the # bk program to our stdin. die "not yet implemented"; } elsif (@ARGV) { # file names foreach my $fn (@ARGV) { my $fh = new IO::File; $fh->open($fn, "r") or die "cannot open \"$fn\": $!\nAborting"; push @prolog, parse_file(%log, $fn, $fh); if (not $opt{merge}) { doprint(%log, @prolog); undef %log; } undef @prolog; }
if ($opt{merge}) { doprint(%log, ()); } } else { # stdin my @prolog; my $fh = new IO::Handle; $fh->fdopen(fileno(STDIN), "r") or die "cannot open stdin: $!\nAborting"; @prolog = parse_file(%log, "stdin", $fh); doprint(%log, @prolog); }
# Flush STDOUT to prevent clobbering STDOUT with 2>&1-style redirections. $| = 1;
# Warn about unknown addresses if ($opt{warn}) { foreach (sort caseicmp keys %address_unknown) { print STDERR "Warning: unknown address \"$_\"\n" or write_error(); } }
__END__ # -------------------------------------------------------------------- # $Log: lk-changelog.pl,v $ # Revision 0.83 2003/03/19 08:19:48 vita # Added 4 new names for addresses from current linux-2.5 BK tree. # # Revision 0.82 2003/03/17 08:26:30 vita # Added 2 new names. # # Revision 0.81 2003/03/10 15:38:27 vita # Added 4 new names for addresses from current linux-2.5 BK tree. # # Revision 0.80 2003/03/07 13:31:57 vita # Added 7 new names for addresses from current linux-2.5 BK tree. # # Revision 0.79 2003/03/04 16:59:15 vita # Added 5 new names for addresses from both current BK trees. # # Revision 0.78 2003/02/27 12:01:54 emma # Credit Vita in AUTHOR section of POD. # # Revision 0.77 2003/02/27 10:52:59 vita # Added 7 new names for addresses from both current BK trees. # # Revision 0.76 2003/02/24 20:04:23 vita # Added 7 new names for addresses from current linux-2.5 BK tree. # # Revision 0.75 2003/02/21 12:41:18 vita # Added 5 new names for addresses from current linux-2.4 BK tree. # # Revision 0.74 2003/02/19 11:15:14 vita # Added 7 new addresses found by Google. # # Revision 0.73 2003/02/14 10:45:45 vita # Added 5 new addresses found by Google. # # Revision 0.72 2003/02/06 16:10:23 vita # Added 6 new addresses found by Google. # # Revision 0.71 2003/02/05 11:22:06 emma # New addresses Vita pulled out. # # Revision 0.70 2003/02/03 14:58:04 emma # Vita dug out more addresses. # # Revision 0.69 2003/01/28 23:30:02 emma # Another four addresses by Vita. # # Revision 0.68 2003/01/20 10:22:08 emma # Add new address for Rolf Eike Beer. # # Revision 0.67 2003/01/19 14:32:55 emma # Further addresses figured out by Vita. # # Revision 0.66 2003/01/18 12:44:33 emma # New addresses found out by Vita. # # Revision 0.65 2003/01/13 14:12:09 emma # New addresses dug out by Vita. # # Revision 0.64 2003/01/08 14:48:50 emma # New addresses by Vita. # # Revision 0.63 2003/01/08 14:47:37 emma # New addresses by Vita. # # Revision 0.62 2002/12/27 16:59:28 emma # Another ten addresses sent by Vitezslav Samel. # # Revision 0.61 2002/12/14 14:28:49 emma # Bjorn Helgaas only uses the transscribed version of his name himself. # # Revision 0.60 2002/12/13 14:51:35 emma # Next dozen of addresses digged out by Vita. # # Revision 0.59 2002/12/11 12:11:51 emma # Workaround: strip trailing [tag] from mail addresses, reported by Marcel # Holtmann. # Add some new addresses. # # Revision 0.58 2002/12/07 15:14:57 emma # More addresses figured by Vitezslav Samel. # # Revision 0.57 2002/12/07 15:08:34 emma # 3 more addresses. # # Revision 0.56 2002/11/28 02:32:11 emma # List David Weinehall. # # Revision 0.55 2002/11/27 04:44:54 emma # Add kaos@sgi.com for Keith Owens as per his own request. # # Revision 0.54 2002/11/26 23:27:11 emma # Merge changes from Linus' version. # # Revision 0.53 2002/11/25 17:12:08 emma # Add Lee Nash's address # # Revision 0.52 2002/11/14 14:50:21 emma # Bugfix --by-surname for some modes. Add two addresses. Fix Carl-Daniel Hailfinger's address to lower case. # # Revision 0.51 2002/11/14 14:31:10 emma # Add Carl-Daniel Hailfinger's new address. Add TODO item to see if regexp/wildcard match in address list is possible. # # Revision 0.50 2002/11/09 14:24:21 emma # Add comment to Richard Hitt's address. # # Revision 0.49 2002/11/04 17:13:21 emma # Add 4 addresses sent by Duncan Laurie. # # Revision 0.48 2002/11/04 12:37:38 emma # Another four dozen addresses, courtesy of Vitezslav Samel. # # Revision 0.47 2002/11/04 12:19:17 emma # Vitezslav Samel: Merge bugfix to treat addresses with upper-case characters in ChangeSet. # # Revision 0.46 2002/11/04 11:37:33 emma # 7 new addresses. # # Revision 0.45 2002/11/04 11:26:41 emma # 18 new addresses. # # Revision 0.44 2002/10/04 03:37:51 emma # Track BK-kernel-tools changes to Jes Sorensen's name. # # Revision 0.43 2002/10/04 03:33:47 emma # 4 new addresses. # # Revision 0.42 2002/10/01 20:20:33 emma # Another 25 addresses for ChangeLog 2.5.3?, from google and lbdb. # # Revision 0.41 2002/10/01 19:45:20 emma # Some detective work on google found another 19 addresses. # # Revision 0.40 2002/09/30 01:44:51 emma # Drop bogus geert@linux-m68k.org.com address. # # Revision 0.39 2002/09/26 23:07:13 emma # 46 new addresses from lbdb # # Revision 0.38 2002/09/26 22:37:29 emma # 23 new addresses # # Revision 0.37 2002/09/26 22:27:37 emma # Fix --multi mode. # # Revision 0.36 2002/08/29 09:13:40 emma # Correct Vojtech Pavlik's addresses after mail from him. # # Revision 0.35 2002/08/21 13:49:46 emma # Many new addresses and one correction by Vitezslav 'Vita' Samel <samel@mail.cz> # # Revision 0.34 2002/08/21 13:45:53 emma # 2 new names # # Revision 0.33 2002/08/20 01:29:34 emma # The usual set of new addresses. # # Revision 0.32 2002/08/20 01:14:40 emma # Add Marcel Holtmann, who sent a patch. # # Revision 0.31 2002/08/12 22:34:41 emma # Patch by Marcus Alanen <maalanen@ra.abo.fi>: # Hi, patch to sort by developer surname, and a couple of more # developers. Use if you want to. # # Revision 0.30 2002/07/20 17:18:28 emma # Add one new address # # Revision 0.29 2002/07/17 23:10:13 emma # 23 new addresses. # # Revision 0.28 2002/06/25 09:46:57 emma # New mail addresses. # # Revision 0.27 2002/06/14 17:05:23 emma # three new addresses # # Revision 0.26 2002/06/06 10:26:51 emma # Get rid of global %log, pass it to sub functions by reference. # Move IO::Handle/IO::File treatment back into main program. # Prepare for integrating Bitkeeper. # # Revision 0.25 2002/06/04 00:01:23 emma # Recognize "bk changes" output format (that is: "ChangeSet@1.234.5.6, # date, programmer" tag line and body indented by two spaces). Reported # by Marcelo Tosatti <marcelo@conectiva.com.br>. Former versions would # only recognize the BK-kernel-tools/changelog format (see # http://gkernel.bkbits.net:8080/BK-kernel-tools/anno/changelog@1.5?nav=index.html|src/). # # Revision 0.24 2002/06/03 13:33:00 emma # * Fix 'grouped', 'terse', 'oneline' modes (change to parse_file()). We # now take the first paragraph instead of the first line as log # entry. We also guess where the paragraph ends, it ends at a line with # trailing dot or colon, or if the next line is empty or starts with a # "bullet" (that is -, *, o or #). # * New option --abbreviate-names. # * Fix 'full' mode indentation, broken in v0.21 by expanding the tabs. # Now, the first tab is unexpanded again. # * Enhance 'online' mode: if the log is truncated, append an ellipsis ("..."). # * Add more mail addresses. # * Fix Brian Beattie's name (was "Michael Beattie"). # # Revision 0.23 2002/06/03 12:36:01 emma # More e-mail addresses. # # Revision 0.22 2002/05/29 20:28:20 emma # Mail addresses added. # # Revision 0.21 2002/05/29 11:45:48 emma # * Implement --mode=oneline. # * Expand tabs in input lines (tab stops are spaced 8 columns away from each other). # * Bugfix --multi mode: all append_item to flush @cur before printing. # * Restore prolog detection in --multi mode for efficiency. # * Undo the "unexpand()" that Text::Wrap does, it breaks our line width # calculation. In the long run, a replacement for Text::Wrap must be # found that does not unexpand(). # # Revision 0.20 2002/05/29 10:44:35 emma # New --multi option that states multiple changelogs are in the same file. # # Revision 0.19 2002/05/29 10:27:21 emma # New option: --[no]warn: Warn about unknown addresses. By default # enabled, use --nowarn to suppress. # # Revision 0.18 2002/05/29 10:17:00 emma # New addresses. # # Revision 0.17 2002/05/25 23:32:49 emma # Four new addresses. # # Revision 0.16 2002/05/22 15:52:26 emma # Fix deliberate typo in use Pod::Usage that was left over from debugging. # # Revision 0.15 2002/05/22 14:05:13 emma # Sort addresses/names case insensitively (not locale aware). # Heed quotes when parsing $ENV{LINUXKERNEL_BK_FMT}. As I don't # currently have Perl 5.004 to test the older Text::ParseWords # implementation, script now requires Perl 5.005. # Do not require Pod::Usage, but warn if it's missing. # # Revision 0.14 2002/05/22 12:39:59 emma # Fold the print function dispatcher into %table. # Parse files on command line individually, but allow to treat them as # one with a new --merge option. # Make @cur local to the parse function. # Die on read errors on input files. Use IO::Handle to read files. # # Revision 0.13 2002/05/21 12:42:46 emma # Add 3 mail addresses. # Add commentary to the code. # Check for write errors on STDOUT and die if one happens. # # Revision 0.12 2002/05/18 16:54:50 emma # Make --compress work in terse mode. # New feature: --swap in terse mode swaps address and log entry. # # Revision 0.11 2002/05/18 16:43:30 emma # Support 'terse' mode. # # Revision 0.10 2002/05/18 16:15:10 emma # Another set of addresses. # # Revision 0.9 2002/05/18 16:06:43 emma # Dozens of new addresses. # # Revision 0.8 2002/05/18 15:46:01 emma # 21 new addresses. # # Revision 0.7 2002/05/16 13:57:37 emma # Add some documentation. # # Revision 0.6 2002/05/16 13:55:24 emma # Fix shift ambiguity in printtag(). # # Revision 0.5 2002/05/16 13:51:43 emma # Implement grouped and full modes. # # Revision 0.4 2002/05/16 12:07:17 emma # Add some POD. # Do options and environment parsing. # Prepare multiple output modes (only grouped supported at the moment.) # # Revision 0.3 2002/05/13 16:11:34 emma # Compress identical ChangeLog lines (they need not be subsequent, note # this feature has O(n^2) behaviour, where n is the number of stored # ChangeLog lines per respective author): # Soft-fp fix: # Soft-fp fix: # becomes: # 2 x Soft-fp fix: # # Revision 0.2 2002/05/13 10:40:32 emma # Only consider e-mail addresses that are left-justified. # Suggested by Greg Kroah-Hartman <greg@kroah.com>. # =head1 NAME
lk-changelog.pl - Reformat BitKeeper ChangeLog for Linux Kernel
=head1 SYNOPSIS
lk-changelog.pl [options] [file [...]]
Try lk-changelog.pl --help or lk-changelog.pl --man for more information.
=head1 OPTIONS
-h, --help print this short help --man print the manual page for this program
--[no]compress if true, suppress duplicate entries --[no]count if true, fold duplicate entries into one, prefixing it with the count. Implies --compress. --[no]swap in terse and oneline mode, swap address and log entry. --[no]merge treat all files on command line as one big file and suppress the prolog --[no]multi states that multiple changelogs are in one file --[no]warn warn about unknown addresses. Default: set! --[no]abbreviate-names abbreviate all but the last name --[no]by-surname sort entries by surname
--mode=MODE specify the output format (use --man to find out more) --width[=WIDTH] specify the line length, if omitted: $COLUMNS or 80. text lines will not exceed this length.
Warning: Neither --compress nor --count are currently functional with --mode=full.
=head1 DESCRIPTION
Summarizes or reformats BitKeeper ChangeLogs for Linux Kernel 2.X.
=head1 ENVIRONMENT
=over
=item LINUXKERNEL_BK_FMT
Default options. These have the same meaning and syntax as the command line options and are parsed before them, so you can override defaults set in this variable on the command line. B<Example:> If you put --swap here and --noswap on your command line, --noswap takes precedence.
=back
=head1 EXAMPLES
=over
=item Reformat ChangeLog-2.5.17, displaying all changes grouped by their author (that is the default mode, but we specify it anyways), with 76 character wide lines:
lk-changelog.pl --mode=grouped --width=76 ChangeLog-2.5.17
=item Reformat ChangeLog-2.5.18, displaying all changes and their author on in "-ac changelog style", with 80 character wide lines:
lk-changelog.pl --mode=terse --width=80 ChangeLog-2.5.18
=item Reformat 2.4.19-pre ChangeLogs (several in one file) from your mailer:
Use the pipe command to pipe the mail into:
lk-changelog.pl --multi --mode=terse --width=80
=back
=head1 AUTHOR
=over
=item * Matthias Andree <matthias.andree@gmx.de>
Main developer
=item * Marcus Alanen <maalanen@abo.fi>
=item * Tomas Szepe <szepe@pinerecords.com>
=item * Vitezslav Samel <samel@mail.cz>
Has dug out several dozens of addresses.
=item * Further help from:
Albert D. Cahalan <acahalan@cs.uml.edu>, Robinson Maureira Castillo <rmaureira@alumno.inacap.cl>, Greg Kroah-Hartman <greg@kroah.com>.
=back
=head1 BUGS
=over
=item * The header is not wrapped for --width character wide lines.
=item * The implementation is not yet finished.
=item * This manual page is incomplete.
=item * --compress does not currently work with --mode=full.
=item * does not detect if the changelog is already summarized (as in Marcelo's 2.4.19-pre9 announcement on the list)
=back
=head1 TODO
=over
=item * --compress-me-harder
To merge o iget_locked [1/6] o iget_locked [2/6] ... o iget_locked [6/6] into o iget_locked [1..6/6]
=item * Integrate Bitkeeper
=item * See if the map can be made to use or accompanied by regexp.
=back
=cut
- 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/