#!/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 $outputHeadersDirectory;

my $generator;

my $defines;

my $filename;

my $prefix;

my $preprocessor;

my $writeDependencies;

my $verbose;

GetOptions('include=s@' => \@idlDirectories,

           'outputDir=s' => \$outputDirectory,

           'outputHeadersDir=s' => \$outputHeadersDirectory,

           'generator=s' => \$generator,

           'defines=s' => \$defines,

           'filename=s' => \$filename,

           'prefix=s' => \$prefix,

           'preprocessor=s' => \$preprocessor,

           'verbose' => \$verbose,

           'write-dependencies' => \$writeDependencies);

my $idlFile = $ARGV[0];

die('Must specify input file.') unless defined($idlFile);

die('Must specify generator') unless defined($generator);

die('Must specify output directory.') unless defined($outputDirectory);

die('Must specify defines') unless defined($defines);

if (!$outputHeadersDirectory) {

    $outputHeadersDirectory = $outputDirectory;

}

if ($verbose) {

    print "$generator: $idlFile\n";

}

$defines =~ s/^\s+|\s+$//g; # trim whitespace

# Parse the given IDL file.

my $parser = IDLParser->new(!$verbose);

my $document = $parser->Parse($idlFile, $defines, $preprocessor);

# Generate desired output for given IDL file.

my $codeGen = CodeGenerator->new(\@idlDirectories, $generator, $outputDirectory, $outputHeadersDirectory, 0, $preprocessor, $writeDependencies, $verbose);

$codeGen->ProcessDocument($document, $defines);