gcc/contrib/filter_params.pl
2004-05-13 02:41:07 -04:00

15 lines
392 B
Perl
Executable File

#!/usr/bin/perl
# Filters out some of the #defines used thourghout the GCC sources:
# - GTY(()) marks declarations for gengtype.c
# - PARAMS(()) is used for K&R compatibility. See ansidecl.h.
while (<>) {
s/^\/\* /\/\*\* \@verbatim /;
s/\*\// \@endverbatim \*\//;
s/GTY[ \t]*\(\(.*\)\)//g;
s/[ \t]ATTRIBUTE_UNUSED//g;
s/PARAMS[ \t]*\(\((.*?)\)\)/\($1\)/sg;
print;
}