1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
#! /usr/local/bin/perl -w
# Produce the list of the translators for the AUTHORS file.
local ($mail, $name, $lang, $comment, %authors);
sub title
{
$line = shift;
$line =~ s/(.)/$1\b$1/g;
print "$line\n";
}
$translator_file = "translators.txt";
# List of the people who wrote the package
title "Authors of this package.";
print <<'EOC';
* Miguel Santana <Miguel.Santana@st.com>
* Akim Demaille <demaille@inf.enst.fr>
EOC
print "\n";
# List of the people who maintain the package
title "Interim Maintainer";
print <<'EOC';
* Masayuki Hatta <mhatta@gnu.org>
EOC
print "\n";
# List of the people who helped the translation
title "Translators";
open (STDIN, $translator_file)
|| die "Could not open `$translator_file': $1\n";
while (<>)
{
chop ;
($mail, $name, $lang, $comment) = split (' ');
if ($mail)
{
$mail = ' <' . $mail . '>';
}
else
{
$mail = "";
}
print " * $name ($lang)$mail\n";
}
print "\n";
# List of the people who wrote style sheets
title "Style Sheets Authors";
open (STDIN, "grep 'written by' ../sheets/*.ssh|");
while (<>)
{
chop;
($file, $names) = split (':');
$file =~ s|^.*/||;
$file =~ s/\.ssh//;
$names =~ s/.*"(.*)".*/$1/g;
foreach $name (split (',', $names))
{
# We don't want to see demailles
next
if ($name =~ /Akim Demaille/);
# Avoid extraneous white spaces
$name =~ s/[ \t]+/ /g;
$name =~ s/^ //;
$name =~ s/ $//;
$authors{$name} .= ($authors{$name} ? ', ' : '') . $file;
}
}
foreach $name (sort (keys (%authors)))
{
$sheets = $authors{$name};
if ($name =~ /(<[^>@]+@[^>]+>)/)
{
$mail = $1;
$name =~ s/$mail//;
# Avoid extraneous white spaces
$name =~ s/[ \t]+/ /g;
$name =~ s/^ //;
$name =~ s/ $//;
$mail = " $mail";
}
else
{
$mail = "";
}
print " * $name ($sheets)$mail\n";
}
print "\n";
# People who package the package
title "Packagers / Ports";
print <<'EOC';
* Alexander Mai (OS/2 port) <mai@migdal.ikp.physik.tu-darmstadt.de>
* Ansgar Duelmer (DOS) <Ansgar.Duelmer@anorg.chemie.uni-giessen.de>
* Chuck Robey (FreeBSD) <chuckr@mat.net>
* Dirk Eddelbuettel (formerly Debian) <edd@debian.org>
* Masayuki Hatta (Debian) <mhatta@debian.org>
* Michael Williams (Mac OS X) <mike@dreamboatrecords.co.uk>
* Paulo Matos (RPM) <pjsm@students.fct.unl.pt>
EOC
print "\n";
title "Various";
print <<'EOC';
* Bruce Ingalls (a2ps-print.el) <bingalls@iconnet.com>
EOC
|