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;
     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"};
+                $code .= "    ";
+                if ($deprecation) {
+                    unless ($declaredFoundBoolean) {
+                        $code .= "bool ";
+                        $declaredFoundBoolean = 1;
+                    }
+                    $code .= "found = ";
+                }
+                $code .= "options.get(\"$attributeName\", eventInit.$attributeImplName);\n";
+                if ($deprecation) {
+                    $code .= "    if (found)\n";
+                    $code .= "    " . GenerateDeprecationNotification($deprecation);

[haraken, 2013/07/23 09:21:30]

How about generating the following code? Then 'found' is not needed, which will
simplify the code generator.

  if (options.get("attr", eventInit.attr))
    GenerateDeprecationNotification(...)

[do-not-use, 2013/07/23 10:12:04]

OK. Will do.

+                }
             }
         }
     }
 
     $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;