diff options
| author | Dan Albert <danalbert@google.com> | 2015-06-17 11:09:54 -0700 |
|---|---|---|
| committer | Dan Albert <danalbert@google.com> | 2015-06-17 14:15:22 -0700 |
| commit | f378ebf14df0952eae870c9865bab8326aa8f137 (patch) | |
| tree | 31794503eb2a8c64ea5f313b93100f1163afcffb /gcc-4.2.1/contrib/filter_knr2ansi.pl | |
| parent | 2c58169824949d3a597d9fa81931e001ef9b1bd0 (diff) | |
| download | toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.gz toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.bz2 toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.zip | |
Delete old versions of GCC.
Change-Id: I710f125d905290e1024cbd67f48299861790c66c
Diffstat (limited to 'gcc-4.2.1/contrib/filter_knr2ansi.pl')
| -rwxr-xr-x | gcc-4.2.1/contrib/filter_knr2ansi.pl | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/gcc-4.2.1/contrib/filter_knr2ansi.pl b/gcc-4.2.1/contrib/filter_knr2ansi.pl deleted file mode 100755 index 6b43e4077..000000000 --- a/gcc-4.2.1/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]; -} - |