#!/usr/bin/perl -w | |
# | |
# Copyright (C) 2005 Apple Computer, Inc. | |
# Copyright (C) 2006 Anders Carlsson <andersca@mac.com> | |
# | |
# This file is part of WebKit | |
# | |
# 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. | |
# | |
# This script is a temporary hack. | |
# Files are generated in the source directory, when they really should go | |
# to the DerivedSources directory. | |
# This should also eventually be a build rule driven off of .idl files | |
# however a build rule only solution is blocked by several radars: | |
# <rdar://problems/4251781&4251785> | |
use strict; | |
use File::Path; | |
use Getopt::Long; | |
use Cwd; | |
use IDLParser; | |
use CodeGenerator; | |
my @idlDirectories; | |
my $outputDirectory; | |
my $generator; | |
my $defines; | |
my $preprocessor; | |
my $writeDependencies; | |
GetOptions('include=s@' => \@idlDirectories, | |
'outputDir=s' => \$outputDirectory, | |
'generator=s' => \$generator, | |
'defines=s' => \$defines, | |
'preprocessor=s' => \$preprocessor, | |
'write-dependencies' => \$writeDependencies); | |
my $idlFile = $ARGV[0]; | |
die('Must specify input file.') unless defined($idlFile); | |
die('Must specify IDL search path.') unless @idlDirectories; | |
die('Must specify generator') unless defined($generator); | |
die('Must specify output directory.') unless defined($outputDirectory); | |
die('Must specify defines') unless defined($defines); | |
$defines =~ s/^\s+|\s+$//g; # trim whitespace | |
# Parse the given IDL file. | |
my $parser = IDLParser->new(1); | |
my $document = $parser->Parse($idlFile, $defines, $preprocessor); | |
# Generate desired output for given IDL file. | |
my $codeGen = CodeGenerator->new(\@idlDirectories, $generator, $outputDirectory, 0, $preprocessor, $writeDependencies); | |
$codeGen->ProcessDocument($document, $defines); |