Support multiple flags in RuntimeEnabled

Source/bindings/scripts/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 5816 matching lines @@
     } else {
         return "$nativeType $variableName($value, true);";
     }
 }
 
 # Returns the RuntimeEnabledFeatures function name that is hooked up to check if a method/attribute is enabled.
 sub GetRuntimeEnabledFunctionName
 {
     my $signature = shift;
 
-    # Given [RuntimeEnabled=FeatureName],
+    # Given [RuntimeEnabled=FeatureName,

[haraken, 2014/01/07 04:56:19]

Add ']' back.

     # return RuntimeEnabledFeatures::{featureName}Enabled;
+    # If [RuntimeEnabled=FeatureName1&FeatureName2] is given,
+    # return RuntimeEnabledFeatures::{featureName1}Enabled && RuntimeEnabledFeatures::{featureName2}Enabled;
     my $featureName = ToMethodName($signature->extendedAttributes->{"RuntimeEnabled"});
+
+    my $operator = ($featureName =~ /&/ ? '&' : '');
+    if ($operator) {
+        my %featureNames;
+        map { $featureNames{lcfirst($_)} = 1 } split('\\' . $operator, $featureName);
+        return "RuntimeEnabledFeatures::" . join("Enabled() $operator$operator RuntimeEnabledFeatures::", sort keys %featureNames) . "Enabled";
+    }

[haraken, 2014/01/07 04:56:19]

A bit more readable way to do this would be:

my $operator = "";
$operator = "&" if $featureName =~ /&/;
$operator = "|" if $featureName =~ /\|/;
my @featureNames = split $operator, $featureName;
my @runtimeEnabledNames = map { "RuntimeEnabledFeatures::" . ToMethodName($_) .
"Enabled"; } @featureNames;
return join("$operator$operator", @runtimeEnabledNames);

+
     return "RuntimeEnabledFeatures::${featureName}Enabled";
 }
 
 sub GetContextEnabledFunctionName
 {
     my $signature = shift;
 
     # Given [PerContextEnabled=FeatureName],
     # return ContextFeatures::{featureName}Enabled
     my $featureName = ToMethodName($signature->extendedAttributes->{"PerContextEnabled"});
@@ skipping 499 matching lines @@
 
     foreach my $parameter (@{$function->parameters}) {
         if ($parameter->type eq "SerializedScriptValue") {
             return 1;
         }
     }
     return 0;
 }
 
 1;