make-authors-short.pl

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