--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/WebCore/bindings/scripts/generate-bindings.pl	Fri Sep 17 09:02:29 2010 +0300
@@ -0,0 +1,83 @@
+#!/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);