URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [contrib/] [filter_knr2ansi.pl] - Rev 281
Go to most recent revision | Compare with Previous | Blame | View Log
#!/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]; }
Go to most recent revision | Compare with Previous | Blame | View Log