/platform/external/webkit/WebCore/bindings/scripts/generate-bindings.pl
https://github.com/aharish/totoro-gb-opensource-update2 · Perl · 70 lines · 29 code · 11 blank · 30 comment · 0 complexity · 1209daf88722372caf959f7b476dfe44 MD5 · raw file
- #!/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
- # aint 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);