doc/make-authors-short.pl

   1 # $Id$
   2
   3 # Remove tasks from individual author entries from AUTHORS file
   4 # for use in the about dialog.
   5 #
   6 # Must be called via perlnoutf.
   7
   8 use strict;
   9
  10 my $subinfo=0;
  11 my $nextline;
  12
  13 $_ = <>;
  14 s/\xef\xbb\xbf//;               # Skip UTF-8 byte order mark
  15 print unless /^\n/;
  16
  17 while (<>) {
  18         if (/(.*){/) {
  19                 $subinfo = 1;
  20                 print "$1\n";
  21         } elsif (/}/) {
  22                 $subinfo = 0;
  23                 if (($nextline = <>) !~ /^[\s]*$/) {
  24                         print $nextline;
  25                 }
  26         } elsif ($subinfo == 1) {
  27                 next;
  28         } else {
  29                 print;
  30         }
  31 }