diff options
Diffstat (limited to 'WebCore/bindings/scripts/IDLParser.pm')
| -rw-r--r-- | WebCore/bindings/scripts/IDLParser.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/WebCore/bindings/scripts/IDLParser.pm b/WebCore/bindings/scripts/IDLParser.pm index de7cf9c..c4cb041 100644 --- a/WebCore/bindings/scripts/IDLParser.pm +++ b/WebCore/bindings/scripts/IDLParser.pm @@ -41,6 +41,7 @@ my $preservedParseMode = MODE_UNDEF; my $beQuiet; # Should not display anything on STDOUT? my $document = 0; # Will hold the resulting 'idlDocument' +my $parentsOnly = 0; # If 1, parse only enough to populate parents list # Default Constructor sub new @@ -62,6 +63,7 @@ sub Parse my $fileName = shift; my $defines = shift; my $preprocessor = shift; + $parentsOnly = shift; if (!$preprocessor) { $preprocessor = "/usr/bin/gcc -E -P -x c++"; @@ -240,6 +242,8 @@ sub ParseInterface push(@$arrayRef, $line); } + return if $parentsOnly; + $interfaceData =~ s/[\n\r]/ /g; my @interfaceMethods = split(/;/, $interfaceData); |