Home | History | Annotate | Line # | Download | only in maintainer-scripts 
      1  1.1  mrg #! /usr/bin/perl -w -T
      2  1.1  mrg #
      3  1.1  mrg # Extract all maintainers' addresses from the GCC MAINTAINERS file, only
      4  1.1  mrg # skipping those addresses specified in $OMIT.
      5  1.1  mrg # 
      6  1.1  mrg # Copyright (c) 2003, 2009 Free Software Foundation.
      7  1.1  mrg #
      8  1.1  mrg # Written by Gerald Pfeifer <gerald (at] pfeifer.com>, June 2003/October 2003
      9  1.1  mrg #
     10  1.1  mrg # This file is part of GCC.
     11  1.1  mrg #
     12  1.1  mrg # GCC is free software; you can redistribute it and/or modify
     13  1.1  mrg # it under the terms of the GNU General Public License as published by
     14  1.1  mrg # the Free Software Foundation; either version 3, or (at your option)
     15  1.1  mrg # any later version.
     16  1.1  mrg #
     17  1.1  mrg # GCC is distributed in the hope that it will be useful,
     18  1.1  mrg # but WITHOUT ANY WARRANTY; without even the implied warranty of
     19  1.1  mrg # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     20  1.1  mrg # GNU General Public License for more details.
     21  1.1  mrg #
     22  1.1  mrg # You should have received a copy of the GNU General Public License
     23  1.1  mrg # along with GCC; see the file COPYING3.  If not see
     24  1.1  mrg # <http://www.gnu.org/licenses/>.
     25  1.1  mrg 
     26  1.1  mrg my $OMIT='rms (at] gnu.org|config-patches (at] gnu.org';
     27  1.1  mrg 
     28  1.1  mrg ( @ARGV == 1  &&  -e $ARGV[0] ) || die "usage: $0 MAINTAINERS";
     29  1.1  mrg 
     30  1.1  mrg while( <> ) {
     31  1.1  mrg   chomp;
     32  1.1  mrg 
     33  1.1  mrg   if( /([\w\d.+-]+@[\w\d.-]+)/ ) {
     34  1.1  mrg     my $addr=$1;
     35  1.1  mrg     printf $addr."\n" if( not $addr =~ /$OMIT/ );
     36  1.1  mrg   }
     37  1.1  mrg }
     38