doc/make-authors-short.pl

   1 # Remove tasks from individual author entries from AUTHORS file
   2 # for use in the about dialog.
   3 #
   4 # Must be called via perlnoutf.
   5 #
   6 # Copyright 2004 Ulf Lamping <ulf.lamping@web.de>
   7 #
   8 # Wireshark - Network traffic analyzer
   9 # By Gerald Combs <gerald@wireshark.org>
  10 # Copyright 1998 Gerald Combs
  11 #
  12 # This program is free software; you can redistribute it and/or
  13 # modify it under the terms of the GNU General Public License
  14 # as published by the Free Software Foundation; either version 2
  15 # of the License, or (at your option) any later version.
  16 #
  17 # This program is distributed in the hope that it will be useful,
  18 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 # GNU General Public License for more details.
  21 #
  22 # You should have received a copy of the GNU General Public License
  23 # along with this program; if not, write to the Free Software
  24 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  25
  26 use strict;
  27
  28 my $subinfo=0;
  29 my $nextline;
  30
  31 $_ = <>;
  32 s/\xef\xbb\xbf//;               # Skip UTF-8 byte order mark
  33 print unless /^\n/;
  34
  35 while (<>) {
  36         if (/(.*?)\s*\{/) {
  37                 $subinfo = 1;
  38                 print "$1\n";
  39         } elsif (/\}/) {
  40                 $subinfo = 0;
  41                 if (($nextline = <>) !~ /^[\s]*$/) {
  42                         print STDERR "Missing newline after '}', found: $nextline"
  43                                 if $nextline =~ m/\{/;
  44                         print $nextline;
  45                 }
  46         } elsif ($subinfo == 1) {
  47                 next;
  48         } else {
  49                 print;
  50         }
  51 }