Add V8 bindings for Worker (Part I).

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 244 matching lines @@
     my $conditional = $dataNode->extendedAttributes->{"Conditional"};
 
     # - Add default header template
     @headerContent = split("\r", $headerTemplate);
 
     # - Add header protection
     if ($className =~ /^V8SVG/) {
         push(@headerContent, "\n#if ENABLE(SVG)\n");
     } elsif (IsVideoClassName($className)) {
         push(@headerContent, "\n#if ENABLE(VIDEO)\n");
+    } elsif (IsWorkerClassName($className)) {
+        push(@headerContent, "\n#if ENABLE(WORKERS)\n");
     }
     
     push(@headerContent, "\n#ifndef $className" . "_H");
     push(@headerContent, "\n#define $className" . "_H\n\n");
 
     # Get correct pass/store types respecting PODType flag
     my $podType = $dataNode->extendedAttributes->{"PODType"};
     my $passType = $podType ? "JSSVGPODTypeWrapper<$podType>*" : "$implClassName*";
 
     push(@headerContent, "#include \"$podType.h\"\n") if $podType and ($podType ne "double" and $podType ne "float" and $podType ne "RGBA32");
@@ skipping 28 matching lines @@
 
 END
 
     push(@headerContent, "}\n\n");
     push(@headerContent, "#endif // $className" . "_H\n");
 
     if ($className =~ /^V8SVG/) {
         push(@headerContent, "\n#endif // ENABLE(SVG)\n");
     } elsif (IsVideoClassName($className)) {
         push(@headerContent, "\n#endif // ENABLE(VIDEO)\n");
+    } elsif (IsWorkerClassName($className)) {
+        push(@headerContent, "\n#endif // ENABLE(WORKERS)\n");
     }
 }
 
 
 sub GenerateSetDOMException
 {
   my $indent = shift;
   my $result = "";
 
   $result .= $indent . "if (ec) {\n";
@@ skipping 670 matching lines @@
     push(@implFixedHeader,
          "#include \"config.h\"\n" .
          "#include \"v8_proxy.h\"\n" .
          "#include \"v8_binding.h\"\n\n" .
          "#undef LOG\n\n");
  
     if ($className =~ /^V8SVG/) {
         push(@implFixedHeader, "#if ENABLE(SVG)\n\n");
     } elsif (IsVideoClassName($className)) {
         push(@implFixedHeader, "#if ENABLE(VIDEO)\n\n");
+    } elsif (IsWorkerClassName($className)) {
+        push(@implFixedHeader, "#if ENABLE(WORKERS)\n\n");
     }
     
     if ($className =~ /^V8SVGAnimated/) {
         AddIncludesForSVGAnimatedType($interfaceName);
     }
 
     $implIncludes{"${className}.h"} = 1;
 
     AddIncludesForType($interfaceName);
     $implIncludes{"v8_proxy.h"} = 1;
@@ skipping 303 matching lines @@
     }
 
     push(@implContent, <<END);
 } // namespace WebCore 
 END
 
     if ($className =~ /^V8SVG/) {
         push(@implContent, "\n#endif // ENABLE(SVG)\n");
     } elsif (IsVideoClassName($className)) {
         push(@implContent, "\n#endif // ENABLE(VIDEO)\n");
+    } elsif (IsWorkerClassName($className)) {
+        push(@implContent, "\n#endif // ENABLE(WORKERS)\n");
     }
 }
 
 
 sub GenerateFunctionCallString()
 {
   my $function = shift;
   my $numberOfParameters = shift;
   my $indent = shift;
   my $implClassName = shift;
@@ skipping 252 matching lines @@
     return 1 if $class eq "V8HTMLAudioElement";
     return 1 if $class eq "V8HTMLMediaElement";
     return 1 if $class eq "V8HTMLSourceElement";
     return 1 if $class eq "V8HTMLVideoElement";
     return 1 if $class eq "V8MediaError";
     return 1 if $class eq "V8TimeRanges";
 
     return 0;
 }
 
+sub IsWorkerClassName
+{
+    my $class = shift;
+    return 1 if $class eq "V8Worker";
+    return 1 if $class eq "V8WorkerLocation";
+
+    return 0;
+}
+
 sub GetNativeType
 {
     my $type = shift;
     my $isParameter = shift;
 
     if ($type eq "float" or $type eq "AtomicString" or $type eq "double") {
       return $type 
     }
     
     return "int" if $type eq "short" or $type eq "unsigned short";
@@ skipping 478 matching lines @@
   return 0;
 }
   
 sub DebugPrint
 {
   my $output = shift;
   
   print $output;
   print "\n";
 }