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