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