Index: Source/bindings/scripts/IDLParser.pm |
diff --git a/Source/bindings/scripts/IDLParser.pm b/Source/bindings/scripts/IDLParser.pm |
index 3a2af0110a4617622a00026649b81730512db926..593440f3fbaaa193f57b6e2447740b7664562bd4 100644 |
--- a/Source/bindings/scripts/IDLParser.pm |
+++ b/Source/bindings/scripts/IDLParser.pm |
@@ -170,6 +170,21 @@ sub assertNoExtendedAttributesInTypedef |
die $msg if %{$typedef->extendedAttributes}; |
} |
+sub ParseOnlyExtendedAttributes |
+{ |
+ my $self = shift; |
+ my $fileName = shift; |
+ my $defines = shift; |
+ my $preprocessor = shift; |
+ |
+ my @lines = applyPreprocessor($fileName, $defines, $preprocessor); |
+ $self->{Line} = $lines[0]; |
+ $self->{DocumentContent} = join(' ', @lines); |
+ |
+ $self->getToken(); |
+ return $self->parseExtendedAttributeListAllowEmpty(); |
+} |
+ |
sub Parse |
{ |
my $self = shift; |