preprocess-idls.pl [plain text]
use strict;
use File::Basename;
use Getopt::Long;
use Cwd;
my $defines;
my $preprocessor;
my $idlFilesList;
my $supplementalDependencyFile;
my $windowConstructorsFile;
my $workerContextConstructorsFile;
my $supplementalMakefileDeps;
GetOptions('defines=s' => \$defines,
'preprocessor=s' => \$preprocessor,
'idlFilesList=s' => \$idlFilesList,
'supplementalDependencyFile=s' => \$supplementalDependencyFile,
'windowConstructorsFile=s' => \$windowConstructorsFile,
'workerContextConstructorsFile=s' => \$workerContextConstructorsFile,
'supplementalMakefileDeps=s' => \$supplementalMakefileDeps);
die('Must specify #define macros using --defines.') unless defined($defines);
die('Must specify an output file using --supplementalDependencyFile.') unless defined($supplementalDependencyFile);
die('Must specify an output file using --windowConstructorsFile.') unless defined($windowConstructorsFile);
die('Must specify an output file using --workerContextConstructorsFile.') unless defined($workerContextConstructorsFile);
die('Must specify the file listing all IDLs using --idlFilesList.') unless defined($idlFilesList);
open FH, "< $idlFilesList" or die "Cannot open $idlFilesList\n";
my @idlFiles = <FH>;
chomp(@idlFiles);
close FH;
my %interfaceNameToIdlFile;
my %idlFileToInterfaceName;
my %supplementalDependencies;
my %supplementals;
my $windowConstructorsCode = "";
my $workerContextConstructorsCode = "";
my %idlFileHash = map { $_, 1 } @idlFiles;
foreach my $idlFile (sort keys %idlFileHash) {
my $fullPath = Cwd::realpath($idlFile);
my $idlFileContents = getFileContents($fullPath);
my $partialInterfaceName = getPartialInterfaceNameFromIDL($idlFileContents);
if ($partialInterfaceName) {
$supplementalDependencies{$fullPath} = $partialInterfaceName;
next;
}
my $interfaceName = fileparse(basename($idlFile), ".idl");
unless (isCallbackInterfaceFromIDL($idlFileContents)) {
my $extendedAttributes = getInterfaceExtendedAttributesFromIDL($idlFileContents);
unless ($extendedAttributes->{"NoInterfaceObject"}) {
my $globalContext = $extendedAttributes->{"GlobalContext"} || "WindowOnly";
my $attributeCode = GenerateConstructorAttribute($interfaceName, $extendedAttributes);
$windowConstructorsCode .= $attributeCode unless $globalContext eq "WorkerOnly";
$workerContextConstructorsCode .= $attributeCode unless $globalContext eq "WindowOnly"
}
}
$interfaceNameToIdlFile{$interfaceName} = $fullPath;
$idlFileToInterfaceName{$fullPath} = $interfaceName;
$supplementals{$fullPath} = [];
}
GeneratePartialInterface("DOMWindow", $windowConstructorsCode, $windowConstructorsFile);
GeneratePartialInterface("WorkerContext", $workerContextConstructorsCode, $workerContextConstructorsFile);
foreach my $idlFile (keys %supplementalDependencies) {
my $baseFile = $supplementalDependencies{$idlFile};
my $targetIdlFile = $interfaceNameToIdlFile{$baseFile};
push(@{$supplementals{$targetIdlFile}}, $idlFile);
delete $supplementals{$idlFile};
}
my $dependencies = "";
foreach my $idlFile (sort keys %supplementals) {
$dependencies .= "$idlFile @{$supplementals{$idlFile}}\n";
}
WriteFileIfChanged($supplementalDependencyFile, $dependencies);
if ($supplementalMakefileDeps) {
my $makefileDeps = "";
foreach my $idlFile (sort keys %supplementals) {
my $basename = $idlFileToInterfaceName{$idlFile};
my @dependencies = map { basename($_) } @{$supplementals{$idlFile}};
$makefileDeps .= "JS${basename}.h: @{dependencies}\n";
$makefileDeps .= "DOM${basename}.h: @{dependencies}\n";
$makefileDeps .= "WebDOM${basename}.h: @{dependencies}\n";
foreach my $dependency (@dependencies) {
$makefileDeps .= "${dependency}:\n";
}
}
WriteFileIfChanged($supplementalMakefileDeps, $makefileDeps);
}
sub WriteFileIfChanged
{
my $fileName = shift;
my $contents = shift;
if (-f $fileName) {
open FH, "<", $fileName or die "Couldn't open $fileName: $!\n";
my @lines = <FH>;
my $oldContents = join "", @lines;
close FH;
return if $contents eq $oldContents;
}
open FH, ">", $fileName or die "Couldn't open $fileName: $!\n";
print FH $contents;
close FH;
}
sub GeneratePartialInterface
{
my $interfaceName = shift;
my $attributesCode = shift;
my $destinationFile = shift;
my $contents = "partial interface ${interfaceName} {\n$attributesCode};\n";
WriteFileIfChanged($destinationFile, $contents);
my $fullPath = Cwd::realpath($destinationFile);
$supplementalDependencies{$fullPath} = $interfaceName if $interfaceNameToIdlFile{$interfaceName};
}
sub GenerateConstructorAttribute
{
my $interfaceName = shift;
my $extendedAttributes = shift;
my $code = " ";
my @extendedAttributesList;
foreach my $attributeName (keys %{$extendedAttributes}) {
next unless ($attributeName eq "Conditional" || $attributeName eq "EnabledAtRuntime" || $attributeName eq "EnabledBySetting");
my $extendedAttribute = $attributeName;
$extendedAttribute .= "=" . $extendedAttributes->{$attributeName} unless $extendedAttributes->{$attributeName} eq "VALUE_IS_MISSING";
push(@extendedAttributesList, $extendedAttribute);
}
$code .= "[" . join(', ', @extendedAttributesList) . "] " if @extendedAttributesList;
my $originalInterfaceName = $interfaceName;
$interfaceName = $extendedAttributes->{"InterfaceName"} if $extendedAttributes->{"InterfaceName"};
$code .= "attribute " . $originalInterfaceName . "Constructor $interfaceName;\n";
if ($extendedAttributes->{"NamedConstructor"}) {
my $constructorName = $extendedAttributes->{"NamedConstructor"};
$constructorName =~ s/\(.*//g; # Extract function name.
$code .= " ";
$code .= "[" . join(', ', @extendedAttributesList) . "] " if @extendedAttributesList;
$code .= "attribute " . $originalInterfaceName . "NamedConstructor $constructorName;\n";
}
return $code;
}
sub getFileContents
{
my $idlFile = shift;
open FILE, "<", $idlFile;
my @lines = <FILE>;
close FILE;
@lines = grep(!/^\s*
return join('', @lines);
}
sub getPartialInterfaceNameFromIDL
{
my $fileContents = shift;
if ($fileContents =~ /partial\s+interface\s+(\w+)/gs) {
return $1;
}
}
sub isCallbackInterfaceFromIDL
{
my $fileContents = shift;
return ($fileContents =~ /callback\s+interface\s+\w+/gs);
}
sub trim
{
my $string = shift;
$string =~ s/^\s+|\s+$//g;
return $string;
}
sub getInterfaceExtendedAttributesFromIDL
{
my $fileContents = shift;
my $extendedAttributes = {};
if ($fileContents =~ /\[(.*)\]\s+(interface|exception)\s+(\w+)/gs) {
my @parts = split(',', $1);
foreach my $part (@parts) {
my @keyValue = split('=', $part);
my $key = trim($keyValue[0]);
next unless length($key);
my $value = "VALUE_IS_MISSING";
$value = trim($keyValue[1]) if @keyValue > 1;
$extendedAttributes->{$key} = $value;
}
}
return $extendedAttributes;
}