Add support for KeyboardEvent.location attribute

Source/bindings/scripts/deprecated_code_generator_v8.pm

 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org>
 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com>
 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com>
 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org>
 # Copyright (C) 2006 Apple Computer, Inc.
 # Copyright (C) 2007, 2008, 2009, 2012 Google Inc.
 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au>
 # Copyright (C) Research In Motion Limited 2010. All rights reserved.
 # Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies)
 # Copyright (C) 2012 Ericsson AB. All rights reserved.
@@ skipping 2676 matching lines @@
 
     if ($interface->parent) {
         my $interfaceBase = $interface->parent;
         $code .= <<END;
     if (!fill${interfaceBase}Init(eventInit, options))
         return false;
 
 END
     }
 
+    my $declaredFoundBoolean = 0;

[haraken, 2013/07/23 10:20:57]

Nit: This is unused.

     foreach my $attribute (@{$interface->attributes}) {
         if ($attribute->extendedAttributes->{"InitializedByEventConstructor"}) {
             if ($attribute->type ne "any") {
                 my $attributeName = $attribute->name;
-                $code .= "    options.get(\"$attributeName\", eventInit.$attributeName);\n";
+                my $attributeImplName = GetImplName($attribute);
+                my $deprecation = $attribute->extendedAttributes->{"DeprecateAs"};
+                my $dictionaryGetter = "options.get(\"$attributeName\", eventInit.$attributeImplName)";
+                if ($deprecation) {

[haraken, 2013/07/23 10:20:57]

Nit: You can just say $attribute->extendedAttributes->{"DeprecateAs"}.

+                    $code .= "    if ($dictionaryGetter)\n";
+                    $code .= "    " . GenerateDeprecationNotification($deprecation);
+                } else {
+                    $code .= "    $dictionaryGetter;\n";
+                }
             }
         }
     }
 
     $code .= <<END;
     return true;
 }
 
 END
     $implementation{nameSpaceWebCore}->add($code);
@@ skipping 3293 matching lines @@
         if ($currentInterface->extendedAttributes->{$extendedAttribute}) {
             $found = 1;
         }
         return 1 if $found;
     }, 0);
 
     return $found;
 }
 
 1;