Cody Brocious

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

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

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

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

s/; /;/gs;

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

s/typedef$WR[^{}]+;//gs;

s/typedef$WR//gs;

s/;/;\n/gs;

print $_;