Rename DOMWindow interface to Window

Source/bindings/scripts/generate-bindings.pl

 #!/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
@@ skipping 66 matching lines @@
 if ($verbose) {
     print "$targetIdlFile\n";
 }
 my $targetInterfaceName = fileparse(basename($targetIdlFile), ".idl");
 
 my $idlFound = 0;
 my @supplementedIdlFiles;
 if ($supplementalDependencyFile) {
     # The format of a supplemental dependency file:
     #
-    # DOMWindow.idl P.idl Q.idl R.idl
+    # Window.idl P.idl Q.idl R.idl
     # Document.idl S.idl
     # Event.idl
     # ...
     #
-    # The above indicates that DOMWindow.idl is supplemented by P.idl, Q.idl and R.idl,
+    # The above indicates that Window.idl is supplemented by P.idl, Q.idl and R.idl,
     # Document.idl is supplemented by S.idl, and Event.idl is supplemented by no IDLs.
     # The IDL that supplements another IDL (e.g. P.idl) never appears in the dependency file.
     open FH, "< $supplementalDependencyFile" or die "Cannot open $supplementalDependencyFile\n";
     while (my $line = <FH>) {
         my ($idlFile, @followingIdlFiles) = split(/\s+/, $line);
         if ($idlFile and basename($idlFile) eq basename($targetIdlFile)) {
             $idlFound = 1;
             @supplementedIdlFiles = @followingIdlFiles;
         }
     }
@@ skipping 40 matching lines @@
                 }
             }
             die "Not found an interface ${targetInterfaceName} in ${targetInterfaceName}.idl." unless defined $targetDataNode;
 
             # Support for attributes of partial interfaces.
             foreach my $attribute (@{$interface->attributes}) {
                 # Record that this attribute is implemented by $interfaceName.
                 $attribute->signature->extendedAttributes->{"ImplementedBy"} = $interfaceName;
 
                 # Add interface-wide extended attributes to each attribute.
-                foreach my $extendedAttributeName (keys %{$interface->extendedAttributes}) {
-                    $attribute->signature->extendedAttributes->{$extendedAttributeName} = $interface->extendedAttributes->{$extendedAttributeName};
-                }
+                applyInterfaceExtendedAttributes($interface, $attribute->signature->extendedAttributes);
+
                 push(@{$targetDataNode->attributes}, $attribute);
             }
 
             # Support for methods of partial interfaces.
             foreach my $function (@{$interface->functions}) {
                 # Record that this method is implemented by $interfaceName.
                 $function->extendedAttributes->{"ImplementedBy"} = $interfaceName;
 
                 # Add interface-wide extended attributes to each method.
-                foreach my $extendedAttributeName (keys %{$interface->extendedAttributes}) {
-                    $function->extendedAttributes->{$extendedAttributeName} = $interface->extendedAttributes->{$extendedAttributeName};
-                }
+                applyInterfaceExtendedAttributes($interface, $function->extendedAttributes);
+
                 push(@{$targetDataNode->functions}, $function);
             }
 
             # Support for constants of partial interfaces.
             foreach my $constant (@{$interface->constants}) {
                 # Record that this constant is implemented by $interfaceName.
                 $constant->extendedAttributes->{"ImplementedBy"} = $interfaceName;
 
                 # Add interface-wide extended attributes to each constant.
-                foreach my $extendedAttributeName (keys %{$interface->extendedAttributes}) {
-                    $constant->extendedAttributes->{$extendedAttributeName} = $interface->extendedAttributes->{$extendedAttributeName};
-                }
+                applyInterfaceExtendedAttributes($interface, $constant->extendedAttributes);
+
                 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";
         }
     }
 }
 
 # FIXME: This code will be removed once IDLParser.pm and CodeGeneratorV8.pm
 # are connected via JSON files. See http://crbug.com/242795
@@ skipping 78 matching lines @@
 
         foreach my $function (@{$interface->functions}) {
             checkIfIDLAttributesExists($idlAttributes, $function->extendedAttributes, $idlFile);
             foreach my $parameter (@{$function->parameters}) {
                 checkIfIDLAttributesExists($idlAttributes, $parameter->extendedAttributes, $idlFile);
             }
         }
     }
 }
 
+sub applyInterfaceExtendedAttributes
+{
+    my $interface = shift;
+    my $extendedAttributes = shift;
+
+    foreach my $extendedAttributeName (keys %{$interface->extendedAttributes}) {
+        next if $extendedAttributeName eq "ImplementedAs";
+        $extendedAttributes->{$extendedAttributeName} = $interface->extendedAttributes->{$extendedAttributeName};
+    }
+}
+
 sub checkIfIDLAttributesExists
 {
     my $idlAttributes = shift;
     my $extendedAttributes = shift;
     my $idlFile = shift;
 
     my $error;
     OUTER: for my $name (keys %$extendedAttributes) {
         if (!exists $idlAttributes->{$name}) {
             $error = "Unknown IDL attribute [$name] is found at $idlFile.";
             last OUTER;
         }
         if ($idlAttributes->{$name}{"*"}) {
             next;
         }
         for my $rightValue (split /\s*\|\s*/, $extendedAttributes->{$name}) {
             if (!exists $idlAttributes->{$name}{$rightValue}) {
                 $error = "Unknown IDL attribute [$name=" . $extendedAttributes->{$name} . "] is found at $idlFile.";
                 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).
 ";
     }
 }