Get rid of [Callback] extended attribute for parameters in IDL files

Source/bindings/scripts/CodeGenerator.pm

 #
 # WebKit IDL parser
 #
 # Copyright (C) 2005 Nikolas Zimmermann <wildfox@kde.org>
 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com>
 # Copyright (C) 2007, 2008, 2009, 2010 Apple Inc. All rights reserved.
 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au>
 # Copyright (C) Research In Motion Limited 2010. All rights reserved.
+# Copyright (C) 2013 Samsung Electronics. 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.
@@ skipping 620 matching lines @@
         $functionName = "setIntegralAttribute";
     } elsif ($attribute->signature->type eq "unsigned long") {
         $functionName = "setUnsignedIntegralAttribute";
     } else {
         $functionName = "setAttribute";
     }
 
     return ($functionName, $contentAttributeName);
 }
 
+sub IsCallbackInterfaceFromFile
+{
+    my $object = shift;
+    my $interfaceName = shift;
+
+    my $idlFile = $object->IDLFileForInterface($interfaceName)
+        or die("Could NOT find IDL file for interface \"$interfaceName\"!\n");
+
+    open my $fh, "<", $idlFile;
+    while (<$fh>) {
+        return 1 if /callback\s+interface\s+\w+/s;
+    }

[haraken, 2013/04/26 18:03:36]

This is a bit weak for whitespaces. Let's use the same programming pattern as
getPartialInterfaceNameFromIDLFile() in preprocess-idls.pl.

[do-not-use, 2013/04/26 18:15:57]

Meaning add the 'g' modifier, right?

+    return 0;
+}
+
 sub GenerateConditionalString
 {
     my $generator = shift;
     my $node = shift;
 
     my $conditional = $node->extendedAttributes->{"Conditional"};
     if ($conditional) {
         return $generator->GenerateConditionalStringFromAttributeValue($conditional);
     } else {
         return "";
@@ skipping 103 matching lines @@
         if ($currentInterface->extendedAttributes->{$extendedAttribute}) {
             $found = 1;
         }
         return 1 if $found;
     }, 0);
 
     return $found;
 }
 
 1;