diff options
Diffstat (limited to 'contrib/dom/scripts/CodeGeneratorCPP.pm')
| -rw-r--r-- | contrib/dom/scripts/CodeGeneratorCPP.pm | 986 |
1 files changed, 0 insertions, 986 deletions
diff --git a/contrib/dom/scripts/CodeGeneratorCPP.pm b/contrib/dom/scripts/CodeGeneratorCPP.pm deleted file mode 100644 index bb9f3ee..0000000 --- a/contrib/dom/scripts/CodeGeneratorCPP.pm +++ /dev/null @@ -1,986 +0,0 @@ - -# Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org> -# Copyright (C) 2006 Anders Carlsson <andersca@mac.com> -# Copyright (C) 2006, 2007 Samuel Weinig <sam@webkit.org> -# Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org> -# Copyright (C) 2006, 2007, 2008, 2009 Apple Inc. All rights reserved. -# Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au> -# Copyright (C) Research In Motion Limited 2010. All rights reserved. -# -# This library is free software; you can redistribute it and/or -# modify it under the terms of the GNU Library General Public -# License as published by the Free Software Foundation; either -# version 2 of the License, or (at your option) any later version. -# -# This library is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# Library General Public License for more details. -# -# You should have received a copy of the GNU Library General Public License -# aint with this library; see the file COPYING.LIB. If not, write to -# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -# Boston, MA 02110-1301, USA. -# - -package CodeGeneratorCPP; - -use constant FileNamePrefix => "WebDOM"; - -# Global Variables - -my @headerContentHeader = (); -my @headerContent = (); -my %headerForwardDeclarations = (); - -my @implContentHeader = (); -my @implContent = (); -my %implIncludes = (); - -# Constants -my $exceptionInit = "WebCore::ExceptionCode ec = 0;"; -my $exceptionRaiseOnError = "webDOMRaiseError(static_cast<WebDOMExceptionCode>(ec));"; - -# Default License Templates -my $headerLicenseTemplate = << "EOF"; -/* - * Copyright (C) Research In Motion Limited 2010. All rights reserved. - * Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Apple Inc. All rights reserved. - * Copyright (C) 2006 Samuel Weinig <sam.weinig\@gmail.com> - * Copyright (C) Research In Motion Limited 2010. All rights reserved. - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public License - * along with this library; see the file COPYING.LIB. If not, write to - * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, - * Boston, MA 02110-1301, USA. - */ -EOF - -my $implementationLicenseTemplate = << "EOF"; -/* - * This file is part of the WebKit open source project. - * This file has been generated by generate-bindings.pl. DO NOT MODIFY! - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public License - * along with this library; see the file COPYING.LIB. If not, write to - * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, - * Boston, MA 02110-1301, USA. - */ -EOF - -# Default constructor -sub new -{ - my $object = shift; - my $reference = { }; - - $codeGenerator = shift; - shift; # $useLayerOnTop - shift; # $preprocessor - shift; # $writeDependencies - - bless($reference, $object); - return $reference; -} - -sub GenerateInterface -{ - my $object = shift; - my $interface = shift; - my $defines = shift; - - my $name = $interface->name; - my $className = GetClassName($name); - my $parentClassName = "WebDOM" . GetParentImplClassName($interface); - - $object->GenerateHeader($interface); - $object->GenerateImplementation($interface); -} - -sub GetClassName -{ - my $name = shift; - - # special cases - return "WebDOMString" if $codeGenerator->IsStringType($name) or $name eq "SerializedScriptValue"; - return "WebDOMObject" if $name eq "DOMObject"; - return "bool" if $name eq "boolean"; - return $name if $codeGenerator->IsPrimitiveType($name); - - return "WebDOM$name"; -} - -sub GetImplClassName -{ - return shift; -} - -sub GetParentImplClassName -{ - my $interface = shift; - - if (@{$interface->parents} eq 0) { - return "EventTarget" if $interface->extendedAttributes->{"EventTarget"}; - return "Object"; - } - - return $interface->parents(0); -} - -sub GetParent -{ - my $interface = shift; - my $numParents = @{$interface->parents}; - - my $parent = ""; - if ($numParents eq 0) { - $parent = "WebDOMObject"; - $parent = "WebDOMEventTarget" if $interface->extendedAttributes->{"EventTarget"}; - } elsif ($numParents eq 1) { - my $parentName = $interface->parents(0); - $parent = "WebDOM" . $parentName; - } else { - my @parents = @{$interface->parents}; - my $firstParent = shift(@parents); - $parent = "WebDOM" . $firstParent; - } - - return $parent; -} - -sub SkipFunction -{ - my $function = shift; - - return 1 if $function->signature->extendedAttributes->{"Custom"}; - - # FIXME: We don't generate bindings for SVG related interfaces yet - return 1 if $function->signature->name =~ /getSVGDocument/; - - if ($codeGenerator->GetArrayType($function->signature->type)) { - return 1; - } - - if ($codeGenerator->GetSequenceType($function->signature->type)) { - return 1; - } - - foreach my $param (@{$function->parameters}) { - return 1 if $codeGenerator->GetSequenceType($param->type); - return 1 if $param->extendedAttributes->{"Clamp"}; - } - - # FIXME: This is typically used to add script execution state arguments to the method. - # These functions will not compile with the C++ bindings as is, so disable them - # to restore compilation until a proper implementation can be developed. - return 1 if $function->signature->extendedAttributes->{"CallWith"}; -} - -sub SkipAttribute -{ - my $attribute = shift; - - return 1 if $attribute->signature->extendedAttributes->{"Custom"} - or $attribute->signature->extendedAttributes->{"CustomGetter"}; - - return 1 if $attribute->signature->type =~ /Constructor$/; - - return 1 if $codeGenerator->IsTypedArrayType($attribute->signature->type); - - if ($codeGenerator->GetArrayType($attribute->signature->type)) { - return 1; - } - - if ($codeGenerator->GetSequenceType($attribute->signature->type)) { - return 1; - } - - $codeGenerator->AssertNotSequenceType($attribute->signature->type); - - # FIXME: This is typically used to add script execution state arguments to the method. - # These functions will not compile with the C++ bindings as is, so disable them - # to restore compilation until a proper implementation can be developed. - return 1 if $attribute->signature->extendedAttributes->{"CallWith"}; - - return 0; -} - -sub GetCPPType -{ - my $type = shift; - my $useConstReference = shift; - my $name = GetClassName($type); - - return "int" if $type eq "long"; - return "unsigned" if $name eq "unsigned long"; - return "unsigned short" if $type eq "CompareHow"; - return "double" if $name eq "Date"; - - if ($codeGenerator->IsStringType($type)) { - if ($useConstReference) { - return "const $name&"; - } - - return $name; - } - - return $name if $codeGenerator->IsPrimitiveType($type) or $type eq "DOMTimeStamp"; - return "const $name&" if $useConstReference; - return $name; -} - -sub ConversionNeeded -{ - my $type = shift; - return !$codeGenerator->IsNonPointerType($type) && !$codeGenerator->IsStringType($type); -} - -sub GetCPPTypeGetter -{ - my $argName = shift; - my $type = shift; - - return $argName if $codeGenerator->IsPrimitiveType($type) or $codeGenerator->IsStringType($type); - return "static_cast<WebCore::Range::CompareHow>($argName)" if $type eq "CompareHow"; - return "WebCore::SerializedScriptValue::create(WTF::String($argName))" if $type eq "SerializedScriptValue"; - return "to" . GetNamespaceForClass($argName) . "($argName)"; -} - -sub AddForwardDeclarationsForType -{ - my $type = shift; - my $public = shift; - - return if $codeGenerator->IsNonPointerType($type) or $codeGenerator->IsStringType($type); - - my $class = GetClassName($type); - $headerForwardDeclarations{$class} = 1 if $public; -} - -sub AddIncludesForType -{ - my $type = shift; - - return if $codeGenerator->GetSequenceType($type); - return if $codeGenerator->GetArrayType($type); - return if $codeGenerator->IsNonPointerType($type); - return if $type =~ /Constructor/; - - if ($codeGenerator->IsStringType($type)) { - $implIncludes{"wtf/text/AtomicString.h"} = 1; - $implIncludes{"KURL.h"} = 1; - $implIncludes{"WebDOMString.h"} = 1; - return; - } - - if ($type eq "DOMObject") { - $implIncludes{"WebDOMObject.h"} = 1; - return; - } - - if ($type eq "EventListener") { - $implIncludes{"WebNativeEventListener.h"} = 1; - return; - } - - if ($type eq "SerializedScriptValue") { - $implIncludes{"SerializedScriptValue.h"} = 1; - return; - } - - # Also include CSSImportRule so that the toWebKit methods for subclasses are found - if ($type eq "CSSRule") { - $implIncludes{"WebDOMCSSImportRule.h"} = 1; - } - - $implIncludes{"Node.h"} = 1 if $type eq "NodeList"; - $implIncludes{"StylePropertySet.h"} = 1 if $type eq "CSSStyleDeclaration"; - - # Default, include the same named file (the implementation) and the same name prefixed with "WebDOM". - $implIncludes{"$type.h"} = 1 unless $type eq "DOMObject"; - $implIncludes{"WebDOM$type.h"} = 1; -} - -sub GetNamespaceForClass -{ - my $type = shift; - return "WTF" if (($type eq "ArrayBuffer") or ($type eq "ArrayBufferView")); - return "WTF" if (($type eq "Uint8Array") or ($type eq "Uint8ClampedArray") or ($type eq "Uint16Array") or ($type eq "Uint32Array")); - return "WTF" if (($type eq "Int8Array") or ($type eq "Int16Array") or ($type eq "Int32Array")); - return "WTF" if (($type eq "Float32Array") or ($type eq "Float64Array")); - return "WebCore"; -} - -sub GenerateHeader -{ - my $object = shift; - my $interface = shift; - - my $interfaceName = $interface->name; - my $className = GetClassName($interfaceName); - my $implClassName = GetImplClassName($interfaceName); - - my $implClassNameWithNamespace = GetNamespaceForClass($implClassName) . "::" . $implClassName; - - my $parentName = ""; - $parentName = GetParent($interface); - - my $numConstants = @{$interface->constants}; - my $numAttributes = @{$interface->attributes}; - my $numFunctions = @{$interface->functions}; - - # - Add default header template - @headerContentHeader = split("\r", $headerLicenseTemplate); - push(@headerContentHeader, "\n#ifndef $className" . "_h"); - push(@headerContentHeader, "\n#define $className" . "_h\n\n"); - - my $conditionalString = $codeGenerator->GenerateConditionalString($interface); - push(@headerContentHeader, "#if ${conditionalString}\n\n") if $conditionalString; - - # - INCLUDES - - - my %headerIncludes = (); - $headerIncludes{"WebDOMString.h"} = 1; - $headerIncludes{"$parentName.h"} = 1; - foreach my $include (sort keys(%headerIncludes)) { - push(@headerContentHeader, "#include <$include>\n"); - } - - push(@headerContent, "class $className"); - push(@headerContent, " : public $parentName") if $parentName; - push(@headerContent, " {\n"); - push(@headerContent, "public:\n"); - - # Constructor - push(@headerContent, " $className();\n"); - push(@headerContent, " explicit $className($implClassNameWithNamespace*);\n"); - - # Copy constructor and assignment operator on classes which have the d-ptr - if ($parentName eq "WebDOMObject") { - push(@headerContent, " $className(const $className&);\n"); - push(@headerContent, " ${className}& operator=(const $className&);\n"); - } - - # Destructor - if ($parentName eq "WebDOMObject") { - push(@headerContent, " virtual ~$className();\n"); - } else { - push(@headerContent, " virtual ~$className() { }\n"); - } - - push(@headerContent, "\n"); - $headerForwardDeclarations{$implClassNameWithNamespace} = 1; - - # - Add constants. - if ($numConstants > 0) { - my @headerConstants = (); - my @constants = @{$interface->constants}; - my $combinedConstants = ""; - - # FIXME: we need a way to include multiple enums. - foreach my $constant (@constants) { - my $constantName = $constant->name; - my $constantValue = $constant->value; - my $conditional = $constant->extendedAttributes->{"Conditional"}; - my $notLast = $constant ne $constants[-1]; - - if ($conditional) { - my $conditionalString = $codeGenerator->GenerateConditionalStringFromAttributeValue($conditional); - $combinedConstants .= "#if ${conditionalString}\n"; - } - $combinedConstants .= " WEBDOM_$constantName = $constantValue"; - $combinedConstants .= "," if $notLast; - if ($conditional) { - $combinedConstants .= "\n#endif\n"; - } elsif ($notLast) { - $combinedConstants .= "\n"; - } - } - - push(@headerContent, " "); - push(@headerContent, "enum {\n"); - push(@headerContent, $combinedConstants); - push(@headerContent, "\n "); - push(@headerContent, "};\n\n"); - } - - my @headerAttributes = (); - - # - Add attribute getters/setters. - if ($numAttributes > 0) { - foreach my $attribute (@{$interface->attributes}) { - next if SkipAttribute($attribute); - - my $attributeConditionalString = $codeGenerator->GenerateConditionalString($attribute->signature); - my $attributeName = $attribute->signature->name; - my $attributeType = GetCPPType($attribute->signature->type, 0); - my $attributeIsReadonly = ($attribute->type =~ /^readonly/); - my $property = ""; - - $property .= "#if ${attributeConditionalString}\n" if $attributeConditionalString; - $property .= " " . $attributeType . ($attributeType =~ /\*$/ ? "" : " ") . $attributeName . "() const"; - - my $availabilityMacro = ""; - my $declarationSuffix = ";\n"; - - AddForwardDeclarationsForType($attribute->signature->type, 1); - - $attributeType = GetCPPType($attribute->signature->type, 1); - my $setterName = "set" . ucfirst($attributeName); - - $property .= $declarationSuffix; - push(@headerAttributes, $property); - if (!$attributeIsReadonly and !$attribute->signature->extendedAttributes->{"Replaceable"}) { - $property = " void $setterName($attributeType)"; - $property .= $declarationSuffix; - push(@headerAttributes, $property); - } - - push(@headerAttributes, "#endif\n") if $attributeConditionalString; - } - push(@headerContent, @headerAttributes) if @headerAttributes > 0; - } - - my @headerFunctions = (); - my @deprecatedHeaderFunctions = (); - my @interfaceFunctions = (); - - # - Add functions. - if ($numFunctions > 0) { - foreach my $function (@{$interface->functions}) { - next if SkipFunction($function); - next if ($function->signature->name eq "set" and $interface->extendedAttributes->{"TypedArray"}); - my $functionName = $function->signature->extendedAttributes->{"ImplementedAs"} || $function->signature->name; - - my $returnType = GetCPPType($function->signature->type, 0); - my $numberOfParameters = @{$function->parameters}; - my %typesToForwardDeclare = ($function->signature->type => 1); - - my $parameterIndex = 0; - my $functionSig = "$returnType $functionName("; - my $methodName = $functionName; - foreach my $param (@{$function->parameters}) { - my $paramName = $param->name; - my $paramType = GetCPPType($param->type, 1); - $typesToForwardDeclare{$param->type} = 1; - - $functionSig .= ", " if $parameterIndex >= 1; - $functionSig .= "$paramType $paramName"; - $parameterIndex++; - } - $functionSig .= ")"; - if ($interface->extendedAttributes->{"CPPPureInterface"}) { - push(@interfaceFunctions, " virtual " . $functionSig . " = 0;\n"); - } - my $functionDeclaration = $functionSig; - $functionDeclaration .= ";\n"; - - foreach my $type (keys %typesToForwardDeclare) { - # add any forward declarations to the public header if a deprecated version will be generated - AddForwardDeclarationsForType($type, 1); - } - - my $conditionalString = $codeGenerator->GenerateConditionalString($function->signature); - push(@headerFunctions, "#if ${conditionalString}\n") if $conditionalString; - push(@headerFunctions, " "); - push(@headerFunctions, $functionDeclaration); - push(@headerFunctions, "#endif\n") if $conditionalString; - } - - if (@headerFunctions > 0) { - push(@headerContent, "\n") if @headerAttributes > 0; - push(@headerContent, @headerFunctions); - } - } - - push(@headerContent, "\n"); - push(@headerContent, " $implClassNameWithNamespace* impl() const;\n"); - - if ($parentName eq "WebDOMObject") { - push(@headerContent, "\nprotected:\n"); - push(@headerContent, " struct ${className}Private;\n"); - push(@headerContent, " ${className}Private* m_impl;\n"); - } - - push(@headerContent, "};\n\n"); - - # for CPPPureInterface classes also add the interface that the client code needs to - # implement - if ($interface->extendedAttributes->{"CPPPureInterface"}) { - push(@headerContent, "class WebUser$interfaceName {\n"); - push(@headerContent, "public:\n"); - push(@headerContent, " virtual void ref() = 0;\n"); - push(@headerContent, " virtual void deref() = 0;\n\n"); - push(@headerContent, @interfaceFunctions); - push(@headerContent, "\nprotected:\n"); - push(@headerContent, " virtual ~WebUser$interfaceName() {}\n"); - push(@headerContent, "};\n\n"); - } - - my $namespace = GetNamespaceForClass($implClassName); - push(@headerContent, "$namespace" . "::$implClassName* toWebCore(const $className&);\n"); - push(@headerContent, "$className toWebKit($namespace" . "::$implClassName*);\n"); - if ($interface->extendedAttributes->{"CPPPureInterface"}) { - push(@headerContent, "$className toWebKit(WebUser$interfaceName*);\n"); - } - push(@headerContent, "\n#endif\n"); - push(@headerContent, "#endif // ${conditionalString}\n\n") if $conditionalString; -} - -sub AddEarlyReturnStatement -{ - my $returnType = shift; - - if (!defined($returnType) or $returnType eq "void") { - $returnType = ""; - } elsif ($codeGenerator->IsPrimitiveType($returnType)) { - $returnType = " 0"; - } elsif ($returnType eq "bool") { - $returnType = " false"; - } else { - $returnType = " $returnType()"; - } - - # TODO: We could set exceptions here, if we want that - my $statement = " if (!impl())\n"; - $statement .= " return$returnType;\n\n"; - return $statement; -} - -sub AddReturnStatement -{ - my $typeInfo = shift; - my $returnValue = shift; - - # Used to invoke KURLs "const String&" operator - if ($codeGenerator->IsStringType($typeInfo->signature->type)) { - return " return static_cast<const WTF::String&>($returnValue);\n"; - } - - return " return $returnValue;\n"; -} - -sub GenerateImplementation -{ - my $object = shift; - my $interface = shift; - - my @ancestorInterfaceNames = (); - - if (@{$interface->parents} > 1) { - $codeGenerator->AddMethodsConstantsAndAttributesFromParentInterfaces($interface, \@ancestorInterfaceNames); - } - - my $interfaceName = $interface->name; - my $className = GetClassName($interfaceName); - my $implClassName = GetImplClassName($interfaceName); - my $parentImplClassName = GetParentImplClassName($interface); - my $implClassNameWithNamespace = GetNamespaceForClass($implClassName) . "::" . $implClassName; - my $baseClass = "WebDOM$parentImplClassName"; - my $conditional = $interface->extendedAttributes->{"Conditional"}; - - my $numAttributes = @{$interface->attributes}; - my $numFunctions = @{$interface->functions}; - - # - Add default header template. - @implContentHeader = split("\r", $implementationLicenseTemplate); - - # - INCLUDES - - push(@implContentHeader, "\n#include \"config.h\"\n"); - my $conditionalString = $codeGenerator->GenerateConditionalString($interface); - push(@implContentHeader, "\n#if ${conditionalString}\n\n") if $conditionalString; - push(@implContentHeader, "#include \"$className.h\"\n\n"); - - $implIncludes{"WebExceptionHandler.h"} = 1; - $implIncludes{"$implClassName.h"} = 1; - @implContent = (); - - push(@implContent, "#include <wtf/GetPtr.h>\n"); - push(@implContent, "#include <wtf/RefPtr.h>\n\n"); - - # Private datastructure, encapsulating WebCore types - if ($baseClass eq "WebDOMObject") { - push(@implContent, "struct ${className}::${className}Private {\n"); - push(@implContent, " ${className}Private($implClassNameWithNamespace* object = 0)\n"); - push(@implContent, " : impl(object)\n"); - push(@implContent, " {\n"); - push(@implContent, " }\n\n"); - push(@implContent, " RefPtr<$implClassNameWithNamespace> impl;\n"); - push(@implContent, "};\n\n"); - } - - # Constructor - push(@implContent, "${className}::$className()\n"); - push(@implContent, " : ${baseClass}()\n"); - push(@implContent, " , m_impl(0)\n") if ($baseClass eq "WebDOMObject"); - push(@implContent, "{\n"); - push(@implContent, "}\n\n"); - - push(@implContent, "${className}::$className($implClassNameWithNamespace* impl)\n"); - if ($baseClass eq "WebDOMObject") { - push(@implContent, " : ${baseClass}()\n"); - push(@implContent, " , m_impl(new ${className}Private(impl))\n"); - push(@implContent, "{\n"); - push(@implContent, "}\n\n"); - - push(@implContent, "${className}::${className}(const ${className}& copy)\n"); - push(@implContent, " : ${baseClass}()\n"); - push(@implContent, "{\n"); - push(@implContent, " m_impl = copy.impl() ? new ${className}Private(copy.impl()) : 0;\n"); - push(@implContent, "}\n\n"); - - push(@implContent, "${className}& ${className}::operator\=(const ${className}& copy)\n"); - push(@implContent, "{\n"); - push(@implContent, " delete m_impl;\n"); - push(@implContent, " m_impl = copy.impl() ? new ${className}Private(copy.impl()) : 0;\n"); - push(@implContent, " return *this;\n"); - push(@implContent, "}\n\n"); - - push(@implContent, "$implClassNameWithNamespace* ${className}::impl() const\n"); - push(@implContent, "{\n"); - push(@implContent, " return m_impl ? WTF::getPtr(m_impl->impl) : 0;\n"); - push(@implContent, "}\n\n"); - - # Destructor - push(@implContent, "${className}::~$className()\n"); - push(@implContent, "{\n"); - push(@implContent, " delete m_impl;\n"); - push(@implContent, " m_impl = 0;\n"); - push(@implContent, "}\n\n"); - } else { - push(@implContent, " : ${baseClass}(impl)\n"); - push(@implContent, "{\n"); - push(@implContent, "}\n\n"); - - push(@implContent, "$implClassNameWithNamespace* ${className}::impl() const\n"); - push(@implContent, "{\n"); - push(@implContent, " return static_cast<$implClassNameWithNamespace*>(${baseClass}::impl());\n"); - push(@implContent, "}\n\n"); - } - - # START implementation - %attributeNames = (); - - # - Attributes - if ($numAttributes > 0) { - foreach my $attribute (@{$interface->attributes}) { - next if SkipAttribute($attribute); - AddIncludesForType($attribute->signature->type); - - my $idlType = $attribute->signature->type; - - my $attributeName = $attribute->signature->name; - my $attributeType = GetCPPType($attribute->signature->type, 0); - my $attributeIsReadonly = ($attribute->type =~ /^readonly/); - - $attributeNames{$attributeName} = 1; - - # - GETTER - my $getterSig = "$attributeType $className\:\:$attributeName() const\n"; - my $hasGetterException = @{$attribute->getterExceptions}; - my ($functionName, @arguments) = $codeGenerator->GetterExpression(\%implIncludes, $interfaceName, $attribute); - push(@arguments, "ec") if $hasGetterException; - if ($attribute->signature->extendedAttributes->{"ImplementedBy"}) { - my $implementedBy = $attribute->signature->extendedAttributes->{"ImplementedBy"}; - $implIncludes{"${implementedBy}.h"} = 1; - unshift(@arguments, "impl()"); - $functionName = "${implementedBy}::${functionName}"; - } else { - $functionName = "impl()->${functionName}"; - } - - # Special cases - my $getterContentHead = ""; - my $getterContentTail = ""; - my @customGetterContent = (); - if ($attribute->signature->extendedAttributes->{"ConvertToString"}) { - $getterContentHead = "WTF::String::number("; - $getterContentTail = ")"; - } elsif ($attribute->signature->type eq "SerializedScriptValue") { - $getterContentTail = "->toString()"; - } elsif (ConversionNeeded($attribute->signature->type)) { - $getterContentHead = "toWebKit(WTF::getPtr("; - $getterContentTail = "))"; - } - - my $getterContent = "${getterContentHead}${functionName}(" . join(", ", @arguments) . ")${getterContentTail}"; - my $attributeConditionalString = $codeGenerator->GenerateConditionalString($attribute->signature); - push(@implContent, "#if ${attributeConditionalString}\n") if $attributeConditionalString; - - push(@implContent, $getterSig); - push(@implContent, "{\n"); - push(@implContent, AddEarlyReturnStatement($attributeType)); - push(@implContent, @customGetterContent); - if ($hasGetterException) { - # Differentiated between when the return type is a pointer and - # not for white space issue (ie. Foo *result vs. int result). - if ($attributeType =~ /\*$/) { - $getterContent = $attributeType . "result = " . $getterContent; - } else { - $getterContent = $attributeType . " result = " . $getterContent; - } - - push(@implContent, " $exceptionInit\n"); - push(@implContent, " $getterContent;\n"); - push(@implContent, " $exceptionRaiseOnError\n"); - push(@implContent, AddReturnStatement($attribute, "result")); - } else { - push(@implContent, AddReturnStatement($attribute, $getterContent)); - } - push(@implContent, "}\n\n"); - - # - SETTER - if (!$attributeIsReadonly and !$attribute->signature->extendedAttributes->{"Replaceable"}) { - # Exception handling - my $hasSetterException = @{$attribute->setterExceptions}; - - my $coreSetterName = "set" . $codeGenerator->WK_ucfirst($attributeName); - my $setterName = "set" . ucfirst($attributeName); - my $argName = "new" . ucfirst($attributeName); - my $arg = GetCPPTypeGetter($argName, $idlType); - - my $attributeType = GetCPPType($attribute->signature->type, 1); - push(@implContent, "void $className\:\:$setterName($attributeType $argName)\n"); - push(@implContent, "{\n"); - push(@implContent, AddEarlyReturnStatement()); - - push(@implContent, " $exceptionInit\n") if $hasSetterException; - - my ($functionName, @arguments) = $codeGenerator->SetterExpression(\%implIncludes, $interfaceName, $attribute); - push(@arguments, $arg); - push(@arguments, "ec") if $hasSetterException; - if ($attribute->signature->extendedAttributes->{"ImplementedBy"}) { - my $implementedBy = $attribute->signature->extendedAttributes->{"ImplementedBy"}; - $implIncludes{"${implementedBy}.h"} = 1; - unshift(@arguments, "impl()"); - $functionName = "${implementedBy}::${functionName}"; - } else { - $functionName = "impl()->${functionName}"; - } - push(@implContent, " ${functionName}(" . join(", ", @arguments) . ");\n"); - push(@implContent, " $exceptionRaiseOnError\n") if $hasSetterException; - push(@implContent, "}\n\n"); - } - - push(@implContent, "#endif\n") if $attributeConditionalString; - } - } - - # - Functions - if ($numFunctions > 0) { - foreach my $function (@{$interface->functions}) { - # Treat CPPPureInterface as Custom as well, since the WebCore versions will take a script context as well - next if SkipFunction($function) || $interface->extendedAttributes->{"CPPPureInterface"}; - next if ($function->signature->name eq "set" and $interface->extendedAttributes->{"TypedArray"}); - AddIncludesForType($function->signature->type); - - my $functionName = $function->signature->name; - my $returnType = GetCPPType($function->signature->type, 0); - my $hasParameters = @{$function->parameters}; - my $raisesExceptions = @{$function->raisesExceptions}; - - my @parameterNames = (); - my @needsAssert = (); - my %needsCustom = (); - - my $parameterIndex = 0; - - my $functionSig = "$returnType $className\:\:$functionName("; - foreach my $param (@{$function->parameters}) { - my $paramName = $param->name; - my $paramType = GetCPPType($param->type, 1); - - # make a new parameter name if the original conflicts with a property name - $paramName = "in" . ucfirst($paramName) if $attributeNames{$paramName}; - - AddIncludesForType($param->type); - - my $idlType = $param->type; - my $implGetter = GetCPPTypeGetter($paramName, $idlType); - - push(@parameterNames, $implGetter); - $needsCustom{"NodeToReturn"} = $paramName if $param->extendedAttributes->{"CustomReturn"}; - - unless ($codeGenerator->IsPrimitiveType($idlType) or $codeGenerator->IsStringType($idlType)) { - push(@needsAssert, " ASSERT($paramName);\n"); - } - - $functionSig .= ", " if $parameterIndex >= 1; - $functionSig .= "$paramType $paramName"; - $parameterIndex++; - } - - $functionSig .= ")"; - - my @functionContent = (); - push(@parameterNames, "ec") if $raisesExceptions; - - my $content; - if ($function->signature->extendedAttributes->{"ImplementedBy"}) { - my $implementedBy = $function->signature->extendedAttributes->{"ImplementedBy"}; - $implIncludes{"${implementedBy}.h"} = 1; - unshift(@parameterNames, "impl()"); - $content = "WebCore::${implementedBy}::" . $codeGenerator->WK_lcfirst($functionName) . "(" . join(", ", @parameterNames) . ")"; - } else { - $content = "impl()->" . $codeGenerator->WK_lcfirst($functionName) . "(" . join(", ", @parameterNames) . ")"; - } - - if ($returnType eq "void") { - # Special case 'void' return type. - if ($raisesExceptions) { - push(@functionContent, " $exceptionInit\n"); - push(@functionContent, " $content;\n"); - push(@functionContent, " $exceptionRaiseOnError\n"); - } else { - push(@functionContent, " $content;\n"); - } - } elsif (defined $needsCustom{"NodeToReturn"}) { - # TODO: This is important to enable, once we care about custom code! - - # Special case the insertBefore, replaceChild, removeChild - # and appendChild functions from DOMNode - my $toReturn = $needsCustom{"NodeToReturn"}; - if ($raisesExceptions) { - push(@functionContent, " $exceptionInit\n"); - push(@functionContent, " if ($content)\n"); - push(@functionContent, " return $toReturn;\n"); - push(@functionContent, " $exceptionRaiseOnError\n"); - push(@functionContent, " return $className();\n"); - } else { - push(@functionContent, " if ($content)\n"); - push(@functionContent, " return $toReturn;\n"); - push(@functionContent, " return NULL;\n"); - } - } else { - if (ConversionNeeded($function->signature->type)) { - $content = "toWebKit(WTF::getPtr($content))"; - } - - if ($raisesExceptions) { - # Differentiated between when the return type is a pointer and - # not for white space issue (ie. Foo *result vs. int result). - if ($returnType =~ /\*$/) { - $content = $returnType . "result = " . $content; - } else { - $content = $returnType . " result = " . $content; - } - - push(@functionContent, " $exceptionInit\n"); - push(@functionContent, " $content;\n"); - push(@functionContent, " $exceptionRaiseOnError\n"); - push(@functionContent, " return result;\n"); - } else { - push(@functionContent, " return $content;\n"); - } - } - - my $conditionalString = $codeGenerator->GenerateConditionalString($function->signature); - push(@implContent, "\n#if ${conditionalString}\n") if $conditionalString; - - push(@implContent, "$functionSig\n"); - push(@implContent, "{\n"); - push(@implContent, AddEarlyReturnStatement($returnType)); - push(@implContent, @functionContent); - push(@implContent, "}\n\n"); - - push(@implContent, "#endif\n\n") if $conditionalString; - - # Clear the hash - %needsCustom = (); - } - } - - # END implementation - - # Generate internal interfaces - my $namespace = GetNamespaceForClass($implClassName); - push(@implContent, "$namespace" . "::$implClassName* toWebCore(const $className& wrapper)\n"); - push(@implContent, "{\n"); - push(@implContent, " return wrapper.impl();\n"); - push(@implContent, "}\n\n"); - - push(@implContent, "$className toWebKit($namespace" . "::$implClassName* value)\n"); - push(@implContent, "{\n"); - push(@implContent, " return $className(value);\n"); - push(@implContent, "}\n"); - - # - End the ifdef conditional if necessary - push(@implContent, "\n#endif // ${conditionalString}\n") if $conditionalString; -} - -sub WriteData -{ - my $object = shift; - my $dataNode = shift; - my $outputDir = shift; - - # Open files for writing... - my $name = $dataNode->name; - my $prefix = FileNamePrefix; - my $headerFileName = "$outputDir/$prefix$name.h"; - my $implFileName = "$outputDir/$prefix$name.cpp"; - - # Update a .h file if the contents are changed. - my $contents = join "", @headerContentHeader; - $contents .= "\n"; - foreach my $class (sort keys(%headerForwardDeclarations)) { - if ($class =~ /::/) { - my $namespacePart = $class; - $namespacePart =~ s/::.*//; - - my $classPart = $class; - $classPart =~ s/${namespacePart}:://; - - $contents .= "namespace $namespacePart {\nclass $classPart;\n};\n\n"; - } else { - $contents .= "class $class;\n" - } - } - - my $hasForwardDeclarations = keys(%headerForwardDeclarations); - $contents .= "\n" if $hasForwardDeclarations; - $contents .= join "", @headerContent; - $codeGenerator->UpdateFile($headerFileName, $contents); - - @headerContentHeader = (); - @headerContent = (); - %headerForwardDeclarations = (); - - # Update a .cpp file if the contents are changed. - $contents = join "", @implContentHeader; - - foreach my $include (sort keys(%implIncludes)) { - # "className.h" is already included right after config.h, silence check-webkit-style - next if $include eq "$name.h"; - $contents .= "#include \"$include\"\n"; - } - - $contents .= join "", @implContent; - $codeGenerator->UpdateFile($implFileName, $contents); - - @implContentHeader = (); - @implContent = (); - %implIncludes = (); -} - -1; |