Support for selective DOM activity logging, based on IDL attributes.

Source/bindings/scripts/CodeGeneratorV8.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 780 matching lines @@
     if ($interface->extendedAttributes->{"CustomCall"}) {
         AddToHeader("    static v8::Handle<v8::Value> callAsFunctionCallback(const v8::Arguments&);\n");
     }
     if ($interface->name eq "Location") {
         AddToHeader("    static v8::Handle<v8::Value> assignAttrGetterCustom(v8::Local<v8::String> name, const v8::AccessorInfo&);\n");
         AddToHeader("    static v8::Handle<v8::Value> reloadAttrGetterCustom(v8::Local<v8::String> name, const v8::AccessorInfo&);\n");
         AddToHeader("    static v8::Handle<v8::Value> replaceAttrGetterCustom(v8::Local<v8::String> name, const v8::AccessorInfo&);\n");
     }
 }
 
+sub HasActivityLogging
+{
+    my $forMainWorldSuffix = shift;
+    my $attrExt = shift;
+    my $access = shift;
+
+    if (!$attrExt->{"ActivityLog"}) {
+        return 0;
+    }
+    my $logAllAccess = ($attrExt->{"ActivityLog"} =~ /^Access/);
+    my $logGetter = ($attrExt->{"ActivityLog"} =~ /^Getter/);
+    my $logSetter = ($attrExt->{"ActivityLog"} =~ /^Setter/);
+    my $logOnlyIsolatedWorlds = ($attrExt->{"ActivityLog"} =~ /ForIsolatedWorlds$/);
+
+    if ($logOnlyIsolatedWorlds && $forMainWorldSuffix eq "ForMainWorld") {
+        return 0;
+    }
+    return $logAllAccess || ($logGetter && $access eq "Getter") || ($logSetter && $access eq "Setter");
+}
+
 sub IsConstructable
 {
     my $interface = shift;
 
     return $interface->extendedAttributes->{"CustomConstructor"} || $interface->extendedAttributes->{"Constructor"} || $interface->extendedAttributes->{"ConstructorTemplate"};
 }
 
 sub HasCustomConstructor
 {
     my $interface = shift;
@@ skipping 125 matching lines @@
     my $measureAs = shift;
 
     if ($measureAs) {
         AddToImplIncludes("UseCounter.h");
         return "    UseCounter::observe(activeDOMWindow(BindingState::instance()), UseCounter::${measureAs});\n";
     }
 
     return "";
 }
 
+sub GenerateActivityLogging
+{
+    my $accessType = shift;
+    my $interface = shift;
+    my $propertyName = shift;
+
+    my $visibleInterfaceName = $codeGenerator->GetVisibleInterfaceName($interface);
+
+    AddToImplIncludes("V8Binding.h");
+    AddToImplIncludes("V8DOMActivityLogger.h");
+    AddToImplIncludes("wtf/Vector.h");
+
+    my $code = "";
+    if ($accessType eq "Method") {
+        $code .= <<END;
+    V8PerContextData* contextData = V8PerContextData::from(args.GetIsolate()->GetCurrentContext());
+    if (contextData && contextData->activityLogger()) {
+        Vector<v8::Handle<v8::Value> > loggerArgs = toVectorOfArguments(args);
+        contextData->activityLogger()->log("${visibleInterfaceName}.${propertyName}", args.Length(), loggerArgs.data(), "${accessType}");
+    }
+END
+    } elsif ($accessType eq "Setter") {
+        $code .= <<END;
+    V8PerContextData* contextData = V8PerContextData::from(info.GetIsolate()->GetCurrentContext());
+    if (contextData && contextData->activityLogger()) {
+        v8::Handle<v8::Value> loggerArg[] = { value };
+        contextData->activityLogger()->log("${visibleInterfaceName}.${propertyName}", 1, &loggerArg[0], "${accessType}");
+    }
+END
+    } elsif ($accessType eq "Getter") {
+        $code .= <<END;
+    V8PerContextData* contextData = V8PerContextData::from(info.GetIsolate()->GetCurrentContext());
+    if (contextData && contextData->activityLogger())
+        contextData->activityLogger()->log("${visibleInterfaceName}.${propertyName}", 0, 0, "${accessType}");
+END
+    } else {
+        die "Unrecognized activity logging access type";
+    }
+
+    return $code;
+}
+
 sub GenerateNormalAttrGetterCallback
 {
     my $attribute = shift;
     my $interface = shift;
     my $forMainWorldSuffix = shift;
 
     my $interfaceName = $interface->name;
     my $v8InterfaceName = "V8$interfaceName";
     my $attrExt = $attribute->signature->extendedAttributes;
     my $attrName = $attribute->signature->name;
 
     my $conditionalString = $codeGenerator->GenerateConditionalString($attribute->signature);
     my $code = "";
     $code .= "#if ${conditionalString}\n\n" if $conditionalString;
 
     $code .= "static v8::Handle<v8::Value> ${attrName}AttrGetterCallback${forMainWorldSuffix}(v8::Local<v8::String> name, const v8::AccessorInfo& info)\n";
     $code .= "{\n";
     $code .= GenerateFeatureObservation($attrExt->{"MeasureAs"});
+    if (HasActivityLogging($forMainWorldSuffix, $attrExt, "Getter")) {
+        $code .= GenerateActivityLogging("Getter", $interface, "${attrName}");
+    }
     if (HasCustomGetter($attrExt)) {
         $code .= "    return ${v8InterfaceName}::${attrName}AttrGetterCustom(name, info);\n";
     } else {
         $code .= "    return ${interfaceName}V8Internal::${attrName}AttrGetter${forMainWorldSuffix}(name, info);\n";
     }
     $code .= "}\n\n";
     $code .= "#endif // ${conditionalString}\n\n" if $conditionalString;
 
     AddToImplContentInternals($code);
 }
@@ skipping 284 matching lines @@
 
 sub GenerateReplaceableAttrSetterCallback
 {
     my $interface = shift;
     my $interfaceName = $interface->name;
 
     my $code = "";
     $code .= "static void ${interfaceName}ReplaceableAttrSetterCallback(v8::Local<v8::String> name, v8::Local<v8::Value> value, const v8::AccessorInfo& info)\n";
     $code .= "{\n";
     $code .= GenerateFeatureObservation($interface->extendedAttributes->{"MeasureAs"});
+    if (HasActivityLogging("", $interface->extendedAttributes, "Setter")) {
+         die "IDL error: ActivityLog attribute cannot exist on a ReplacableAttrSetterCallback";
+    }
     $code .= "    return ${interfaceName}V8Internal::${interfaceName}ReplaceableAttrSetter(name, value, info);\n";
     $code .= "}\n\n";
     AddToImplContentInternals($code);
 }
 
 sub GenerateReplaceableAttrSetter
 {
     my $interface = shift;
     my $interfaceName = $interface->name;
 
@@ skipping 50 matching lines @@
     my $attrExt = $attribute->signature->extendedAttributes;
     my $attrName = $attribute->signature->name;
 
     my $conditionalString = $codeGenerator->GenerateConditionalString($attribute->signature);
     my $code = "";
     $code .= "#if ${conditionalString}\n\n" if $conditionalString;
 
     $code .= "static void ${attrName}AttrSetterCallback${forMainWorldSuffix}(v8::Local<v8::String> name, v8::Local<v8::Value> value, const v8::AccessorInfo& info)\n";
     $code .= "{\n";
     $code .= GenerateFeatureObservation($attrExt->{"MeasureAs"});
+    if (HasActivityLogging($forMainWorldSuffix, $attrExt, "Setter")) {
+        $code .= GenerateActivityLogging("Setter", $interface, "${attrName}");
+    }
     if (HasCustomSetter($attrExt)) {
         $code .= "    ${v8InterfaceName}::${attrName}AttrSetterCustom(name, value, info);\n";
     } else {
         $code .= "    ${interfaceName}V8Internal::${attrName}AttrSetter${forMainWorldSuffix}(name, value, info);\n";
     }
     $code .= "}\n\n";
     $code .= "#endif // ${conditionalString}\n\n" if $conditionalString;
     AddToImplContentInternals($code);
 }
 
@@ skipping 329 matching lines @@
     my $name = $function->signature->name;
 
     my $conditionalString = $codeGenerator->GenerateConditionalString($function->signature);
     my $code = "";
     $code .= "#if ${conditionalString}\n\n" if $conditionalString;
     $code .= <<END;
 static v8::Handle<v8::Value> ${name}MethodCallback${forMainWorldSuffix}(const v8::Arguments& args)
 {
 END
     $code .= GenerateFeatureObservation($function->signature->extendedAttributes->{"MeasureAs"});
+    if (HasActivityLogging($forMainWorldSuffix, $function->signature->extendedAttributes, "Access")) {
+        $code .= GenerateActivityLogging("Method", $interface, "${name}");
+    }
     if (HasCustomMethod($function->signature->extendedAttributes)) {
         $code .= "    return ${v8InterfaceName}::${name}MethodCustom(args);\n";
     } else {
         $code .= "    return ${interfaceName}V8Internal::${name}Method${forMainWorldSuffix}(args);\n";
     }
     $code .= "}\n\n";
     $code .= "#endif // ${conditionalString}\n\n" if $conditionalString;
     AddToImplContentInternals($code);
 }
 
@@ skipping 3063 matching lines @@
 
 sub GetPassRefPtrType
 {
     my $v8InterfaceName = shift;
 
     my $angleBracketSpace = $v8InterfaceName =~ />$/ ? " " : "";
     return "PassRefPtr<${v8InterfaceName}${angleBracketSpace}>";
 }
 
 1;