Ready for latest WebIDL for named property getters.

Source/bindings/scripts/IDLParser.pm

 # 
 # KDOM IDL parser
 #
 # Copyright (C) 2005 Nikolas Zimmermann <wildfox@kde.org>
 # 
 # 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 57 matching lines @@
     isStatic => '$',
     signature => '$',         # Attribute signature
     getterExceptions => '@',  # Possibly raised exceptions.
     setterExceptions => '@',  # Possibly raised exceptions.
 });
 
 # Used to represent a map of 'variable name' <-> 'variable type'
 struct( domSignature => {
     name => '$',      # Variable name
     type => '$',      # Variable type
+    specials => '@',  # Specials
     extendedAttributes => '$', # Extended attributes
     isOptional => '$', # Is variable optional (optional T)
     isNullable => '$', # Is variable type Nullable (T?)
     isVariadic => '$' # Is variable variadic (long... numbers)
 });
 
 # Used to represent string constants
 struct( domConstant => {
     name => '$',      # DOM Constant identifier
     type => '$',      # Type of data
@@ skipping 1110 matching lines @@
     $self->assertUnexpectedToken($next->value(), __LINE__);
 }
 
 sub parseSpecialOperation
 {
     my $self = shift;
     my $extendedAttributeList = shift;
 
     my $next = $self->nextToken();
     if ($next->value() =~ /$nextSpecials_1/) {
-        $self->parseSpecial();
-        $self->parseSpecials();
+        my @specials = ();
+        push(@specials, @{$self->parseSpecials()});
         my $returnType = $self->parseReturnType();
         my $interface = $self->parseOperationRest($extendedAttributeList);
         if (defined ($interface)) {
             $interface->signature->type($returnType);
+            $interface->signature->specials(\@specials);
         }
         return $interface;
     }
     $self->assertUnexpectedToken($next->value(), __LINE__);
 }
 
 sub parseSpecials
 {
     my $self = shift;
+    my @specials = ();
 
     while (1) {
         my $next = $self->nextToken();
         if ($next->value() =~ /$nextSpecials_1/) {
-            $self->parseSpecial();
+            push(@specials, $self->parseSpecial());
         } else {
             last;
         }
     }
-    return [];
+    return \@specials;
 }
 
 sub parseSpecial
 {
     my $self = shift;
     my $next = $self->nextToken();
     if ($next->value() eq "getter") {
         $self->assertTokenValue($self->getToken(), "getter", __LINE__);
         return "getter";
     }
@@ skipping 966 matching lines @@
             $customConstructor->{overloadedIndex} = $index++;
             push(@{$interface->customConstructors}, $customConstructor);
         }
         delete $extendedAttributeList->{"CustomConstructors"};
         $extendedAttributeList->{"CustomConstructor"} = "VALUE_IS_MISSING";
     }
     $interface->extendedAttributes($extendedAttributeList);
 }
 
 1;