use strict;
use warnings;
use Config;
use IPC::Open2;
use IPC::Open3;
BEGIN {
use Exporter ();
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw(&applyPreprocessor);
%EXPORT_TAGS = ( );
@EXPORT_OK = ();
}
sub applyPreprocessor
{
my $fileName = shift;
my $defines = shift;
my $preprocessor = shift;
my @args = ();
if (!$preprocessor) {
require Config;
if ($ENV{CC}) {
$preprocessor = $ENV{CC};
} elsif (($Config::Config{'osname'}) =~ /solaris/i) {
$preprocessor = "/usr/sfw/bin/gcc";
} elsif (-x "/usr/bin/clang") {
$preprocessor = "/usr/bin/clang";
} else {
$preprocessor = "/usr/bin/gcc";
}
push(@args, qw(-E -P -x c++));
}
$defines =~ s/\"//g;
my @macros = grep { $_ } split(/\s+/, $defines); @macros = map { "-D$_" } @macros;
my $pid = 0;
if ($Config{osname} eq "cygwin" || $Config{osname} eq 'MSWin32') {
for (my $tries = 0; !$pid && ($tries < 20); $tries++) {
eval {
use Symbol 'gensym'; my $err = gensym;
$pid = open3(\*PP_IN, \*PP_OUT, $err, split(' ', $preprocessor), @args, @macros, $fileName);
1;
} or do {
sleep 1;
}
};
} else {
$pid = open2(\*PP_OUT, \*PP_IN, split(' ', $preprocessor), @args, @macros, $fileName);
}
close PP_IN;
my @documentContent = <PP_OUT>;
close PP_OUT;
waitpid($pid, 0);
return @documentContent;
}
1;