use strict;
use warnings;
use Config;
use Getopt::Long;
use IPC::Open2;
use IPC::Open3;
use Text::ParseWords;
my $inputPath;
my $defines;
my $preprocessor;
my $outputPath;
GetOptions('input=s' => \$inputPath,
'defines=s' => \$defines,
'preprocessor=s' => \$preprocessor,
'output=s' => \$outputPath);
my @args = ();
if (!$preprocessor) {
if ($Config::Config{"osname"} eq "MSWin32") {
$preprocessor = $ENV{CC} || "cl";
push(@args, qw(/nologo /EP /TP /C));
} else {
$preprocessor = $ENV{CC} || (-x "/usr/bin/clang" ? "/usr/bin/clang" : "/usr/bin/gcc");
push(@args, qw(-E -P -x c++ -C));
}
}
if ($Config::Config{"osname"} eq "darwin") {
push(@args, "-I" . $ENV{BUILT_PRODUCTS_DIR} . "/usr/local/include") if $ENV{BUILT_PRODUCTS_DIR};
push(@args, "-isysroot", $ENV{SDKROOT}) if $ENV{SDKROOT};
}
$defines =~ s/\"//g;
my @macros = grep { $_ } split(/\s+/, $defines); @macros = map { "-D$_" } @macros;
my $pid = 0;
if ($Config{osname} eq "cygwin") {
$ENV{PATH} = "$ENV{PATH}:/cygdrive/c/cygwin/bin";
my @preprocessorAndFlags;
if ($preprocessor eq "/usr/bin/gcc") {
@preprocessorAndFlags = split(' ', $preprocessor);
} else {
$preprocessor =~ /"(.*)"/;
chomp(my $preprocessor = `cygpath -u '$1'`) if (defined $1);
chomp($inputPath = `cygpath -w '$inputPath'`);
@preprocessorAndFlags = ($preprocessor, "/nologo", "/EP", "/TP", "/C");
}
for (my $tries = 0; !$pid && ($tries < 20); $tries++) {
eval {
use Symbol 'gensym'; my $err = gensym;
$pid = open3(\*PP_IN, \*PP_OUT, $err, @preprocessorAndFlags, @args, @macros, $inputPath);
1;
} or do {
sleep 1;
}
}
} elsif ($Config::Config{"osname"} eq "MSWin32") {
use Symbol 'gensym'; my $err = gensym;
$pid = open3(\*PP_IN, \*PP_OUT, $err, $preprocessor, @args, @macros, $inputPath);
} else {
$pid = open2(\*PP_OUT, \*PP_IN, shellwords($preprocessor), @args, @macros, $inputPath);
}
close PP_IN;
my @lines = <PP_OUT>;
close PP_OUT;
waitpid($pid, 0);
open OUTPUT, ">$outputPath" || die "Could not open $outputPath for writing";
foreach my $line (@lines) {
if ($line =~ /^\s*$/) {
next;
}
if ($line =~ /^\/\//) {
print OUTPUT "\n";
}
print OUTPUT $line;
}
close OUTPUT;