Cody Brocious

@_ = <STDIN>;
$_ = join("", @_);

$W = /[ \t]*/;
$WR = /[ \t]+/;

s/^\#.*$//gm;
s/\/\*.*?\*\///gs;
s/\n//gs;

s/\t/ /;
s/  / / while(/  /);

s/extern.*?\{//gs;

s/;([^;]*[{}]+[^;]*);/;/gs;

print $_;