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->parseSpecial());

[haraken, 2013/04/26 11:47:15]

I think this isn't needed.

+        push(@$specials, @{$self->parseSpecials()});
         my $returnType = $self->parseReturnType();
         my $interface = $self->parseOperationRest($extendedAttributeList);
         if (defined ($interface)) {
             $interface->signature->type($returnType);
+            $interface->signature->specials($specials);

[haraken, 2013/04/26 11:47:15]

You can also write:

my @specials = ();
push(@specials, @{$self->parseSpecial});
...
$interface->signature->specials(\@specials);

[kojih, 2013/04/26 12:03:24]

I like that style, but it's OK :)

[haraken, 2013/04/26 12:09:52]

Other parts of IDLParser.pm uses 'my @foo=...' style, so let's use it here.

         }
         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;

[haraken, 2013/04/26 11:47:15]

Ditto. You can write:

my @specials = ();
push(@specials, $self->parseSpecial());
...;
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;