tools/make_authors

   1 #! /usr/bin/perl
   2 #
   3 # Generate AUTHORS
   4 #
   5 # Copyright 1998 Alexandre Julliard
   6 #
   7 # This library is free software; you can redistribute it and/or
   8 # modify it under the terms of the GNU Lesser General Public
   9 # License as published by the Free Software Foundation; either
  10 # version 2.1 of the License, or (at your option) any later version.
  11 #
  12 # This library is distributed in the hope that it will be useful,
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 # Lesser General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU Lesser General Public
  18 # License along with this library; if not, write to the Free Software
  19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20 #
  21
  22 open(AUTHORS,"<AUTHORS") or die "Can't open AUTHORS";
  23 open(NEWAUTHORS,">AUTHORS.new");
  24 while(<AUTHORS>)
  25   {
  26     print NEWAUTHORS;
  27     last if /^$/;
  28   }
  29 while(<AUTHORS>)
  30   {
  31     chop;
  32     push @authors, $_;
  33   }
  34
  35 # Sort them
  36 sub cmpnames
  37   {
  38     @anames = split(" ",$a);
  39     @bnames = split(" ",$b);
  40     $ret = $anames[-1] cmp $bnames[-1];
  41     $ret = $anames[0] cmp $bnames[0] unless $ret;
  42     return $ret;
  43   }
  44 @authors = sort cmpnames @authors;
  45
  46 # Print authors
  47 print NEWAUTHORS (join "\n", @authors) . "\n";
  48 print "Created AUTHORS.new\n";