make-authors-short2.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 printline() unless /^\n/;
  19
  20 while (<>) {
  21         if (/(.*){/) {
  22                 $subinfo = 1;
  23                 printline("$1\n");
  24         } elsif (/}/) {
  25                 $subinfo = 0;
  26                 if (($nextline = <>) !~ /^[\s]*$/) {
  27                         print($nextline);
  28                 }
  29         } elsif ($subinfo == 1) {
  30                 next;
  31         } else {
  32                 printline();
  33         }
  34 }
  35
  36 print "\n=for html </pre>\n";
  37 print "\n=for man .fi\n";
  38
  39 sub printline {
  40         my $line = shift || $_;
  41 #
  42 # Translate UTF-8 characters to the E<> escapes handled by Pod::Man
  43 # (and only those, since they're a subset of HTML entities)
  44 #
  45         $line =~ s/\xc3\x80/E<Agrave>/g;
  46         $line =~ s/\xc3\x81/E<Aacute>/g;
  47         $line =~ s/\xc3\x82/E<Acirc>/g;
  48         $line =~ s/\xc3\x83/E<Atilde>/g;
  49         $line =~ s/\xc3\x84/E<Auml>/g;
  50         $line =~ s/\xc3\x85/E<Aring>/g;
  51         $line =~ s/\xc3\x86/E<AElig>/g;
  52         $line =~ s/\xc3\x87/E<Ccedil>/g;
  53         $line =~ s/\xc3\x88/E<Egrave>/g;
  54         $line =~ s/\xc3\x89/E<Eacute>/g;
  55         $line =~ s/\xc3\x8a/E<Ecirc>/g;
  56         $line =~ s/\xc3\x8b/E<Euml>/g;
  57         $line =~ s/\xc3\x8c/E<Igrave>/g;
  58         $line =~ s/\xc3\x8d/E<Iacute>/g;
  59         $line =~ s/\xc3\x8e/E<Icirc>/g;
  60         $line =~ s/\xc3\x8f/E<Iuml>/g;
  61         $line =~ s/\xc3\x90/E<ETH>/g;
  62         $line =~ s/\xc3\x91/E<Ntilde>/g;
  63         $line =~ s/\xc3\x92/E<Ograve>/g;
  64         $line =~ s/\xc3\x93/E<Oacute>/g;
  65         $line =~ s/\xc3\x94/E<Ocirc>/g;
  66         $line =~ s/\xc3\x95/E<Otilde>/g;
  67         $line =~ s/\xc3\x96/E<Ouml>/g;
  68         $line =~ s/\xc3\x98/E<Oslash>/g;
  69         $line =~ s/\xc3\x99/E<Ugrave>/g;
  70         $line =~ s/\xc3\x9a/E<Uacute>/g;
  71         $line =~ s/\xc3\x9b/E<Ucirc>/g;
  72         $line =~ s/\xc3\x9c/E<Uuml>/g;
  73         $line =~ s/\xc3\x9d/E<Yacute>/g;
  74         $line =~ s/\xc3\x9e/E<THORN>/g;
  75         $line =~ s/\xc3\x9f/E<szlig>/g;
  76         $line =~ s/\xc3\xa0/E<agrave>/g;
  77         $line =~ s/\xc3\xa1/E<aacute>/g;
  78         $line =~ s/\xc3\xa2/E<acirc>/g;
  79         $line =~ s/\xc3\xa3/E<atilde>/g;
  80         $line =~ s/\xc3\xa4/E<auml>/g;
  81         $line =~ s/\xc3\xa5/E<aring>/g;
  82         $line =~ s/\xc3\xa6/E<aelig>/g;
  83         $line =~ s/\xc3\xa7/E<ccedil>/g;
  84         $line =~ s/\xc3\xa8/E<egrave>/g;
  85         $line =~ s/\xc3\xa9/E<eacute>/g;
  86         $line =~ s/\xc3\xaa/E<ecirc>/g;
  87         $line =~ s/\xc3\xab/E<euml>/g;
  88         $line =~ s/\xc3\xac/E<igrave>/g;
  89         $line =~ s/\xc3\xad/E<iacute>/g;
  90         $line =~ s/\xc3\xae/E<icirc>/g;
  91         $line =~ s/\xc3\xaf/E<iuml>/g;
  92         $line =~ s/\xc3\xb0/E<eth>/g;
  93         $line =~ s/\xc3\xb1/E<ntilde>/g;
  94         $line =~ s/\xc3\xb2/E<ograve>/g;
  95         $line =~ s/\xc3\xb3/E<oacute>/g;
  96         $line =~ s/\xc3\xb4/E<ocirc>/g;
  97         $line =~ s/\xc3\xb5/E<otilde>/g;
  98         $line =~ s/\xc3\xb6/E<ouml>/g;
  99         $line =~ s/\xc3\xb8/E<oslash>/g;
 100         $line =~ s/\xc3\xb9/E<ugrave>/g;
 101         $line =~ s/\xc3\xba/E<uacute>/g;
 102         $line =~ s/\xc3\xbb/E<ucirc>/g;
 103         $line =~ s/\xc3\xbc/E<uuml>/g;
 104         $line =~ s/\xc3\xbd/E<yacute>/g;
 105         $line =~ s/\xc3\xbe/E<thorn>/g;
 106         $line =~ s/\xc3\xbf/E<yuml>/g;
 107         print $line;
 108 }