Changeset 846 for trunk/bin/syncqt


Ignore:
Timestamp:
May 5, 2011, 5:36:53 AM (14 years ago)
Author:
Dmitry A. Kuminov
Message:

trunk: Merged in qt 4.7.2 sources from branches/vendor/nokia/qt.

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

  • trunk/bin/syncqt

    r769 r846  
    44# Synchronizes Qt header files - internal development tool.
    55#
    6 # Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies).
     6# Copyright (C) 2011 Nokia Corporation and/or its subsidiary(-ies).
    77# Contact: Nokia Corporation (qt-info@nokia.com)
    88#
    … …  
    4343        "QtScriptTools" => "$basedir/src/scripttools",
    4444        "Qt3Support" => "$basedir/src/qt3support",
    45         "ActiveQt" => "$basedir/src/activeqt/container;$basedir/src/activeqt/control;$basedir/src/activeqt/shared",
     45        "ActiveQt" => "$basedir/src/activeqt",
    4646        "QtTest" => "$basedir/src/testlib",
    47         "QtAssistant" => "$basedir/tools/assistant/compat/lib",
    4847        "QtHelp" => "$basedir/tools/assistant/lib",
    4948        "QtDesigner" => "$basedir/tools/designer/src/lib",
    … …  
    5352        "phonon" => "$basedir/src/phonon",
    5453        "QtMultimedia" => "$basedir/src/multimedia",
     54        "QtMeeGoGraphicsSystemHelper" => "$basedir/tools/qmeegographicssystemhelper",
    5555);
    5656my %moduleheaders = ( # restrict the module headers to those found in relative path
    … …  
    6464my $module = 0;
    6565my $showonly = 0;
     66my $quiet = 0;
    6667my $remove_stale = 1;
    6768my $force_win = 0;
    … …  
    9495    print "  -showonly             Show action but not perform        (default: " . ($showonly ? "yes" : "no") . ")\n";
    9596    print "  -outdir <PATH>        Specify output directory for sync  (default: $out_basedir)\n";
     97    print "  -quiet                Only report problems, not activity (default: " . ($quiet ? "yes" : "no") . ")\n";
    9698    print "  -separate-module <NAME>:<PROFILEDIR>:<HEADERDIR> Create headers for <NAME> with original headers in <HEADERDIR> relative to <PROFILEDIR> \n";
    9799    print "  -help                 This help\n";
    … …  
    146148    if(open(F, "<$iheader")) {
    147149        while(<F>) {
    148             chomp;
    149             return 0 if(/^\#pragma qt_no_master_include$/);
    150         }
    151         close(F);
     150            chomp;
     151            return 0 if(/^\#pragma qt_no_master_include$/);
     152        }
     153        close(F);
    152154    } else {
    153         return 0;
     155        return 0;
    154156    }
    155157    return 1;
    … …  
    168170    my ($iheader) = @_;
    169171    if(basename($iheader) eq "qglobal.h") {
    170         push @ret, "QtGlobal";
     172        push @ret, "QtGlobal";
    171173    } elsif(basename($iheader) eq "qendian.h") {
    172         push @ret, "QtEndian";
     174        push @ret, "QtEndian";
    173175    } elsif(basename($iheader) eq "qconfig.h") {
    174176        push @ret, "QtConfig";
    175177    } elsif(basename($iheader) eq "qplugin.h") {
    176         push @ret, "QtPlugin";
     178        push @ret, "QtPlugin";
    177179    } elsif(basename($iheader) eq "qalgorithms.h") {
    178         push @ret, "QtAlgorithms";
     180        push @ret, "QtAlgorithms";
    179181    } elsif(basename($iheader) eq "qcontainerfwd.h") {
    180         push @ret, "QtContainerFwd";
     182        push @ret, "QtContainerFwd";
    181183    } elsif(basename($iheader) eq "qdebug.h") {
    182184        push @ret, "QtDebug";
    … …  
    186188        push @ret, "Qt"
    187189    } elsif(basename($iheader) eq "qssl.h") {
    188         push @ret, "QSsl";
     190        push @ret, "QSsl";
    189191    } elsif(basename($iheader) eq "qtest.h") {
    190192        push @ret, "QTest"
    … …  
    204206            my $line = $_;
    205207            chomp $line;
    206                         chop $line if ($line =~ /\r$/);
     208                        chop $line if ($line =~ /\r$/);
    207209            if($line =~ /^\#/) {
    208210                if($line =~ /\\$/) {
    … …  
    212214                    }
    213215                }
    214                 return @ret if($line =~ m/^#pragma qt_sync_stop_processing/);
    215                 push(@ret, "$1") if($line =~ m/^#pragma qt_class\(([^)]*)\)[\r\n]*$/);
    216                 $line = 0;
    217             }
    218             if($line) {
     216                return @ret if($line =~ m/^#pragma qt_sync_stop_processing/);
     217                push(@ret, $1) if($line =~ m/^#pragma qt_class\(([^)]*)\)[\r\n]*$/);
     218                $line = 0;
     219            }
     220            if($line) {
    219221                $line =~ s,//.*$,,; #remove c++ comments
    220                 $line .= ";" if($line =~ m/^Q_[A-Z_]*\(.*\)[\r\n]*$/); #qt macro
    221                 $line .= ";" if($line =~ m/^QT_(BEGIN|END)_HEADER[\r\n]*$/); #qt macro
    222                 $line .= ";" if($line =~ m/^QT_(BEGIN|END)_NAMESPACE[\r\n]*$/); #qt macro
    223                 $line .= ";" if($line =~ m/^QT_MODULE\(.*\)[\r\n]*$/); # QT_MODULE macro
     222                $line .= ";" if($line =~ m/^Q_[A-Z_]*\(.*\)[\r\n]*$/); #qt macro
     223                $line .= ";" if($line =~ m/^QT_(BEGIN|END)_HEADER[\r\n]*$/); #qt macro
     224                $line .= ";" if($line =~ m/^QT_(BEGIN|END)_NAMESPACE[\r\n]*$/); #qt macro
     225                $line .= ";" if($line =~ m/^QT_MODULE\(.*\)[\r\n]*$/); # QT_MODULE macro
    224226                $parsable .= " " . $line;
    225             }
     227            }
    226228        }
    227229        close(F);
    … …  
    259261                              $last_definition = $i + 1;
    260262                              last BLOCK;
    261                           }
     263                          }
    262264                      }
    263265                  }
    … …  
    267269            $definition = substr($parsable, $last_definition, $i - $last_definition + 1);
    268270            $last_definition = $i + 1;
    269         } elsif($character eq "}") {
    270             # a naked } must be a namespace ending
    271             # if it's not a namespace, it's eaten by the loop above
    272             pop @namespaces;
    273             $last_definition = $i + 1;
    274         }
    275 
    276         if (substr($parsable, $last_definition, $i - $last_definition + 1) =~ m/ namespace ([^ ]*) /
    277             && substr($parsable, $i+1, 1) eq "{") {
    278             push @namespaces, $1;
    279 
    280             # Eat the opening { so that the condensing loop above doesn't see it
    281             $i++;
    282             $last_definition = $i + 1;
    283         }
     271        } elsif($character eq "}") {
     272            # a naked } must be a namespace ending
     273            # if it's not a namespace, it's eaten by the loop above
     274            pop @namespaces;
     275            $last_definition = $i + 1;
     276        }
     277
     278        if (substr($parsable, $last_definition, $i - $last_definition + 1) =~ m/ namespace ([^ ]*) /
     279            && substr($parsable, $i+1, 1) eq "{") {
     280            push @namespaces, $1;
     281
     282            # Eat the opening { so that the condensing loop above doesn't see it
     283            $i++;
     284            $last_definition = $i + 1;
     285        }
    284286
    285287        if($definition) {
    286             $definition =~ s=[\n\r]==g;
     288            $definition =~ s=[\n\r]==g;
    287289            my @symbols;
    288290            if($definition =~ m/^ *typedef *.*\(\*([^\)]*)\)\(.*\);$/) {
    289                 push @symbols, $1;
     291                push @symbols, $1;
    290292            } elsif($definition =~ m/^ *typedef +(.*) +([^ ]*);$/) {
    291                 push @symbols, $2;
     293                push @symbols, $2;
    292294            } elsif($definition =~ m/^ *(template *<.*> *)?(class|struct) +([^ ]* +)?([^<\s]+) ?(<[^>]*> ?)?\s*((,|:)\s*(public|protected|private) *.*)? *\{\}$/) {
    293                 push @symbols, $4;
     295                push @symbols, $4;
    294296            } elsif($definition =~ m/^ *Q_DECLARE_.*ITERATOR\((.*)\);$/) {
    295                 push @symbols, "Q" . $1 . "Iterator";
    296                 push @symbols, "QMutable" . $1 . "Iterator";
    297             }
    298 
    299             foreach (@symbols) {
    300                 my $symbol = $_;
    301                 $symbol = (join("::", @namespaces) . "::" . $symbol) if (scalar @namespaces);
    302                 push @ret, $symbol
    303                     if ($symbol =~ /^Q[^:]*$/           # no-namespace, starting with Q
    304                         || $symbol =~ /^Phonon::/);     # or in the Phonon namespace
     297                push @symbols, "Q" . $1 . "Iterator";
     298                push @symbols, "QMutable" . $1 . "Iterator";
     299            }
     300
     301            foreach my $symbol (@symbols) {
     302                $symbol = (join("::", @namespaces) . "::" . $symbol) if (scalar @namespaces);
     303                push @ret, $symbol
     304                    if ($symbol =~ /^Q[^:]*$/           # no-namespace, starting with Q
     305                        || $symbol =~ /^Phonon::/);     # or in the Phonon namespace
    305306            }
    306307        }
    … …  
    310311
    311312######################################################################
    312 # Syntax:  syncHeader(header, iheader, copy)
     313# Syntax:  syncHeader(header, iheader, copy, timestamp)
    313314# Params:  header, string, filename to create "symlink" for
    314315#          iheader, string, destination name of symlink
    315316#          copy, forces header to be a copy of iheader
     317#          timestamp, the requested modification time if copying
    316318#
    317319# Purpose: Syncronizes header to iheader
    … …  
    319321######################################################################
    320322sub syncHeader {
    321     my ($header, $iheader, $copy) = @_;
     323    my ($header, $iheader, $copy, $ts) = @_;
    322324    $iheader =~ s=\\=/=g;
    323325    $header =~ s=\\=/=g;
    324326    return copyFile($iheader, $header) if($copy);
    325327
    326     unless(-e "$header") {
     328    unless(-e $header) {
    327329        my $header_dir = dirname($header);
    328         mkpath $header_dir, 0777;
     330        mkpath $header_dir, !$quiet;
    329331
    330332        #write it
    … …  
    333335        print HEADER "#include \"$iheader_out\"\n";
    334336        close HEADER;
     337        utime(time, $ts, $header) or die "$iheader, $header";
    335338        return 1;
    336339    }
    … …  
    356359    #setup
    357360    my $ret = $file;
     361    $ret =~ s,/cygdrive/([a-zA-Z])/,$1:/,g;
    358362    my $file_dir = dirname($file);
    359363    if($file_dir eq ".") {
    … …  
    361365        $file_dir =~ s=\\=/=g;
    362366    }
    363     $file_dir =~ s,/cygdrive/([a-zA-Z])/,$1:,g;
     367    $file_dir =~ s,/cygdrive/([a-zA-Z])/,$1:/,g;
    364368    if($dir eq ".") {
    365369        $dir = getcwd();
    … …  
    367371    }
    368372    $dir =~ s,/cygdrive/([a-zA-Z])/,$1:/,g;
    369     return basename($file) if("$file_dir" eq "$dir");
     373    return basename($file) if($file_dir eq $dir);
    370374
    371375    #guts
    … …  
    429433    if (! -e $file1) { return 1; }
    430434    if (! -e $file2) { return -1; }
    431     return $file1contents ne $file2contents ? (stat("$file2"))[9] <=> (stat("$file1"))[9] : 0;
     435    return $file1contents ne $file2contents ? (stat($file2))[9] <=> (stat($file1))[9] : 0;
    432436}
    433437
    … …  
    452456    close I;
    453457    if ( open(I, "< " . $ifile) ) {
    454         local $/;
    455         binmode I;
    456         $ifilecontents = <I>;
    457         close I;
    458         $copy = fileCompare($file, $ifile);
    459         $knowdiff = 0,
     458        local $/;
     459        binmode I;
     460        $ifilecontents = <I>;
     461        close I;
     462        $copy = fileCompare($file, $ifile);
     463        $knowdiff = 0,
    460464    } else {
    461         $copy = -1;
    462         $knowdiff = 1;
     465        $copy = -1;
     466        $knowdiff = 1;
    463467    }
    464468
    465469    if ( $knowdiff || ($filecontents ne $ifilecontents) ) {
    466         if ( $copy > 0 ) {
    467             my $file_dir = dirname($file);
    468             mkpath $file_dir, 0777 unless(-e "$file_dir");
    469             open(O, "> " . $file) || die "Could not open $file for writing (no write permission?)";
    470             local $/;
    471             binmode O;
    472             print O $ifilecontents;
    473             close O;
    474             return 1;
    475         } elsif ( $copy < 0 ) {
    476             my $ifile_dir = dirname($ifile);
    477             mkpath $ifile_dir, 0777 unless(-e "$ifile_dir");
    478             open(O, "> " . $ifile) || die "Could not open $ifile for writing (no write permission?)";
    479             local $/;
    480             binmode O;
    481             print O $filecontents;
    482             close O;
    483             return 1;
    484         }
     470        if ( $copy > 0 ) {
     471            my $file_dir = dirname($file);
     472            mkpath $file_dir, !$quiet unless(-e $file_dir);
     473            open(O, "> " . $file) || die "Could not open $file for writing (no write permission?)";
     474            local $/;
     475            binmode O;
     476            print O $ifilecontents;
     477            close O;
     478            utime time, (stat($ifile))[9], $file;
     479            return 1;
     480        } elsif ( $copy < 0 ) {
     481            my $ifile_dir = dirname($ifile);
     482            mkpath $ifile_dir, !$quiet unless(-e $ifile_dir);
     483            open(O, "> " . $ifile) || die "Could not open $ifile for writing (no write permission?)";
     484            local $/;
     485            binmode O;
     486            print O $filecontents;
     487            close O;
     488            utime time, (stat($file))[9], $ifile;
     489            return 1;
     490        }
    485491    }
    486492    return 0;
    … …  
    501507
    502508    if ($isunix) {
    503         print "symlink created for $file ";
     509        print "symlink created for $file " unless $quiet;
    504510        if ( $force_relative && ($ifile =~ /^$basedir/)) {
    505511            my $t = getcwd();
    … …  
    509515            $p .= "../" while( ($c = index( $t, "/", $c + 1)) != -1 );
    510516            $file =~ s-^$basedir/-$p-;
    511             print " ($file)\n";
    512         }
    513         print "\n";
     517            print " ($file)\n" unless $quiet;
     518        }
     519        print "\n" unless $quiet;
    514520        return symlink($file, $ifile);
    515521    }
    … …  
    566572    #parse
    567573    my $arg = shift @ARGV;
    568     if ("$arg" eq "-h" || "$arg" eq "-help" || "$arg" eq "?") {
    569         $var = "show_help";
    570         $val = "yes";
    571     } elsif("$arg" eq "-copy") {
    572         $var = "copy";
    573         $val = "yes";
    574     } elsif("$arg" eq "-o" || "$arg" eq "-outdir") {
    575         $var = "output";
    576         $val = shift @ARGV;
    577     } elsif("$arg" eq "-showonly" || "$arg" eq "-remove-stale" || "$arg" eq "-windows" ||
    578             "$arg" eq "-relative" || "$arg" eq "-check-includes") {
    579         $var = substr($arg, 1);
    580         $val = "yes";
    581     } elsif("$arg" =~ /^-no-(.*)$/) {
    582         $var = $1;
    583         $val = "no";
    584         #these are for commandline compat
    585     } elsif("$arg" eq "-inc") {
    586         $var = "output";
    587         $val = shift @ARGV;
    588     } elsif("$arg" eq "-module") {
    589         $var = "module";
    590         $val = shift @ARGV;
    591     } elsif("$arg" eq "-separate-module") {
    592         $var = "separate-module";
    593         $val = shift @ARGV;
    594     } elsif("$arg" eq "-show") {
    595         $var = "showonly";
    596         $val = "yes";
    597     } elsif("$arg" eq "-base-dir") {
     574    if ($arg eq "-h" || $arg eq "-help" || $arg eq "?") {
     575        $var = "show_help";
     576        $val = "yes";
     577    } elsif($arg eq "-copy") {
     578        $var = "copy";
     579        $val = "yes";
     580    } elsif($arg eq "-o" || $arg eq "-outdir") {
     581        $var = "output";
     582        $val = shift @ARGV;
     583    } elsif($arg eq "-showonly" || $arg eq "-remove-stale" || $arg eq "-windows" ||
     584            $arg eq "-relative" || $arg eq "-check-includes") {
     585        $var = substr($arg, 1);
     586        $val = "yes";
     587    } elsif($arg =~ /^-no-(.*)$/) {
     588        $var = $1;
     589        $val = "no";
     590        #these are for commandline compat
     591    } elsif($arg eq "-inc") {
     592        $var = "output";
     593        $val = shift @ARGV;
     594    } elsif($arg eq "-module") {
     595        $var = "module";
     596        $val = shift @ARGV;
     597    } elsif($arg eq "-separate-module") {
     598        $var = "separate-module";
     599        $val = shift @ARGV;
     600    } elsif($arg eq "-show") {
     601        $var = "showonly";
     602        $val = "yes";
     603    } elsif($arg eq "-quiet") {
     604        $var = "quiet";
     605        $val = "yes";
     606    } elsif($arg eq "-base-dir") {
    598607        # skip, it's been dealt with at the top of the file
    599608        shift @ARGV;
    600609        next;
    601     } elsif("$arg" eq '*') {
    602         # workaround for windows 9x where "%*" expands to "*"
    603         $var = 1;
    604610    }
    605611
    606612    #do something
    607     if(!$var || "$var" eq "show_help") {
    608         print "Unknown option: $arg\n\n" if(!$var);
    609         showUsage();
    610     } elsif ("$var" eq "copy") {
    611         if("$val" eq "yes") {
    612             $copy_headers++;
    613         } elsif($showonly) {
    614             $copy_headers--;
    615         }
    616     } elsif ("$var" eq "showonly") {
    617         if("$val" eq "yes") {
    618             $showonly++;
    619         } elsif($showonly) {
    620             $showonly--;
    621         }
    622     } elsif ("$var" eq "check-includes") {
    623         if("$val" eq "yes") {
    624             $check_includes++;
    625         } elsif($check_includes) {
    626             $check_includes--;
    627         }
    628     } elsif ("$var" eq "remove-stale") {
    629         if("$val" eq "yes") {
    630             $remove_stale++;
    631         } elsif($remove_stale) {
    632             $remove_stale--;
    633         }
    634     } elsif ("$var" eq "windows") {
    635         if("$val" eq "yes") {
    636             $force_win++;
    637         } elsif($force_win) {
    638             $force_win--;
    639         }
    640     } elsif ("$var" eq "relative") {
    641         if("$val" eq "yes") {
    642             $force_relative++;
    643         } elsif($force_relative) {
    644             $force_relative--;
    645         }
    646     } elsif ("$var" eq "module") {
    647         print "module :$val:\n";
    648         die "No such module: $val" unless(defined $modules{$val});
    649         push @modules_to_sync, $val;
    650     } elsif ("$var" eq "separate-module") {
     613    if(!$var || $var eq "show_help") {
     614        print "Unknown option: $arg\n\n" if(!$var);
     615        showUsage();
     616    } elsif ($var eq "copy") {
     617        if($val eq "yes") {
     618            $copy_headers++;
     619        } elsif($showonly) {
     620            $copy_headers--;
     621        }
     622    } elsif ($var eq "showonly") {
     623        if($val eq "yes") {
     624            $showonly++;
     625        } elsif($showonly) {
     626            $showonly--;
     627        }
     628    } elsif ($var eq "quiet") {
     629        if($val eq "yes") {
     630            $quiet++;
     631        } elsif($quiet) {
     632            $quiet--;
     633        }
     634    } elsif ($var eq "check-includes") {
     635        if($val eq "yes") {
     636            $check_includes++;
     637        } elsif($check_includes) {
     638            $check_includes--;
     639        }
     640    } elsif ($var eq "remove-stale") {
     641        if($val eq "yes") {
     642            $remove_stale++;
     643        } elsif($remove_stale) {
     644            $remove_stale--;
     645        }
     646    } elsif ($var eq "windows") {
     647        if($val eq "yes") {
     648            $force_win++;
     649        } elsif($force_win) {
     650            $force_win--;
     651        }
     652    } elsif ($var eq "relative") {
     653        if($val eq "yes") {
     654            $force_relative++;
     655        } elsif($force_relative) {
     656            $force_relative--;
     657        }
     658    } elsif ($var eq "module") {
     659        print "module :$val:\n" unless $quiet;
     660        die "No such module: $val" unless(defined $modules{$val});
     661        push @modules_to_sync, $val;
     662    } elsif ($var eq "separate-module") {
    651663        my ($module, $prodir, $headerdir) = split(/:/, $val);
    652664        $modules{$module} = $prodir;
    … …  
    655667        $create_uic_class_map = 0;
    656668        $create_private_headers = 0;
    657     } elsif ("$var" eq "output") {
    658         my $outdir = $val;
    659         if(checkRelative($outdir)) {
    660             $out_basedir = getcwd();
    661             chomp $out_basedir;
    662             $out_basedir .= "/" . $outdir;
    663         } else {
    664             $out_basedir = $outdir;
    665         }
    666         # \ -> /
    667         $out_basedir =~ s=\\=/=g;
     669    } elsif ($var eq "output") {
     670        my $outdir = $val;
     671        if(checkRelative($outdir)) {
     672            $out_basedir = getcwd();
     673            chomp $out_basedir;
     674            $out_basedir .= "/" . $outdir;
     675        } else {
     676            $out_basedir = $outdir;
     677        }
     678        # \ -> /
     679        $out_basedir =~ s=\\=/=g;
    668680    }
    669681}
    … …  
    673685
    674686# create path
    675 mkpath "$out_basedir/include", 0777;
     687mkpath "$out_basedir/include", !$quiet;
     688mkpath "$out_basedir/include/Qt", !$quiet;
    676689
    677690my @ignore_headers = ();
    … …  
    681694my @ignore_for_qt_begin_header_check = ( "qiconset.h", "qconfig.h", "qconfig-dist.h", "qconfig-large.h", "qconfig-medium.h", "qconfig-minimal.h", "qconfig-small.h", "qfeatures.h", "qt_windows.h" );
    682695my @ignore_for_qt_begin_namespace_check = ( "qconfig.h", "qconfig-dist.h", "qconfig-large.h", "qconfig-medium.h", "qconfig-minimal.h", "qconfig-small.h", "qfeatures.h", "qatomic_arch.h", "qatomic_windowsce.h", "qt_windows.h", "qatomic_macosx.h" );
    683 my @ignore_for_qt_module_check = ( "$modules{QtCore}/arch", "$modules{QtCore}/global", "$modules{QtSql}/drivers", "$modules{QtTest}", "$modules{QtAssistant}", "$modules{QtDesigner}", "$modules{QtUiTools}", "$modules{QtDBus}", "$modules{phonon}" );
    684 
    685 foreach (@modules_to_sync) {
     696my @ignore_for_qt_module_check = ( "$modules{QtCore}/arch", "$modules{QtCore}/global", "$modules{QtSql}/drivers", "$modules{QtTest}", "$modules{QtDesigner}", "$modules{QtUiTools}", "$modules{QtDBus}", "$modules{phonon}" );
     697my %colliding_headers = ();
     698my %inject_headers = ( "$basedir/src/corelib/global" => ( "qconfig.h" ) ); # all from build dir
     699
     700foreach my $lib (@modules_to_sync) {
    686701    #iteration info
    687     my $lib = $_;
    688     my $dir = "$modules{$lib}";
     702    my $dir = $modules{$lib};
    689703    my $pathtoheaders = "";
    690     $pathtoheaders = "$moduleheaders{$lib}" if ($moduleheaders{$lib});
     704    $pathtoheaders = $moduleheaders{$lib} if ($moduleheaders{$lib});
    691705
    692706    #information used after the syncing
    … …  
    701715    #get dependencies
    702716    if(-e "$dir/" . basename($dir) . ".pro") {
    703         if(open(F, "<$dir/" . basename($dir) . ".pro")) {
    704             while(<F>) {
    705                 my $line = $_;
    706                 chomp $line;
    707                 if($line =~ /^ *QT *\+?= *([^\r\n]*)/) {
    708                     foreach(split(/ /, "$1")) {
    709                         $master_contents .= "#include <QtCore/QtCore>\n" if("$_" eq "core");
    710                         $master_contents .= "#include <QtGui/QtGui>\n" if("$_" eq "gui");
    711                         $master_contents .= "#include <QtNetwork/QtNetwork>\n" if("$_" eq "network");
    712                         $master_contents .= "#include <QtSvg/QtSvg>\n" if("$_" eq "svg");
    713                         $master_contents .= "#include <QtDeclarative/QtDeclarative>\n" if("$_" eq "declarative");
    714                         $master_contents .= "#include <QtScript/QtScript>\n" if("$_" eq "script");
    715                         $master_contents .= "#include <QtScriptTools/QtScriptTools>\n" if("$_" eq "scripttools");
    716                         $master_contents .= "#include <Qt3Support/Qt3Support>\n" if("$_" eq "qt3support");
    717                         $master_contents .= "#include <QtSql/QtSql>\n" if("$_" eq "sql");
    718                         $master_contents .= "#include <QtXml/QtXml>\n" if("$_" eq "xml");
    719                         $master_contents .= "#include <QtXmlPatterns/QtXmlPatterns>\n" if("$_" eq "xmlpatterns");
    720                         $master_contents .= "#include <QtOpenGL/QtOpenGL>\n" if("$_" eq "opengl");
    721                         $master_contents .= "#include <QtOpenVG/QtOpenVG>\n" if("$_" eq "openvg");
    722                     }
    723                 }
    724             }
    725             close(F);
    726         }
     717        if(open(F, "<$dir/" . basename($dir) . ".pro")) {
     718            while(my $line = <F>) {
     719                chomp $line;
     720                if($line =~ /^ *QT *\+?= *([^\r\n]*)/) {
     721                    foreach(split(/ /, $1)) {
     722                        $master_contents .= "#include <QtCore/QtCore>\n" if($_ eq "core");
     723                        $master_contents .= "#include <QtGui/QtGui>\n" if($_ eq "gui");
     724                        $master_contents .= "#include <QtNetwork/QtNetwork>\n" if($_ eq "network");
     725                        $master_contents .= "#include <QtSvg/QtSvg>\n" if($_ eq "svg");
     726                        $master_contents .= "#include <QtDeclarative/QtDeclarative>\n" if($_ eq "declarative");
     727                        $master_contents .= "#include <QtScript/QtScript>\n" if($_ eq "script");
     728                        $master_contents .= "#include <QtScriptTools/QtScriptTools>\n" if($_ eq "scripttools");
     729                        $master_contents .= "#include <Qt3Support/Qt3Support>\n" if($_ eq "qt3support");
     730                        $master_contents .= "#include <QtSql/QtSql>\n" if($_ eq "sql");
     731                        $master_contents .= "#include <QtXml/QtXml>\n" if($_ eq "xml");
     732                        $master_contents .= "#include <QtXmlPatterns/QtXmlPatterns>\n" if($_ eq "xmlpatterns");
     733                        $master_contents .= "#include <QtOpenGL/QtOpenGL>\n" if($_ eq "opengl");
     734                        $master_contents .= "#include <QtOpenVG/QtOpenVG>\n" if($_ eq "openvg");
     735                    }
     736                }
     737            }
     738            close(F);
     739        }
    727740    }
    728741
    729742    #remove the old files
    730743    if($remove_stale) {
    731         my @subdirs = ("$out_basedir/include/$lib");
    732         foreach (@subdirs) {
    733             my $subdir = "$_";
    734             if (opendir DIR, "$subdir") {
    735                 while(my $t = readdir(DIR)) {
    736                     my $file = "$subdir/$t";
    737                     if(-d "$file") {
    738                         push @subdirs, "$file" unless($t eq "." || $t eq "..");
    739                     } else {
    740                         my @files = ("$file");
    741                         #push @files, "$out_basedir/include/Qt/$t" if(-e "$out_basedir/include/Qt/$t");
    742                         foreach (@files) {
    743                            my $file = $_;
    744                            my $remove_file = 0;
    745                            if(open(F, "<$file")) {
    746                                 while(<F>) {
    747                                     my $line = $_;
    748                                     chomp $line;
    749                                     if($line =~ /^\#include \"([^\"]*)\"$/) {
    750                                         my $include = $1;
    751                                         $include = $subdir . "/" . $include unless(substr($include, 0, 1) eq "/");
    752                                         $remove_file = 1 unless(-e "$include");
    753                                     } else {
    754                                         $remove_file = 0;
    755                                         last;
    756                                     }
    757                                 }
    758                                 close(F);
    759                                 unlink "$file" if($remove_file);
    760                             }
    761                         }
    762                     }
    763                 }
    764                 closedir DIR;
    765             }
    766 
    767         }
     744        my @subdirs = ("$out_basedir/include/$lib");
     745        foreach my $subdir (@subdirs) {
     746            if (opendir DIR, $subdir) {
     747                while(my $t = readdir(DIR)) {
     748                    my $file = "$subdir/$t";
     749                    if(-d $file) {
     750                        push @subdirs, $file unless($t eq "." || $t eq "..");
     751                    } else {
     752                        my @files = ($file);
     753                        #push @files, "$out_basedir/include/Qt/$t" if(-e "$out_basedir/include/Qt/$t");
     754                        foreach my $file (@files) {
     755                           my $remove_file = 0;
     756                           if(open(F, "<$file")) {
     757                                while(my $line = <F>) {
     758                                    chomp $line;
     759                                    if($line =~ /^\#include \"([^\"]*)\"$/) {
     760                                        my $include = $1;
     761                                        $include = $subdir . "/" . $include unless(substr($include, 0, 1) eq "/");
     762                                        $remove_file = 1 unless(-e $include);
     763                                    } else {
     764                                        $remove_file = 0;
     765                                        last;
     766                                    }
     767                                }
     768                                close(F);
     769                                unlink $file if($remove_file);
     770                            }
     771                        }
     772                    }
     773                }
     774                closedir DIR;
     775            }
     776
     777        }
    768778    }
    769779
    770780    #create the new ones
    771     foreach (split(/;/, $dir)) {
    772         my $current_dir = "$_";
    773         my $headers_dir = $current_dir;
     781    foreach my $current_dir (split(/;/, $dir)) {
     782        my $headers_dir = $current_dir;
    774783        $headers_dir .= "/$pathtoheaders" if ($pathtoheaders);
    775784        #calc subdirs
    776785        my @subdirs = ($headers_dir);
    777         foreach (@subdirs) {
    778             my $subdir = "$_";
    779             opendir DIR, "$subdir" or next;
     786        foreach my $subdir (@subdirs) {
     787            opendir DIR, $subdir or next;
    780788            while(my $t = readdir(DIR)) {
    781789                push @subdirs, "$subdir/$t" if(-d "$subdir/$t" && !($t eq ".") &&
    782                                                !($t eq "..") && !($t eq ".obj") &&
     790                                               !($t eq "..") && !($t eq ".obj") &&
    783791                                               !($t eq ".moc") && !($t eq ".rcc") &&
    784792                                               !($t eq ".uic") && !($t eq "build"));
    … …  
    788796
    789797        #calc files and "copy" them
    790         foreach (@subdirs) {
    791             my $subdir = "$_";
    792             my @headers = findFiles("$subdir", "^[-a-z0-9_]*\\.h\$" , 0);
    793             foreach (@headers) {
    794                 my $header = "$_";
    795                 $header = 0 if("$header" =~ /^ui_.*.h/);
     798        foreach my $subdir (@subdirs) {
     799            my @headers = findFiles($subdir, "^[-a-z0-9_]*\\.h\$" , 0);
     800            if (defined $inject_headers{$subdir}) {
     801                foreach my $if ($inject_headers{$subdir}) {
     802                    @headers = grep(!/^\Q$if\E$/, @headers); #in case we configure'd previously
     803                    push @headers, "*".$if;
     804                }
     805            }
     806            foreach my $header (@headers) {
     807                my $shadow = ($header =~ s/^\*//);
     808                $header = 0 if($header =~ /^ui_.*.h/);
    796809                foreach (@ignore_headers) {
    797                     $header = 0 if("$header" eq "$_");
     810                    $header = 0 if($header eq $_);
    798811                }
    799812                if($header) {
    800                     my $header_copies = 0;
    801                     #figure out if it is a public header
    802                     my $public_header = $header;
    803                     if($public_header =~ /_p.h$/ || $public_header =~ /_pch.h$/) {
    804                         $public_header = 0;
    805                     } else {
    806                         foreach (@ignore_for_master_contents) {
    807                             $public_header = 0 if("$header" eq "$_");
    808                         }
    809                     }
     813                    my $header_copies = 0;
     814                    #figure out if it is a public header
     815                    my $public_header = $header;
     816                    if($public_header =~ /_p.h$/ || $public_header =~ /_pch.h$/) {
     817                        $public_header = 0;
     818                    } else {
     819                        foreach (@ignore_for_master_contents) {
     820                            $public_header = 0 if($header eq $_);
     821                        }
     822                    }
    810823
    811824                    my $iheader = $subdir . "/" . $header;
    812                     my @classes = $public_header ? classNames($iheader) : ();
     825                    $iheader =~ s/^\Q$basedir\E/$out_basedir/ if ($shadow);
     826                    my @classes = $public_header ? classNames($iheader) : ();
    813827                    if($showonly) {
    814828                        print "$header [$lib]\n";
    815                         foreach(@classes) {
    816                             print "SYMBOL: $_\n";
    817                         }
     829                        foreach(@classes) {
     830                            print "SYMBOL: $_\n";
     831                        }
    818832                    } else {
    819                         #find out all the places it goes..
    820                         my @headers;
    821                         if ($public_header) {
    822                             @headers = ( "$out_basedir/include/$lib/$header" );
    823                             push @headers, "$out_basedir/include/Qt/$header"
    824                               if ("$lib" ne "phonon" && "$subdir" =~ /^$basedir\/src/);
    825 
    826                             foreach(@classes) {
    827                                 my $header_base = basename($header);
    828                                 my $class = $_;
    829                                 # Strip namespaces:
    830                                 $class =~ s/^.*:://;
    831 #                               if ($class =~ m/::/) {
    832 #                                  class =~ s,::,/,g;
    833 #                               }
    834                                 $class_lib_map_contents .= "QT_CLASS_LIB($_, $lib, $header_base)\n";
    835                                 $header_copies++ if(syncHeader("$out_basedir/include/$lib/$class", "$out_basedir/include/$lib/$header", 0));
    836 
    837                                 # KDE-Compat headers for Phonon
    838                                 if ($lib eq "phonon") {
    839                                     $header_copies++ if (syncHeader("$out_basedir/include/phonon_compat/Phonon/$class", "$out_basedir/include/$lib/$header", 0));
    840                                 }
    841                             }
    842                         } elsif ($create_private_headers) {
    843                             @headers = ( "$out_basedir/include/$lib/private/$header" );
    844                             push @headers, "$out_basedir/include/Qt/private/$header"
    845                               if ("$lib" ne "phonon");
    846                         }
    847                         foreach(@headers) { #sync them
    848                             $header_copies++ if(syncHeader($_, $iheader, $copy_headers));
    849                         }
    850 
    851                         if($public_header) {
    852                             #put it into the master file
    853                             $master_contents .= "#include \"$public_header\"\n" if(shouldMasterInclude($iheader));
    854 
    855                             #deal with the install directives
    856                             if($public_header) {
    857                                 my $pri_install_iheader = fixPaths($iheader, $current_dir);
    858                                 foreach(@classes) {
    859                                     my $class = $_;
    860                                     # Strip namespaces:
    861                                     $class =~ s/^.*:://;
    862 #                                   if ($class =~ m/::/) {
    863 #                                       $class =~ s,::,/,g;
    864 #                                   }
    865                                     my $class_header = fixPaths("$out_basedir/include/$lib/$class",
    866                                                                 $current_dir) . " ";
    867                                     $pri_install_classes .= $class_header
    868                                                                 unless($pri_install_classes =~ $class_header);
    869                                 }
    870                                 $pri_install_files.= "$pri_install_iheader ";;
    871                             }
    872                         }
    873                         else {
    874                             my $pri_install_iheader = fixPaths($iheader, $current_dir);
    875                             $pri_install_pfiles.= "$pri_install_iheader ";;
    876                         }
     833                        my $ts = (stat($iheader))[9];
     834                        #find out all the places it goes..
     835                        my @headers;
     836                        if ($public_header) {
     837                            @headers = ( "$out_basedir/include/$lib/$header" );
     838
     839                            # write forwarding headers to include/Qt
     840                            if ($lib ne "phonon" && $subdir =~ /^$basedir\/src/) {
     841                                my $file_name = "$out_basedir/include/Qt/$header";
     842                                my $file_op = '>';
     843                                my $header_content = '';
     844                                if (exists $colliding_headers{$file_name}) {
     845                                    $file_op = '>>';
     846                                } else {
     847                                    $colliding_headers{$file_name} = 1;
     848                                    my $warning_msg = 'Inclusion of header files from include/Qt is deprecated.';
     849                                    $header_content = "#ifndef QT_NO_QT_INCLUDE_WARN\n" .
     850                                                      "    #if defined(__GNUC__)\n" .
     851                                                      "        #warning \"$warning_msg\"\n" .
     852                                                      "    #elif defined(_MSC_VER)\n" .
     853                                                      "        #pragma message(\"WARNING: $warning_msg\")\n" .
     854                                                      "    #endif\n".
     855                                                      "#endif\n\n";
     856                                }
     857                                $header_content .= '#include "' . "../$lib/$header" . "\"\n";
     858                                open HEADERFILE, $file_op, $file_name or die "unable to open '$file_name' : $!\n";
     859                                print HEADERFILE $header_content;
     860                                close HEADERFILE;
     861                            }
     862
     863                            foreach my $full_class (@classes) {
     864                                my $header_base = basename($header);
     865                                # Strip namespaces:
     866                                my $class = $full_class;
     867                                $class =~ s/^.*:://;
     868#                               if ($class =~ m/::/) {
     869#                                  class =~ s,::,/,g;
     870#                               }
     871                                $class_lib_map_contents .= "QT_CLASS_LIB($full_class, $lib, $header_base)\n";
     872                                $header_copies++ if(syncHeader("$out_basedir/include/$lib/$class", "$out_basedir/include/$lib/$header", 0, $ts));
     873
     874                                # KDE-Compat headers for Phonon
     875                                if ($lib eq "phonon") {
     876                                    $header_copies++ if (syncHeader("$out_basedir/include/phonon_compat/Phonon/$class", "$out_basedir/include/$lib/$header", 0, $ts));
     877                                }
     878                            }
     879                        } elsif ($create_private_headers) {
     880                            @headers = ( "$out_basedir/include/$lib/private/$header" );
     881                        }
     882                        foreach(@headers) { #sync them
     883                            $header_copies++ if(syncHeader($_, $iheader, $copy_headers && !$shadow, $ts));
     884                        }
     885
     886                        if($public_header) {
     887                            #put it into the master file
     888                            $master_contents .= "#include \"$public_header\"\n" if(shouldMasterInclude($iheader));
     889
     890                            #deal with the install directives
     891                            if($public_header) {
     892                                my $pri_install_iheader = fixPaths($iheader, $current_dir);
     893                                foreach my $class (@classes) {
     894                                    # Strip namespaces:
     895                                    $class =~ s/^.*:://;
     896#                                   if ($class =~ m/::/) {
     897#                                       $class =~ s,::,/,g;
     898#                                   }
     899                                    my $class_header = fixPaths("$out_basedir/include/$lib/$class",
     900                                                                $current_dir) . " ";
     901                                    $pri_install_classes .= $class_header
     902                                                                unless($pri_install_classes =~ $class_header);
     903                                }
     904                                $pri_install_files.= "$pri_install_iheader ";;
     905                            }
     906                        }
     907                        else {
     908                            my $pri_install_iheader = fixPaths($iheader, $current_dir);
     909                            $pri_install_pfiles.= "$pri_install_iheader ";;
     910                        }
    877911                    }
    878                     print "header created for $iheader ($header_copies)\n" if($header_copies > 0);
     912                    print "header created for $iheader ($header_copies)\n" if($header_copies > 0 && !$quiet);
    879913                }
    880914            }
    … …  
    887921    unless($showonly) {
    888922        my @master_includes;
    889         push @master_includes, "$out_basedir/include/$lib/$lib";
    890         push @master_includes, "$out_basedir/include/phonon_compat/Phonon/Phonon" if ($lib eq "phonon");
     923        push @master_includes, "$out_basedir/include/$lib/$lib";
     924        push @master_includes, "$out_basedir/include/phonon_compat/Phonon/Phonon" if ($lib eq "phonon");
    891925        foreach my $master_include (@master_includes) {
    892926            #generate the "master" include file
    893             $pri_install_files .= fixPaths($master_include, "$modules{$lib}") . " "; #get the master file installed too
    894             if($master_include && -e "$master_include") {
     927            my @tmp = split(/;/,$modules{$lib});
     928            $pri_install_files .= fixPaths($master_include, $tmp[0]) . " "; #get the master file installed too
     929            if($master_include && -e $master_include) {
    895930                open MASTERINCLUDE, "<$master_include";
    896931                local $/;
    … …  
    903938            if($master_include && $master_contents) {
    904939                my $master_dir = dirname($master_include);
    905                 mkpath $master_dir, 0777;
    906                 print "header (master) created for $lib\n";
     940                mkpath $master_dir, !$quiet;
     941                print "header (master) created for $lib\n" unless $quiet;
    907942                open MASTERINCLUDE, ">$master_include";
    908                 print MASTERINCLUDE "$master_contents";
     943                print MASTERINCLUDE $master_contents;
    909944                close MASTERINCLUDE;
    910945            }
    … …  
    912947
    913948        #handle the headers.pri for each module
    914         my $headers_pri_contents = "";
    915         $headers_pri_contents .= "SYNCQT.HEADER_FILES = $pri_install_files\n";
    916         $headers_pri_contents .= "SYNCQT.HEADER_CLASSES = $pri_install_classes\n";
    917         $headers_pri_contents .= "SYNCQT.PRIVATE_HEADER_FILES = $pri_install_pfiles\n";
     949        my $headers_pri_contents = "";
     950        $headers_pri_contents .= "SYNCQT.HEADER_FILES = $pri_install_files\n";
     951        $headers_pri_contents .= "SYNCQT.HEADER_CLASSES = $pri_install_classes\n";
     952        $headers_pri_contents .= "SYNCQT.PRIVATE_HEADER_FILES = $pri_install_pfiles\n";
    918953        my $headers_pri_file = "$out_basedir/include/$lib/headers.pri";
    919         if(-e "$headers_pri_file") {
     954        if(-e $headers_pri_file) {
    920955            open HEADERS_PRI_FILE, "<$headers_pri_file";
    921956            local $/;
    … …  
    928963        if($headers_pri_file && $master_contents) {
    929964            my $headers_pri_dir = dirname($headers_pri_file);
    930             mkpath $headers_pri_dir, 0777;
    931             print "headers.pri file created for $lib\n";
     965            mkpath $headers_pri_dir, !$quiet;
     966            print "headers.pri file created for $lib\n" unless $quiet;
    932967            open HEADERS_PRI_FILE, ">$headers_pri_file";
    933             print HEADERS_PRI_FILE "$headers_pri_contents";
     968            print HEADERS_PRI_FILE $headers_pri_contents;
    934969            close HEADERS_PRI_FILE;
    935970        }
    … …  
    938973unless($showonly || !$create_uic_class_map) {
    939974    my $class_lib_map = "$out_basedir/src/tools/uic/qclass_lib_map.h";
    940     if(-e "$class_lib_map") {
    941         open CLASS_LIB_MAP, "<$class_lib_map";
    942         local $/;
    943         binmode CLASS_LIB_MAP;
    944         my $old_class_lib_map_contents = <CLASS_LIB_MAP>;
    945         close CLASS_LIB_MAP;
    946         $old_class_lib_map_contents =~ s/\r//g; # remove \r's , so comparison is ok on all platforms
    947         $class_lib_map = 0 if($old_class_lib_map_contents eq $class_lib_map_contents);
     975    if(-e $class_lib_map) {
     976        open CLASS_LIB_MAP, "<$class_lib_map";
     977        local $/;
     978        binmode CLASS_LIB_MAP;
     979        my $old_class_lib_map_contents = <CLASS_LIB_MAP>;
     980        close CLASS_LIB_MAP;
     981        $old_class_lib_map_contents =~ s/\r//g; # remove \r's , so comparison is ok on all platforms
     982        $class_lib_map = 0 if($old_class_lib_map_contents eq $class_lib_map_contents);
    948983    }
    949984    if($class_lib_map) {
    950         my $class_lib_map_dir = dirname($class_lib_map);
    951         mkpath $class_lib_map_dir, 0777;
    952         open CLASS_LIB_MAP, ">$class_lib_map";
    953         print CLASS_LIB_MAP "$class_lib_map_contents";
    954         close CLASS_LIB_MAP;
     985        my $class_lib_map_dir = dirname($class_lib_map);
     986        mkpath $class_lib_map_dir, !$quiet;
     987        open CLASS_LIB_MAP, ">$class_lib_map";
     988        print CLASS_LIB_MAP $class_lib_map_contents;
     989        close CLASS_LIB_MAP;
    955990    }
    956991}
    957992
    958993if($check_includes) {
    959     for (keys(%modules)) {
    960         #iteration info
    961         my $lib = $_;
    962         my $dir = "$modules{$lib}";
    963         foreach (split(/;/, $dir)) {
    964             my $current_dir = "$_";
    965             #calc subdirs
    966             my @subdirs = ($current_dir);
    967             foreach (@subdirs) {
    968                 my $subdir = "$_";
    969                 opendir DIR, "$subdir";
    970                 while(my $t = readdir(DIR)) {
     994    for my $lib (keys(%modules)) {
     995            #calc subdirs
     996            my @subdirs = ($modules{$lib});
     997            foreach my $subdir (@subdirs) {
     998                opendir DIR, $subdir or die "Huh, directory ".$subdir." cannot be opened.";
     999                while(my $t = readdir(DIR)) {
    9711000                    push @subdirs, "$subdir/$t" if(-d "$subdir/$t" && !($t eq ".") &&
    9721001                                                   !($t eq "..") && !($t eq ".obj") &&
    9731002                                                   !($t eq ".moc") && !($t eq ".rcc") &&
    9741003                                                   !($t eq ".uic") && !($t eq "build"));
    975                 }
    976                 closedir DIR;
    977             }
    978 
    979             foreach (@subdirs) {
    980                 my $subdir = "$_";
     1004                }
     1005                closedir DIR;
     1006            }
     1007
     1008            foreach my $subdir (@subdirs) {
    9811009                my $header_skip_qt_module_test = 0;
    9821010                foreach(@ignore_for_qt_module_check) {
    9831011                    foreach (split(/;/, $_)) {
    984                         $header_skip_qt_module_test = 1 if ("$subdir" =~ /^$_/);
     1012                        $header_skip_qt_module_test = 1 if ($subdir =~ /^$_/);
    9851013                    }
    9861014                }
    987                 my @headers = findFiles("$subdir", "^[-a-z0-9_]*\\.h\$" , 0);
    988                 foreach (@headers) {
    989                     my $header = "$_";
     1015                my @headers = findFiles($subdir, "^[-a-z0-9_]*\\.h\$" , 0);
     1016                foreach my $header (@headers) {
    9901017                    my $header_skip_qt_begin_header_test = 0;
    9911018                    my $header_skip_qt_begin_namespace_test = 0;
    992                     $header = 0 if("$header" =~ /^ui_.*.h/);
    993                     foreach (@ignore_headers) {
    994                         $header = 0 if("$header" eq "$_");
    995                     }
    996                     if($header) {
    997                         my $public_header = $header;
    998                         if($public_header =~ /_p.h$/ || $public_header =~ /_pch.h$/) {
    999                             $public_header = 0;
    1000                         } else {
    1001                             foreach (@ignore_for_master_contents) {
    1002                                 $public_header = 0 if("$header" eq "$_");
    1003                             }
    1004                             if($public_header) {
    1005                                 foreach (@ignore_for_include_check) {
    1006                                     $public_header = 0 if("$header" eq "$_");
    1007                                 }
     1019                    $header = 0 if($header =~ /^ui_.*.h/);
     1020                    foreach (@ignore_headers) {
     1021                        $header = 0 if($header eq $_);
     1022                    }
     1023                    if($header) {
     1024                        my $public_header = $header;
     1025                        if($public_header =~ /_p.h$/ || $public_header =~ /_pch.h$/) {
     1026                            $public_header = 0;
     1027                        } else {
     1028                            foreach (@ignore_for_master_contents) {
     1029                                $public_header = 0 if($header eq $_);
     1030                            }
     1031                            if($public_header) {
     1032                                foreach (@ignore_for_include_check) {
     1033                                    $public_header = 0 if($header eq $_);
     1034                                }
    10081035                                foreach(@ignore_for_qt_begin_header_check) {
    1009                                     $header_skip_qt_begin_header_test = 1 if ("$header" eq "$_");
     1036                                    $header_skip_qt_begin_header_test = 1 if ($header eq $_);
    10101037                                }
    10111038                                foreach(@ignore_for_qt_begin_namespace_check) {
    1012                                     $header_skip_qt_begin_namespace_test = 1 if ("$header" eq "$_");
     1039                                    $header_skip_qt_begin_namespace_test = 1 if ($header eq $_);
    10131040                                }
    1014                             }
    1015                         }
    1016 
    1017                         my $iheader = $subdir . "/" . $header;
    1018                         if($public_header) {
    1019                             if(open(F, "<$iheader")) {
     1041                            }
     1042                        }
     1043
     1044                        my $iheader = $subdir . "/" . $header;
     1045                        if($public_header) {
     1046                            if(open(F, "<$iheader")) {
    10201047                                my $qt_module_found = 0;
    1021                                 my $qt_begin_header_found = 0;
    1022                                 my $qt_end_header_found = 0;
    1023                                 my $qt_begin_namespace_found = 0;
    1024                                 my $qt_end_namespace_found = 0;
    1025                                 my $line;
    1026                                 while($line = <F>) {
    1027                                     chomp $line;
    1028                                     my $output_line = 1;
     1048                                my $qt_begin_header_found = 0;
     1049                                my $qt_end_header_found = 0;
     1050                                my $qt_begin_namespace_found = 0;
     1051                                my $qt_end_namespace_found = 0;
     1052                                my $line;
     1053                                while($line = <F>) {
     1054                                    chomp $line;
     1055                                    my $output_line = 1;
    10291056                                    if($line =~ /^ *\# *pragma (qt_no_included_check|qt_sync_stop_processing)/) {
    1030                                         last;
    1031                                     } elsif($line =~ /^ *\# *include/) {
    1032                                         my $include = $line;
    1033                                         if($line =~ /<.*>/) {
    1034                                             $include =~ s,.*<(.*)>.*,$1,;
    1035                                         } elsif($line =~ /".*"/) {
    1036                                             $include =~ s,.*"(.*)".*,$1,;
    1037                                         } else {
    1038                                             $include = 0;
    1039                                         }
    1040                                         if($include) {
    1041                                             for (keys(%modules)) {
    1042                                                 my $trylib = $_;
    1043                                                 if(-e "$out_basedir/include/$trylib/$include") {
    1044                                                     print "WARNING: $iheader includes $include when it should include $trylib/$include\n";
    1045                                                 }
    1046                                             }
    1047                                         }
    1048                                     } elsif ($header_skip_qt_begin_header_test == 0 and $line =~ /^QT_BEGIN_HEADER\s*$/) {
    1049                                         $qt_begin_header_found = 1;
    1050                                     } elsif ($header_skip_qt_begin_header_test == 0 and $line =~ /^QT_END_HEADER\s*$/) {
    1051                                         $qt_end_header_found = 1;
    1052                                     } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_BEGIN_NAMESPACE\s*$/) {
    1053                                         $qt_begin_namespace_found = 1;
    1054                                     } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_END_NAMESPACE\s*$/) {
    1055                                         $qt_end_namespace_found = 1;
     1057                                        last;
     1058                                    } elsif($line =~ /^ *\# *include/) {
     1059                                        my $include = $line;
     1060                                        if($line =~ /<.*>/) {
     1061                                            $include =~ s,.*<(.*)>.*,$1,;
     1062                                        } elsif($line =~ /".*"/) {
     1063                                            $include =~ s,.*"(.*)".*,$1,;
     1064                                        } else {
     1065                                            $include = 0;
     1066                                        }
     1067                                        if($include) {
     1068                                            for my $trylib (keys(%modules)) {
     1069                                                if(-e "$out_basedir/include/$trylib/$include") {
     1070                                                    print "WARNING: $iheader includes $include when it should include $trylib/$include\n";
     1071                                                }
     1072                                            }
     1073                                        }
     1074                                    } elsif ($header_skip_qt_begin_header_test == 0 and $line =~ /^QT_BEGIN_HEADER\s*$/) {
     1075                                        $qt_begin_header_found = 1;
     1076                                    } elsif ($header_skip_qt_begin_header_test == 0 and $line =~ /^QT_END_HEADER\s*$/) {
     1077                                        $qt_end_header_found = 1;
     1078                                    } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_BEGIN_NAMESPACE\s*$/) {
     1079                                        $qt_begin_namespace_found = 1;
     1080                                    } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_END_NAMESPACE\s*$/) {
     1081                                        $qt_end_namespace_found = 1;
    10561082                                    } elsif ($header_skip_qt_module_test == 0 and $line =~ /^QT_MODULE\(.*\)\s*$/) {
    10571083                                        $qt_module_found = 1;
    10581084                                    }
    1059                                 }
     1085                                }
    10601086                                if ($header_skip_qt_begin_header_test == 0) {
    10611087                                    if ($qt_begin_header_found == 0) {
    … …  
    10831109                                    }
    10841110                                }
    1085                                 close(F);
    1086                             }
    1087                         }
    1088                     }
    1089                 }
    1090             }
    1091         }
     1111                                close(F);
     1112                            }
     1113                        }
     1114                    }
     1115                }
     1116            }
    10921117    }
    10931118}
Note: See TracChangeset for help on using the changeset viewer.