← Back to branch summary

~oif-team/ubuntu/natty/qt4-x11/xi2.1

« back to all changes in this revision

Viewing changes to src/3rdparty/webkit/WebCore/bindings/scripts/IDLParser.pm

  • Committer: Bazaar Package Importer
  • Author(s): Alessandro Ghersi
  • Date: 2009-11-02 18:30:08 UTC
  • mfrom: (1.2.2 upstream)
  • mto: (15.2.5 experimental)
  • mto: This revision was merged to the branch mainline in revision 88.
  • Revision ID: james.westby@ubuntu.com-20091102183008-b6a4gcs128mvfb3m
Tags: upstream-4.6.0~beta1
Import upstream version 4.6.0~beta1

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/3rdparty/webkit/WebCore/bindings/scripts/IDLParser.pm
41
41
 
42
42
my $beQuiet; # Should not display anything on STDOUT?
43
43
my $document = 0; # Will hold the resulting 'idlDocument'
 
44
my $parentsOnly = 0; # If 1, parse only enough to populate parents list
44
45
 
45
46
# Default Constructor
46
47
sub new
62
63
    my $fileName = shift;
63
64
    my $defines = shift;
64
65
    my $preprocessor = shift;
 
66
    $parentsOnly = shift;
65
67
 
66
68
    if (!$preprocessor) {
67
69
        $preprocessor = "/usr/bin/gcc -E -P -x c++";
240
242
            push(@$arrayRef, $line);
241
243
        }
242
244
 
 
245
        return if $parentsOnly;
 
246
 
243
247
        $interfaceData =~ s/[\n\r]/ /g;
244
248
        my @interfaceMethods = split(/;/, $interfaceData);
245
249
 
305
309
                $methodException =~ s/\s+//g;
306
310
                @{$newDataNode->raisesExceptions} = split(/,/, $methodException);
307
311
 
308
 
                my @params = split(/,/, $methodSignature);
 
312
                # Split arguments at commas but only if the comma
 
313
                # is not within attribute brackets, expressed here
 
314
                # as being followed by a ']' without a preceding '['.
 
315
                # Note that this assumes that attributes don't nest.
 
316
                my @params = split(/,(?![^[]*\])/, $methodSignature);
309
317
                foreach(@params) {
310
318
                    my $line = $_;
311
319