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
|
#! /usr/bin/perl
#
# This file is part of the WebKit project
#
# Copyright (C) 2008 Nokia Corporation and/or its subsidiary(-ies)
#
# 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 File::Basename;
use File::Spec;
use Getopt::Long;
my $outputDir = ".";
my $extraDefines = "";
my $symbolsPrefix = "";
my $preprocessor = "";
my $preprocessOnly = 0;
my $bison = "bison";
GetOptions(
'outputDir=s' => \$outputDir,
'extraDefines=s' => \$extraDefines,
'bison=s' => \$bison,
'preprocessor=s' => \$preprocessor,
'preprocessOnly' => \$preprocessOnly,
'symbolsPrefix=s' => \$symbolsPrefix
);
my $grammarFilePath = $ARGV[0];
my $grammarIncludesFilePath = @ARGV > 0 ? $ARGV[1] : "";
if (!length($symbolsPrefix) && !$preprocessOnly) {
die "Need a symbols prefix to give to bison (e.g. cssyy, xpathyy)";
}
my ($filename, $basePath, $suffix) = fileparse($grammarFilePath, (".y", ".y.in"));
if ($suffix eq ".y.in") {
my $grammarFileOutPath = File::Spec->join($outputDir, "$filename.y");
if (!$grammarIncludesFilePath) {
$grammarIncludesFilePath = "${basePath}${filename}.y.includes";
}
open GRAMMAR, ">$grammarFileOutPath" or die;
open INCLUDES, "<$grammarIncludesFilePath" or die;
require preprocessor;
while (<INCLUDES>) {
print GRAMMAR;
}
print GRAMMAR join("", applyPreprocessor($grammarFilePath, $extraDefines, $preprocessor));
close GRAMMAR;
$grammarFilePath = $grammarFileOutPath;
exit if $preprocessOnly;
}
my $fileBase = File::Spec->join($outputDir, $filename);
my @bisonCommand = ($bison, "--defines=$fileBase.h", "-p", $symbolsPrefix, $grammarFilePath, "-o", "$fileBase.cpp");
push @bisonCommand, "--no-lines" if $^O eq "MSWin32"; # Work around bug in bison >= 3.0 on Windows where it puts backslashes into #line directives.
system(@bisonCommand) == 0 or die;
|
