@_ = ; $_ = 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 $_;