Mercurial > hg > CbC > CbC_gcc
comparison maintainer-scripts/maintainer-addresses @ 0:a06113de4d67
first commit
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 17 Jul 2009 14:47:48 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:a06113de4d67 |
---|---|
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 # | |
6 # Copyright (c) 2003, 2009 Free Software Foundation. | |
7 # | |
8 # Written by Gerald Pfeifer <gerald@pfeifer.com>, June 2003/October 2003 | |
9 # | |
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/>. | |
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 } |