forked from WebKit/WebKit
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathpreprocessor.pm
More file actions
108 lines (99 loc) · 3.76 KB
/
preprocessor.pm
File metadata and controls
108 lines (99 loc) · 3.76 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
#
# Copyright (C) 2005 Nikolas Zimmermann <wildfox@kde.org>
# Copyright (C) 2011 Google Inc.
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public License
# along with this library; see the file COPYING.LIB. If not, write to
# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
# Boston, MA 02110-1301, USA.
#
use strict;
use warnings;
use Config;
use IPC::Open2;
use IPC::Open3;
use Text::ParseWords;
BEGIN {
use Exporter ();
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw(&applyPreprocessor);
%EXPORT_TAGS = ( );
@EXPORT_OK = ();
}
# Returns an array of lines.
sub applyPreprocessor
{
my $fileName = shift;
my $defines = shift;
my $preprocessor = shift;
my $keepComments = shift;
my @args = ();
if (!$preprocessor) {
if ($Config::Config{"osname"} eq "MSWin32") {
$preprocessor = $ENV{CC} || "cl";
push(@args, qw(/EP));
} else {
$preprocessor = $ENV{CC} || (-x "/usr/bin/clang" ? "/usr/bin/clang" : "/usr/bin/gcc");
push(@args, qw(-E -P -x c++));
if ($keepComments) {
push(@args, qw(-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};
}
# Remove double quotations from $defines and extract macros.
# For example, if $defines is ' "A=1" "B=1" C=1 "" D ',
# then it is converted into four macros -DA=1, -DB=1, -DC=1 and -DD.
$defines =~ s/\"//g;
my @macros = grep { $_ } split(/\s+/, $defines); # grep skips empty macros.
@macros = map { "-D$_" } @macros;
my $pid = 0;
if ($Config{osname} eq "cygwin") {
$ENV{PATH} = "$ENV{PATH}:/cygdrive/c/cygwin/bin";
my @preprocessorAndFlags = shellwords($preprocessor);
if ($preprocessorAndFlags[0] =~ "cl.exe") {
$fileName = Cygwin::posix_to_win_path($fileName);
}
$preprocessorAndFlags[0] = Cygwin::win_to_posix_path($preprocessorAndFlags[0]);
# This call can fail if Windows rebases cygwin, so retry a few times until it succeeds.
for (my $tries = 0; !$pid && ($tries < 20); $tries++) {
eval {
# Suppress STDERR so that if we're using cl.exe, the output
# name isn't needlessly echoed.
use Symbol 'gensym'; my $err = gensym;
$pid = open3(\*PP_IN, \*PP_OUT, $err, @preprocessorAndFlags, @args, @macros, $fileName);
1;
} or do {
sleep 1;
}
};
} elsif ($Config::Config{"osname"} eq "MSWin32") {
# Suppress STDERR so that if we're using cl.exe, the output
# name isn't needlessly echoed.
use Symbol 'gensym'; my $err = gensym;
$pid = open3(\*PP_IN, \*PP_OUT, $err, $preprocessor, @args, @macros, $fileName);
} else {
$pid = open2(\*PP_OUT, \*PP_IN, shellwords($preprocessor), @args, @macros, $fileName);
}
close PP_IN;
my @documentContent = <PP_OUT>;
close PP_OUT;
waitpid($pid, 0);
return @documentContent;
}
1;