Index: Source/bindings/scripts/IDLParser.pm |
diff --git a/Source/bindings/scripts/IDLParser.pm b/Source/bindings/scripts/IDLParser.pm |
index 26f7a7654074d8434618e9e2bbb9828a91d2b321..32323c7522fef140a4aec1398f8370ba063ef515 100644 |
--- a/Source/bindings/scripts/IDLParser.pm |
+++ b/Source/bindings/scripts/IDLParser.pm |
@@ -50,7 +50,7 @@ struct( callbackFunction => { |
# Used to represent 'interface' blocks |
struct( domInterface => { |
name => '$', # Class identifier |
- parents => '@', # List of strings |
+ parent => '$', # Parent class identifier |
constants => '@', # List of 'domConstant' |
functions => '@', # List of 'domFunction' |
attributes => '@', # List of 'domAttribute' |
@@ -515,7 +515,7 @@ sub parseInterface |
my $interfaceNameToken = $self->getToken(); |
$self->assertTokenType($interfaceNameToken, IdentifierToken); |
$interface->name($interfaceNameToken->value()); |
- push(@{$interface->parents}, @{$self->parseInheritance()}); |
+ $interface->parent($self->parseInheritance()); |
$self->assertTokenValue($self->getToken(), "{", __LINE__); |
my $interfaceMembers = $self->parseInterfaceMembers(); |
$self->assertTokenValue($self->getToken(), "}", __LINE__); |
@@ -713,7 +713,7 @@ sub parseException |
$self->assertTokenType($exceptionNameToken, IdentifierToken); |
$interface->name($exceptionNameToken->value()); |
$interface->isException(1); |
- push(@{$interface->parents}, @{$self->parseInheritance()}); |
+ $interface->parent($self->parseInheritance()); |
$self->assertTokenValue($self->getToken(), "{", __LINE__); |
my $exceptionMembers = $self->parseExceptionMembers(); |
$self->assertTokenValue($self->getToken(), "}", __LINE__); |
@@ -749,17 +749,14 @@ sub parseExceptionMembers |
sub parseInheritance |
{ |
my $self = shift; |
- my @parent = (); |
+ my $parent; |
my $next = $self->nextToken(); |
if ($next->value() eq ":") { |
$self->assertTokenValue($self->getToken(), ":", __LINE__); |
- my $scopedName = $self->parseScopedName(); |
- push(@parent, $scopedName); |
- # Multiple inheritance? |
- push(@parent, @{$self->parseIdentifiers()}); |
+ $parent = $self->parseScopedName(); |
} |
- return \@parent; |
+ return $parent; |
} |
sub parseEnum |