diff options
Diffstat (limited to 'gcc-4.7/contrib/filter_knr2ansi.pl')
| -rwxr-xr-x | gcc-4.7/contrib/filter_knr2ansi.pl | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/gcc-4.7/contrib/filter_knr2ansi.pl b/gcc-4.7/contrib/filter_knr2ansi.pl deleted file mode 100755 index 6b43e4077..000000000 --- a/gcc-4.7/contrib/filter_knr2ansi.pl +++ /dev/null @@ -1,45 +0,0 @@ -#!/usr/bin/perl -# -# Goes through the input line by line to find K&R style function -# declarations, and replaces them with ANSI style declarations. -# -@blah = <>; - -for ($i = 0; $i < @blah; $i++) -{ - if ($blah[$i] =~ /^([a-zA-Z_0-9]+)\s*\([^)]+\)\s*$/) - { - $name = $1; - $funci = $i; - $blah[$funci]="$name ("; - $i++; - $lastline = $i; - while ($lastline < @blah && $blah[$lastline] !~ /^{/) - { - $lastline++; - } - $lastline--; - while ($i < @blah && $blah[$i] !~ /^{/) - { - $arg = $blah[$i]; - if ($i != $lastline) - { - $arg =~ s/;/,/g; - } - else - { - $arg =~ s/;//g; - } - $blah[$i] = ""; - $blah[$funci] = "$blah[$funci]" . "$arg"; - $i++; - } - $blah[$funci] = "$blah[$funci]" . ")\n"; - } -} - -for ($i = 0; $i < @blah; $i++) -{ - print $blah[$i]; -} - |