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 759 matching lines @@
     if ($interface->extendedAttributes->{"CustomCall"}) {
         push(@headerContent, "    static v8::Handle<v8::Value> callAsFunctionCallback(const v8::Arguments&);\n");
     }
     if ($interface->name eq "Location") {
         push(@headerContent, "    static v8::Handle<v8::Value> assignAttrGetterCustom(v8::Local<v8::String> name, const v8::AccessorInfo&);\n");
         push(@headerContent, "    static v8::Handle<v8::Value> reloadAttrGetterCustom(v8::Local<v8::String> name, const v8::AccessorInfo&);\n");
         push(@headerContent, "    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 123 matching lines @@
     my $measureAs = shift;
 
     if ($measureAs) {
         AddToImplIncludes("FeatureObserver.h");
         return "    FeatureObserver::observe(activeDOMWindow(BindingState::instance()), FeatureObserver::${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 $content = "";

[haraken, 2013/04/11 00:59:16]

Nit: Remove this.

[ulfar, 2013/04/11 03:25:15]

Done.

+    if ($accessType eq "Method") {
+        push(@implContentInternals, <<END);
+    V8DOMActivityLogger* logger = V8PerContextData::from(v8::Context::GetCurrent())->activityLogger();
+    if (logger) {
+        Vector<v8::Handle<v8::Value> > loggerArgs = toVectorOfArguments<v8::Handle<v8::Value> >(args);
+        logger->log("${visibleInterfaceName}.${propertyName}", args.Length(), loggerArgs.data(), "${accessType}");
+    }
+END
+    } elsif ($accessType eq "Setter") {
+        push(@implContentInternals, <<END);
+    V8DOMActivityLogger* logger = V8PerContextData::from(v8::Context::GetCurrent())->activityLogger();
+    if (logger) {
+        v8::Handle<v8::Value> loggerArg[] = { value };
+        logger->log("${visibleInterfaceName}.${propertyName}", 1, &loggerArg[0], "${accessType}");
+    }
+END
+    } elsif ($accessType eq "Getter") {
+        push(@implContentInternals, <<END);
+    V8DOMActivityLogger* logger = V8PerContextData::from(v8::Context::GetCurrent())->activityLogger();
+    if (logger)
+        logger->log("${visibleInterfaceName}.${propertyName}", 0, 0, "${accessType}");
+END
+    } else {
+        die "Unrecognized activity logging access type";
+    }
+}
+
 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);
     push(@implContentInternals, "#if ${conditionalString}\n\n") if $conditionalString;
 
     push(@implContentInternals, "static v8::Handle<v8::Value> ${attrName}AttrGetterCallback${forMainWorldSuffix}(v8::Local<v8::String> name, const v8::AccessorInfo& info)\n");
     push(@implContentInternals, "{\n");
     push(@implContentInternals, GenerateFeatureObservation($attrExt->{"MeasureAs"}));
+    if (HasActivityLogging($forMainWorldSuffix, $attrExt, "Getter")) {
+        GenerateActivityLogging("Getter", $interface, "${attrName}");
+    }
     if (HasCustomGetter($attrExt)) {
         push(@implContentInternals, "    return ${v8InterfaceName}::${attrName}AttrGetterCustom(name, info);\n");
     } else {
         push(@implContentInternals, "    return ${interfaceName}V8Internal::${attrName}AttrGetter${forMainWorldSuffix}(name, info);\n");
     }
     push(@implContentInternals, "}\n\n");
     push(@implContentInternals, "#endif // ${conditionalString}\n\n") if $conditionalString;
 }
 
 sub GenerateNormalAttrGetter
@@ skipping 270 matching lines @@
 }
 
 sub GenerateReplaceableAttrSetterCallback
 {
     my $interface = shift;
     my $interfaceName = $interface->name;
 
     push(@implContentInternals, "static void ${interfaceName}ReplaceableAttrSetterCallback(v8::Local<v8::String> name, v8::Local<v8::Value> value, const v8::AccessorInfo& info)\n");
     push(@implContentInternals, "{\n");
     push(@implContentInternals, GenerateFeatureObservation($interface->extendedAttributes->{"MeasureAs"}));
+    if (HasActivityLogging("", $interface->extendedAttributes, "Setter")) {
+         die "IDL error: ActivityLog attribute cannot exist on a ReplacableAttrSetterCallback";
+    }
     push(@implContentInternals, "    return ${interfaceName}V8Internal::${interfaceName}ReplaceableAttrSetter(name, value, info);\n");
     push(@implContentInternals, "}\n\n");
 }
 
 sub GenerateReplaceableAttrSetter
 {
     my $interface = shift;
     my $interfaceName = $interface->name;
 
     push(@implContentInternals, <<END);
@@ skipping 45 matching lines @@
     my $v8InterfaceName = "V8$interfaceName";
     my $attrExt = $attribute->signature->extendedAttributes;
     my $attrName = $attribute->signature->name;
 
     my $conditionalString = $codeGenerator->GenerateConditionalString($attribute->signature);
     push(@implContentInternals, "#if ${conditionalString}\n\n") if $conditionalString;
 
     push(@implContentInternals, "static void ${attrName}AttrSetterCallback${forMainWorldSuffix}(v8::Local<v8::String> name, v8::Local<v8::Value> value, const v8::AccessorInfo& info)\n");
     push(@implContentInternals, "{\n");
     push(@implContentInternals, GenerateFeatureObservation($attrExt->{"MeasureAs"}));
+    if (HasActivityLogging($forMainWorldSuffix, $attrExt, "Setter")) {
+        GenerateActivityLogging("Setter", $interface, "${attrName}");
+    }
     if (HasCustomSetter($attrExt)) {
         push(@implContentInternals, "    ${v8InterfaceName}::${attrName}AttrSetterCustom(name, value, info);\n");
     } else {
         push(@implContentInternals, "    ${interfaceName}V8Internal::${attrName}AttrSetter${forMainWorldSuffix}(name, value, info);\n");
     }
     push(@implContentInternals, "}\n\n");
     push(@implContentInternals, "#endif // ${conditionalString}\n\n") if $conditionalString;
 }
 
 sub GenerateNormalAttrSetter
@@ skipping 320 matching lines @@
     my $v8InterfaceName = "V8$interfaceName";
     my $name = $function->signature->name;
 
     my $conditionalString = $codeGenerator->GenerateConditionalString($function->signature);
     push(@implContentInternals, "#if ${conditionalString}\n\n") if $conditionalString;
     push(@implContentInternals, <<END);
 static v8::Handle<v8::Value> ${name}MethodCallback${forMainWorldSuffix}(const v8::Arguments& args)
 {
 END
     push(@implContentInternals, GenerateFeatureObservation($function->signature->extendedAttributes->{"MeasureAs"}));
+    if (HasActivityLogging($forMainWorldSuffix, $function->signature->extendedAttributes, "Access")) {

[haraken, 2013/04/11 00:59:16]

Nit: "Access" => "Method" (Just for readability. This won't change behavior.)

[ulfar, 2013/04/11 03:25:15]

I'd rather not, since this is a bit awkward.  There are currently IDL attributes
to log getters, setters, or any type of access: method calls, getters, and
setters.  This is the "Access" attribute.  I'd rather keep just three IDL
attribute types (times two, for isolated worlds), and not add a separate fourth
attribute for "Method".

+        GenerateActivityLogging("Method", $interface, "${name}");
+    }
     if (HasCustomMethod($function->signature->extendedAttributes)) {
         push(@implContentInternals, "    return ${v8InterfaceName}::${name}MethodCustom(args);\n");
     } else {
         push(@implContentInternals, "    return ${interfaceName}V8Internal::${name}Method${forMainWorldSuffix}(args);\n");
     }
     push(@implContentInternals, "}\n\n");
     push(@implContentInternals, "#endif // ${conditionalString}\n\n") if $conditionalString;
 }
 
 sub GenerateFunction
@@ skipping 2953 matching lines @@
 
 sub GetPassRefPtrType
 {
     my $v8InterfaceName = shift;
 
     my $angleBracketSpace = $v8InterfaceName =~ />$/ ? " " : "";
     return "PassRefPtr<${v8InterfaceName}${angleBracketSpace}>";
 }
 
 1;