Perl IDL parser: allow extended attributes to have more than 2 values

Source/bindings/scripts/idl_parser.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 1613 matching lines @@
 }
 
 sub parseExtendedAttributeRest3
 {
     my $self = shift;
     my $name = shift;
 
     my $next = $self->nextToken();
     if ($next->value() eq "&") {
         $self->assertTokenValue($self->getToken(), "&", __LINE__);
-        my $rightValue = $self->parseScopedName();
-        return $name . "&" . $rightValue;
+        return $name . "&" . $self->parseExtendedAttributeRest2();

[Nils Barth (inactive), 2014/01/06 07:09:53]

To explain the crypticness:
parseExtendedAttributeRest*2* parses an extended attribute value,
extracting an identifier and then calling parseExtendedAttributeRest*3*
to handle the tail -- &|(,] etc.
Thus for &| we should mutually recurse back to *2* to build a list.
Existing code is buggy b/c it instead requires that the tail be
a single identifier, not a list, thus limiting list length to 2.

(Not commenting in existing parser Perl code b/c this is going away
soon, and it's much simpler in the Python parser.)

     }
     if ($next->value() eq "|") {
         $self->assertTokenValue($self->getToken(), "|", __LINE__);
-        my $rightValue = $self->parseScopedName();
-        return $name . "|" . $rightValue;
+        return $name . "|" . $self->parseExtendedAttributeRest2();
     }
     if ($next->value() eq "(") {
         my $attr = {};
         $self->assertTokenValue($self->getToken(), "(", __LINE__);
         $attr->{$name} = $self->parseArgumentList();
         $self->assertTokenValue($self->getToken(), ")", __LINE__);
         return $attr;
     }
     if ($next->type() == IdentifierToken || $next->value() =~ /$nextExtendedAttributeRest3_1/) {
         my @names = ();
@@ skipping 562 matching lines @@
             $customConstructor->overloadedIndex($index++);
             push(@{$interface->customConstructors}, $customConstructor);
         }
         delete $extendedAttributeList->{"CustomConstructors"};
         $extendedAttributeList->{"CustomConstructor"} = "VALUE_IS_MISSING";
     }
     $interface->extendedAttributes($extendedAttributeList);
 }
 
 1;