]>
Commit | Line | Data |
---|---|---|
29d274e9 GP |
1 | #! /usr/bin/perl -w -T |
2 | # | |
3 | # Extract all maintainers' addresses from the GCC MAINTAINERS file, only | |
4 | # skipping those addresses specified in $OMIT. | |
5 | # | |
748086b7 | 6 | # Copyright (c) 2003, 2009 Free Software Foundation. |
29d274e9 GP |
7 | # |
8 | # Written by Gerald Pfeifer <gerald@pfeifer.com>, June 2003/October 2003 | |
9 | # | |
748086b7 JJ |
10 | # This file is part of GCC. |
11 | # | |
12 | # GCC is free software; you can redistribute it and/or modify | |
13 | # it under the terms of the GNU General Public License as published by | |
14 | # the Free Software Foundation; either version 3, or (at your option) | |
15 | # any later version. | |
16 | # | |
17 | # GCC 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 GCC; see the file COPYING3. If not see | |
24 | # <http://www.gnu.org/licenses/>. | |
29d274e9 GP |
25 | |
26 | my $OMIT='rms@gnu.org|config-patches@gnu.org'; | |
27 | ||
28 | ( @ARGV == 1 && -e $ARGV[0] ) || die "usage: $0 MAINTAINERS"; | |
29 | ||
30 | while( <> ) { | |
31 | chomp; | |
32 | ||
33 | if( /([\w\d.+-]+@[\w\d.-]+)/ ) { | |
34 | my $addr=$1; | |
35 | printf $addr."\n" if( not $addr =~ /$OMIT/ ); | |
36 | } | |
37 | } |