JSON export/import in generate-bindings.pl

Source/bindings/scripts/generate-bindings.pl

-#!/usr/bin/perl -w
+#!/usr/bin/perl -w -I../../core/scripts -I../../../JSON/out/lib/perl5
 #
 # 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.
@@ skipping 19 matching lines @@
 use strict;
 
 use File::Path;
 use File::Basename;
 use Getopt::Long;
 use Text::ParseWords;
 use Cwd;
 
 use IDLParser;
 use CodeGeneratorV8;
+use IRToFromJSON qw(IRToJSON);
 
 my @idlDirectories;
 my $outputDirectory;
 my $outputHeadersDirectory;
 my $defines;
 my $filename;
 my $preprocessor;
 my $verbose;
 my $supplementalDependencyFile;
 my $additionalIdlFiles;
 my $idlAttributesFile;
 my $writeFileOnlyIfChanged;
+my $dumpJSON = '';
 
 GetOptions('include=s@' => \@idlDirectories,
            'outputDir=s' => \$outputDirectory,
            'outputHeadersDir=s' => \$outputHeadersDirectory,
            'defines=s' => \$defines,
            'filename=s' => \$filename,
            'preprocessor=s' => \$preprocessor,
            'verbose' => \$verbose,
            'supplementalDependencyFile=s' => \$supplementalDependencyFile,
            'additionalIdlFiles=s' => \$additionalIdlFiles,
            'idlAttributesFile=s' => \$idlAttributesFile,
-           'write-file-only-if-changed=s' => \$writeFileOnlyIfChanged);
+           'write-file-only-if-changed=s' => \$writeFileOnlyIfChanged,
+           'dump-json' => \$dumpJSON);
 
 my $targetIdlFile = $ARGV[0];
 
 die('Must specify input file.') unless defined($targetIdlFile);
 die('Must specify output directory.') unless defined($outputDirectory);
 $defines = "" unless defined($defines);
 
 if (!$outputHeadersDirectory) {
     $outputHeadersDirectory = $outputDirectory;
 }
@@ skipping 102 matching lines @@
                     $constant->extendedAttributes->{$extendedAttributeName} = $interface->extendedAttributes->{$extendedAttributeName};
                 }
                 push(@{$targetDataNode->constants}, $constant);
             }
         } else {
             die "$idlFile is not a supplemental dependency of $targetIdlFile. There maybe a bug in the the supplemental dependency generator (preprocess_idls.py).\n";
         }
     }
 }
 
+# If dumping JSON, generate JSON output and exit
+if ($dumpJSON) {
+    my $jsonFilename = "${targetInterfaceName}.json";
+    my $jsonText = IRToJSON($targetDocument);
+    open FH, "> ${outputDirectory}/${jsonFilename}" or die "Cannot open $jsonFilename\n";
+    print FH $jsonText;
+    close FH;
+    exit 0;
+}
+
 # Generate desired output for the target IDL file.
 my @dependentIdlFiles = ($targetDocument->fileName(), @supplementedIdlFiles);
 my $codeGenerator = CodeGeneratorV8->new($targetDocument, \@idlDirectories, $preprocessor, $defines, $verbose, \@dependentIdlFiles, $writeFileOnlyIfChanged);
 my $interfaces = $targetDocument->interfaces;
 foreach my $interface (@$interfaces) {
     print "Generating bindings code for IDL interface \"" . $interface->name . "\"...\n" if $verbose;
     $codeGenerator->GenerateInterface($interface);
     $codeGenerator->WriteData($interface, $outputDirectory, $outputHeadersDirectory);
 }
 
@@ skipping 94 matching lines @@
                 last OUTER;
             }
         }
     }
     if ($error) {
         die "IDL ATTRIBUTE CHECKER ERROR: $error
 If you want to add a new IDL attribute, you need to add it to bindings/scripts/IDLAttributes.txt and add explanations to the Blink IDL document (http://chromium.org/blink/webidl).
 ";
     }
 }