Home | History | Annotate | Line # | Download | only in maintainer-scripts 
      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 (at] 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 (at] gnu.org|config-patches (at] 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 }
     38