Use static type information from IDL to streamline the wrapping and unwrappin...

webkit/port/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 Google Inc.
 #
 # This file is part of the KDE project
 #
@@ skipping 20 matching lines @@
 my $module = "";
 my $outputDir = "";
 
 my @headerContent = ();
 my @implContentHeader = ();
 my @implFixedHeader = ();
 my @implContent = ();
 my @implContentDecls = ();
 my %implIncludes = ();
 
+my @allParents = ();
+
 # Default .h template
 my $headerTemplate = << "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.
@@ skipping 252 matching lines @@
   my $result = "";
 
   $result .= $indent . "if (ec != 0) {\n";
   $result .= $indent . "    V8Proxy::SetDOMException(ec);\n";
   $result .= $indent . "    return v8::Handle<v8::Value>();\n";
   $result .= $indent . "}\n";
 
   return $result;
 }
 
+sub IsNodeSubType
+{
+  my $dataNode = shift;
+  return 1 if ($dataNode->name eq "Node");
+  foreach (@allParents) {
+    my $parent = $codeGenerator->StripModule($_);
+    return 1 if $parent eq "Node";
+  }
+  return 0;
+}
+
+sub HolderToNative
+{
+  my $dataNode = shift;
+  my $implClassName = shift;
+  my $classIndex = shift;
+
+  if (IsNodeSubType($dataNode)) {
+    push(@implContentDecls, <<END);
+    $implClassName* imp = V8Proxy::DOMWrapperToNode<$implClassName>(holder);
+END
+
+  } else {
+    push(@implContentDecls, <<END);
+    $implClassName* imp = V8Proxy::ToNativeObject<$implClassName>(V8ClassIndex::$classIndex, holder);
+END
+
+  }
+}
 
 sub GenerateDomainSafeFunctionGetter
 {
   my $function = shift;
   my $dataNode = shift;
   my $classIndex = shift;
   my $implClassName = shift;
 
   my $className = "V8" . $dataNode->name;
   my $funcName = $function->signature->name;
@@ skipping 12 matching lines @@
     INC_STATS(L\"DOM.$implClassName.$funcName._get\");
     static v8::Persistent<v8::FunctionTemplate> private_template =
         v8::Persistent<v8::FunctionTemplate>::New($newTemplateString);
     v8::Handle<v8::Object> holder = V8Proxy::LookupDOMWrapper(V8ClassIndex::$classIndex, info.This());
     if (holder.IsEmpty()) {
       // can only reach here by 'object.__proto__.func', and it should passed
       // domain security check already
 
       return private_template->GetFunction();
     }
+END
 
-    $implClassName* imp = V8Proxy::FastToNativeObject<$implClassName>(V8ClassIndex::$classIndex, holder);
+  HolderToNative($dataNode, $implClassName, $classIndex);
+
+  push(@implContentDecls, <<END);
     if (!V8Proxy::IsFromSameOrigin(imp->frame(), false)) {
       static v8::Persistent<v8::FunctionTemplate> shared_template =
         v8::Persistent<v8::FunctionTemplate>::New($newTemplateString);
       return shared_template->GetFunction();
 
     } else {
       return private_template->GetFunction();
     }
   }
 
-
 END
 }
 
 sub GenerateConstructorGetter
 {
   my $implClassName = shift;
       
   push(@implContentDecls, <<END);
   static v8::Handle<v8::Value> ${implClassName}ConstructorGetter(v8::Local<v8::String> name, const v8::AccessorInfo& info) {
     INC_STATS(L\"DOM.$implClassName.constructors._get\");
     v8::Handle<v8::Value> data = info.Data();
     ASSERT(data->IsNumber());
 
     V8ClassIndex::V8WrapperType type = V8ClassIndex::FromInt(data->Int32Value());
         
     v8::Handle<v8::FunctionTemplate> desc = V8Proxy::GetTemplate(type);
     v8::Handle<v8::Function> func = desc->GetFunction();
     ASSERT(func->IsFunction());
     return func;
   }
 
 END
 }
 
 sub GenerateNormalAttrGetter
 {
   my $attribute = shift;
+  my $dataNode = shift;
   my $classIndex = shift;
   my $implClassName = shift;
 
   my $attrExt = $attribute->signature->extendedAttributes;
 
   my $attrName = $attribute->signature->name;
   $implIncludes{"v8_proxy.h"} = 1;
 
   my $attrType = $codeGenerator->StripModule($attribute->signature->type);
   my $attrIsPodType = $codeGenerator->IsPodType($attrType);
@@ skipping 33 matching lines @@
   my $getterStringUsesImp = $implClassName ne "double";
 
   # Getter
   push(@implContentDecls, <<END);
   static v8::Handle<v8::Value> ${attrName}AttrGetter(v8::Local<v8::String> name, const v8::AccessorInfo& info) {
     INC_STATS(L\"DOM.$implClassName.$attrName._get\");
 END
 
   if ($isPodType) {
     push(@implContentDecls, <<END);
-    V8SVGPODTypeWrapper<$implClassName>* imp_wrapper = V8Proxy::FastToNativeObject<V8SVGPODTypeWrapper<$implClassName> >(V8ClassIndex::$classIndex, info.Holder());
+    V8SVGPODTypeWrapper<$implClassName>* imp_wrapper = V8Proxy::ToNativeObject<V8SVGPODTypeWrapper<$implClassName> >(V8ClassIndex::$classIndex, info.Holder());
     $implClassName imp_instance = *imp_wrapper;
 END
     if ($getterStringUsesImp) {
       push(@implContentDecls, <<END);
     $implClassName* imp = &imp_instance;
 END
     }
 
   } elsif ($attrExt->{"v8OnProto"}) {
     # perform lookup first
     push(@implContentDecls, <<END);
     v8::Handle<v8::Object> holder = V8Proxy::LookupDOMWrapper(V8ClassIndex::$classIndex, info.This());
     if (holder.IsEmpty()) return v8::Undefined();
-
-    $implClassName* imp = V8Proxy::FastToNativeObject<$implClassName>(V8ClassIndex::$classIndex, holder);
 END
-
+    HolderToNative($dataNode, $implClassName, $classIndex);
   } else {
-    push(@implContentDecls, "    $implClassName* imp = V8Proxy::FastToNativeObject<$implClassName>(V8ClassIndex::$classIndex, info.Holder());\n");
+    push(@implContentDecls, <<END);
+    v8::Handle<v8::Object> holder = info.Holder();
+END
+    HolderToNative($dataNode, $implClassName, $classIndex);
   }
 
   # Generate security checks if necessary
   if ($attribute->signature->extendedAttributes->{"CheckNodeSecurity"}) {
     push(@implContentDecls, "    if (!V8Proxy::CheckNodeSecurity(imp->$attrName())) return v8::Undefined();\n\n"); 
   } elsif ($attribute->signature->extendedAttributes->{"CheckFrameSecurity"}) {
     push(@implContentDecls, "    if (!V8Proxy::CheckNodeSecurity(imp->contentDocument())) return v8::Undefined();\n\n");
   }
 
   my $useExceptions = 1 if @{$attribute->getterExceptions} and !($isPodType); 
@@ skipping 88 matching lines @@
   push(@implContentDecls, "    v8::Local<v8::String> ${attrName}_string = v8::String::New(\"${attrName}\");\n");
   push(@implContentDecls, "    info.Holder()->Delete(${attrName}_string);\n");
   push(@implContentDecls, "    info.This()->Set(${attrName}_string, value);\n");
   push(@implContentDecls, "  }\n\n");
 }
 
 
 sub GenerateNormalAttrSetter
 {
   my $attribute = shift;
+  my $dataNode = shift;
   my $classIndex = shift;
   my $implClassName = shift;
 
   my $attrExt = $attribute->signature->extendedAttributes;
 
   $implIncludes{"v8_proxy.h"} = 1;
 
   push(@implContentDecls, 
        "  static void ${attrName}AttrSetter(v8::Local<v8::String> name," . 
        " v8::Local<v8::Value> value, const v8::AccessorInfo& info) {\n");
 
   push(@implContentDecls, "    INC_STATS(L\"DOM.$implClassName.$attrName._set\");\n");
 
   my $isPodType = $codeGenerator->IsPodType($implClassName);
 
   if ($isPodType) {
     $implClassName = GetNativeType($implClassName);
     $implIncludes{"V8SVGPODTypeWrapper.h"} = 1;
-    push(@implContentDecls, "    V8SVGPODTypeWrapper<$implClassName>* wrapper = V8Proxy::FastToNativeObject<V8SVGPODTypeWrapper<$implClassName> >(V8ClassIndex::$classIndex, info.Holder());\n");
+    push(@implContentDecls, "    V8SVGPODTypeWrapper<$implClassName>* wrapper = V8Proxy::ToNativeObject<V8SVGPODTypeWrapper<$implClassName> >(V8ClassIndex::$classIndex, info.Holder());\n");
     push(@implContentDecls, "    $implClassName imp_instance = *wrapper;\n");
     push(@implContentDecls, "    $implClassName* imp = &imp_instance;\n");
 
   } elsif ($attrExt->{"v8OnProto"}) {
     # perform lookup first
     push(@implContentDecls, <<END);
     v8::Handle<v8::Object> holder = V8Proxy::LookupDOMWrapper(V8ClassIndex::$classIndex, info.This());
     if (holder.IsEmpty()) return v8::Undefined();
-
-    $implClassName* imp = V8Proxy::FastToNativeObject<$implClassName>(V8ClassIndex::$classIndex, holder);
 END
-
+    HolderToNative($dataNode, $implClassName, $classIndex);
   } else {
-    push(@implContentDecls, "    $implClassName* imp = V8Proxy::FastToNativeObject<$implClassName>(V8ClassIndex::$classIndex, info.Holder());\n");
+    push(@implContentDecls, <<END);
+    v8::Handle<v8::Object> holder = info.Holder();
+END
+    HolderToNative($dataNode, $implClassName, $classIndex);
   }
 
   my $nativeType = GetNativeTypeFromSignature($attribute->signature, 0);
   push(@implContentDecls, "    $nativeType v = " . JSValueToNative($attribute->signature, "value") . ";\n");
 
   my $result = "";
   if ($nativeType eq "int" and $attribute->signature->extendedAttributes->{"ConvertFromString"}) {
     $result .= "WebCore::String::number(";
   }
   $result .= "v";
@@ skipping 81 matching lines @@
 
   my $numParameters = @{$function->parameters};
 
   if ($function->signature->extendedAttributes->{"RequiresAllArguments"}) {
     push(@implContentDecls,
          "    if (args.Length() < $numParameters) return v8::Undefined();\n");
   }
 
   if ($codeGenerator->IsPodType($implClassName)) {
     my $nativeClassName = GetNativeType($implClassName);
-    push(@implContentDecls, "    V8SVGPODTypeWrapper<$nativeClassName>* imp_wrapper = V8Proxy::FastToNativeObject<V8SVGPODTypeWrapper<$nativeClassName> >(V8ClassIndex::$classIndex, args.Holder());\n");
+    push(@implContentDecls, "    V8SVGPODTypeWrapper<$nativeClassName>* imp_wrapper = V8Proxy::ToNativeObject<V8SVGPODTypeWrapper<$nativeClassName> >(V8ClassIndex::$classIndex, args.Holder());\n");
     push(@implContentDecls, "    $nativeClassName imp_instance = *imp_wrapper;\n");
     push(@implContentDecls, "    $nativeClassName* imp = &imp_instance;\n");
   } else {
-    push(@implContentDecls, "    $implClassName* imp = V8Proxy::FastToNativeObject<$implClassName>(V8ClassIndex::$classIndex, args.Holder());\n");
+    push(@implContentDecls, <<END);
+    v8::Handle<v8::Value> holder = args.Holder();
+END
+    HolderToNative($dataNode, $implClassName, $classIndex);
   }
 
   # Check domain security if needed
   if (($dataNode->extendedAttributes->{"CheckDomainSecurity"} 
        || $interfaceName eq "DOMWindow")
     && !$function->signature->extendedAttributes->{"DoNotCheckDomainSecurity"}) {
     # We have not find real use cases yet.
     push(@implContentDecls,
 "    if (!V8Proxy::IsFromSameOrigin(imp->frame(), true)) {\n".
 "      return v8::Undefined();\n" .
@@ skipping 59 matching lines @@
     my $object = shift;
     my $dataNode = shift;
     my $interfaceName = $dataNode->name;
     my $className = "V8$interfaceName";
     my $implClassName = GetImplementationClassName($interfaceName);
     my $classIndex = uc($codeGenerator->StripModule($interfaceName));
 
     my $hasLegacyParent = $dataNode->extendedAttributes->{"LegacyParent"};
     my $conditional = $dataNode->extendedAttributes->{"Conditional"};
 
+    @allParents = $codeGenerator->FindParentsRecursively($dataNode);
+
     # - Add default header template
     @implContentHeader = split("\r", $headerTemplate);
 
     push(@implFixedHeader,
          "#include \"config.h\"\n" .
          "#include \"v8_proxy.h\"\n" .
          "#include \"v8_binding.h\"\n\n" .
          "#undef LOG\n\n");
  
     if ($className =~ /^V8SVG/) {
@@ skipping 28 matching lines @@
       
       # Do not generate accessor if this is a custom attribute.  The
       # call will be forwarded to a hand-written accessor
       # implementation.
       if ($attribute->signature->extendedAttributes->{"Custom"}) {
         $implIncludes{"v8_custom.h"} = 1;
         next;
       }
       
       # Generate the accessor.
-      GenerateNormalAttrGetter($attribute, $classIndex, $implClassName);
+      GenerateNormalAttrGetter($attribute, $dataNode, $classIndex, $implClassName);
       if ($attribute->signature->extendedAttributes->{"CustomSetter"}) {
         $implIncludes{"v8_custom.h"} = 1;
       } elsif ($attribute->signature->extendedAttributes->{"Replaceable"}) {
         $interfaceName eq "DOMWindow" || die "Replaceable attribute can only be used in DOMWindow interface!";
 #        GenerateReplaceableAttrSetter($implClassName);
       } elsif ($attribute->type !~ /^readonly/) {
-        GenerateNormalAttrSetter($attribute, $classIndex, $implClassName);
+        GenerateNormalAttrSetter($attribute, $dataNode, $classIndex, $implClassName);
       }
     }
 
     if ($hasConstructors) {
       GenerateConstructorGetter($implClassName);
     }
 
     # Generate methods for functions.
     foreach my $function (@{$dataNode->functions}) {
       # hack for addEventListener/RemoveEventListener
@@ skipping 366 matching lines @@
 
   if ($nodeToReturn) {
     # Special case for insertBefore, replaceChild, removeChild and
     # appendChild functions from Node.
     $result .= $indent . "bool success = $functionString;\n";
     if (@{$function->raisesExceptions}) {
       $result .= GenerateSetDOMException($indent);
     }
     $result .= $indent . "if (success)\n";
     $result .= $indent . "    " . 
-      "return V8Proxy::ToV8Object(V8ClassIndex::NODE, $nodeToReturn);\n";
+      "return V8Proxy::NodeToV8Object($nodeToReturn);\n";
     $result .= $indent . "return v8::Null();\n";
     return $result;
   } elsif ($returnType eq "void") {
     $result .= $indent . "$functionString;\n";
   } elsif ($copyFirst) {
     $result .= 
       $indent . GetNativeType($returnType, 0) . " result = *imp;\n" .
       $indent . "$functionString;\n";
   } elsif ($returnsListItemPodType) {
     $result .= $indent . "RefPtr<SVGPODListItem<$nativeReturnType> > result = $functionString;\n";
   } else {
     $result .= $indent . $nativeReturnType . " result = $functionString;\n";
   }
 
   if (@{$function->raisesExceptions}) {
       $result .= GenerateSetDOMException($indent);
   }
 
   my $return = "result";
   if (IsRefPtrType($returnType) || $returnsListItemPodType) {
     $implIncludes{"wtf/GetPtr.h"} = 1;
     $return = "WTF::getPtr(" . $return . ")";
   }
 
   # If the return type is a POD type, separate out the wrapper generation
   if ($returnsListItemPodType) {
-    $result .= $indent . "V8SVGPODTypeWrapperCreatorForList<" . $nativeReturnType . ">* wrapper = new ";
+    $result .= $indent . "V8SVGPODTypeWrapper<" . $nativeReturnType . ">* wrapper = new ";
     $result .= "V8SVGPODTypeWrapperCreatorForList<" . $nativeReturnType . ">($return, imp->associatedAttributeName());\n";
     $return = "wrapper";
   } elsif ($returnsPodType) {
-    $result .= $indent . "V8SVGPODTypeWrapperCreatorReadOnly<" . $nativeReturnType . ">* wrapper = ";
+    $result .= $indent . "V8SVGPODTypeWrapper<" . $nativeReturnType . ">* wrapper = ";
     $result .= GenerateReadOnlyPodTypeWrapper($returnType, $return) . ";\n";
     $return = "wrapper";
   }
   
   my $generatedSVGContextRetrieval = 0;
   # If the return type needs an SVG context, output it
   if (IsSVGTypeNeedingContextParameter($returnType)) {
     $result .= GenerateSVGContextAssignment($implClassName, $return, $indent);
     $generatedSVGContextRetrieval = 1;
   }
@@ skipping 239 matching lines @@
     if ($type eq "SVGPoint") {
         $implIncludes{"FloatPoint.h"} = 1;
     }
 
     # Default, assume autogenerated type conversion routines
     $implIncludes{"v8_proxy.h"} = 1;
     if ($type eq "EventTarget") {
       $implIncludes{"V8Node.h"} = 1;
 
       # EventTarget is not in DOM hierarchy, but all Nodes are EventTarget.
-      return "V8Node::HasInstance($value) ? V8Proxy::FastToNativeObject<EventTargetNode>(V8ClassIndex::NODE, $value) : 0";
+      return "V8Node::HasInstance($value) ? V8Proxy::DOMWrapperToNode<EventTargetNode>($value) : 0";
     }
 
     AddIncludesForType($type);
     # $implIncludes{"$type.h"} = 1 unless AvoidInclusionOfType($type);
 
     if (IsDOMNodeType($type)) {
       $implIncludes{"V8${type}.h"} = 1;
       
       # Perform type checks on the parameter, if it is expected Node type,
       # return NULL.
-      return "V8${type}::HasInstance($value) ? V8Proxy::FastToNativeObject<${type}>(V8ClassIndex::NODE, $value) : 0";
+      return "V8${type}::HasInstance($value) ? V8Proxy::DOMWrapperToNode<${type}>($value) : 0";
 
     } else {
       # TODO: Temporary to avoid Window name conflict.
       my $classIndex = uc($type);
       my $implClassName = GetImplementationClassName(${type});
 
       $implIncludes{"V8$type.h"} = 1;
       
       if ($codeGenerator->IsPodType($type)) {
         my $nativeType = GetNativeType($type);
         $implIncludes{"V8SVGPODTypeWrapper.h"} = 1;
 
         # TODO(jhass): perform type checking like others???
         return "*V8Proxy::ToNativeObject<V8SVGPODTypeWrapper<${nativeType}> >(V8ClassIndex::${classIndex}, $value)"
       }
       
       $implIncludes{"V8${type}.h"} = 1;
 
       # Perform type checks on the parameter, if it is expected Node type,
       # return NULL.
-      return "V8${type}::HasInstance($value) ? V8Proxy::FastToNativeObject<${implClassName}>(V8ClassIndex::${classIndex}, $value) : 0";
+      return "V8${type}::HasInstance($value) ? V8Proxy::ToNativeObject<${implClassName}>(V8ClassIndex::${classIndex}, $value) : 0";
     }
 }
 
 
 sub GetV8HeaderName
 {
     my $type = shift;
     return "V8" . GetImplementationFileName($type);
 }
 
@@ skipping 66 matching lines @@
   'EventListener' => 1
 );
 
 
 sub IsWrapperType
 {
     my $type = $codeGenerator->StripModule(shift);
     return !($non_wrapper_types{$type});
 }
 
-
 sub IsDOMNodeType
 {
     my $type = shift;
 
     return 1 if $type eq 'Attr';
     return 1 if $type eq 'CDATASection';
     return 1 if $type eq 'Comment';
     return 1 if $type eq 'Document';
     return 1 if $type eq 'DocumentFragment';
     return 1 if $type eq 'DocumentType';
@@ skipping 47 matching lines @@
         return "v8String($value)";
     }
 
     # V8 specific.
     my $implClassName = GetImplementationClassName($type);
     AddIncludesForType($type);
     # $implIncludes{GetImplementationFileName($type)} = 1 unless AvoidInclusionOfType($type);
 
     # special case for non-DOM node interfaces
     if (IsDOMNodeType($type)) {
-      return "V8Proxy::ToV8Object(V8ClassIndex::NODE, $value)";
+      return "V8Proxy::NodeToV8Object($value)";
     }
 
     if ($type eq "EventTarget" or $type eq "SVGElementInstance") {
       return "V8Proxy::EventTargetToV8Object($value)";
     }
 
     if ($type eq "Event") {
       return "V8Proxy::EventToV8Object($value)";
     }
 
@@ skipping 176 matching lines @@
   return 0;
 }
   
 sub DebugPrint
 {
   my $output = shift;
   
   print $output;
   print "\n";
 }