qt5base-lts/util/includemocs/includemocs.pl
Thiago Macieira 05f22d6eb2 QtCore: include mocs
Compilation and link times in CPU seconds with GCC 7, using precompiled
headers (not including moc, rcc, uic, etc. steps or headersclean):

                Before  After
Debug -O0       198,1   180,3
Debug -Og       240,7   229,2
Release -O3     267,1   249,2
Release LTO     239,4   229,8

QtCore required a little manual adjusting because some files are
bootstrapped into moc itself and into qmake.

Change-Id: I84e363d735b443cb9beefffd14b8b57c10e7da36
Reviewed-by: Lars Knoll <lars.knoll@qt.io>
Reviewed-by: Marc Mutz <marc.mutz@kdab.com>
Reviewed-by: Oswald Buddenhagen <oswald.buddenhagen@qt.io>
2017-05-05 03:03:30 +00:00

139 lines
4.2 KiB
Perl
Executable File

#!/usr/bin/perl
#############################################################################
##
## Copyright (C) 2017 Intel Corporation.
## Contact: https://www.qt.io/licensing/
##
## This file is the build configuration utility of the Qt Toolkit.
##
## $QT_BEGIN_LICENSE:GPL-EXCEPT$
## Commercial License Usage
## Licensees holding valid commercial Qt licenses may use this file in
## accordance with the commercial license agreement provided with the
## Software or, alternatively, in accordance with the terms contained in
## a written agreement between you and The Qt Company. For licensing terms
## and conditions see https://www.qt.io/terms-conditions. For further
## information use the contact form at https://www.qt.io/contact-us.
##
## GNU General Public License Usage
## Alternatively, this file may be used under the terms of the GNU
## General Public License version 3 as published by the Free Software
## Foundation with exceptions as appearing in the file LICENSE.GPL3-EXCEPT
## included in the packaging of this file. Please review the following
## information to ensure the GNU General Public License requirements will
## be met: https://www.gnu.org/licenses/gpl-3.0.html.
##
## $QT_END_LICENSE$
##
#############################################################################
use strict;
MAKEFILE: while ($_ = shift @ARGV) {
chdir($ENV{PWD});
open MAKEFILE, "<", $_
or die("Could not open Makefile");
print "includemocs.pl: Processing $_\n";
my $srcdir;
my $sourcesline;
# Find "SOURCES =" line
while (<MAKEFILE>) {
$srcdir = $1 if m,^# Project:\s+(.*)/[^/]+.pro,;
if (/^# Template:\s+(\w+)/) {
next MAKEFILE if $1 eq "subdirs";
}
if (/^SOURCES\s*=\s*(.*)/) {
$sourcesline = $1;
last;
}
}
if ($sourcesline =~ s/\s+\\//) {
# continuation
while (<MAKEFILE>) {
chomp;
/^\s*([^ ]+)/;
$sourcesline .= " $1";
last unless m/\\$/;
}
}
close MAKEFILE;
# Now parse the sources
my @mocs;
my @sources;
for (split(/ /, $sourcesline)) {
if (/\.moc\/(moc_.*\.cpp)/) {
push @mocs, $1;
} elsif (/^\.(rcc|uic)/) {
# ignore
} else {
push @sources, $_;
}
}
chdir($srcdir) or die("Where's $srcdir? $!");
for my $moc (@mocs) {
my $include = "#include \"$moc\"\n";
# Find a corresponding .cpp file to host the new #include
my $basename = ($moc =~ s/^moc_//r);
$basename =~ s/\.[^.]+//;
my @candidates = grep { m,\Q/$basename.\E, } @sources;
if (scalar @candidates == 0) {
# Try without a _p suffix
$basename =~ s/_p$//;
@candidates = grep { m,\Q/$basename.\E, } @sources;
}
if (scalar @candidates == 0) {
print STDERR "includemocs.pl: Cannot find .cpp file for $moc\n";
next;
}
my $cpp = $candidates[0];
undef @candidates;
#print "$moc -> $cpp\n";
open CPP, "<", $cpp
or die("Cannot open source $cpp: $!");
my @lines;
while (<CPP>) {
push @lines, $_;
next unless defined($include);
# Print the new include next to a pre-existing moc include
if (/#include \"moc_/ || /#include ".*\.moc"/) {
push @lines, $include;
undef $include;
}
}
close CPP;
if (defined($include)) {
# Try to insert the new #include between QT_END_NAMESPACE and any #endif lines
my $n = 0;
my $extrablank = "";
while (defined($include)) {
--$n;
$_ = $lines[$n];
if (/^#endif/) {
$extrablank = "\n";
next;
}
$_ .= "\n" unless /^$/;
splice @lines, $n, 1, ($_, $include, $extrablank);
undef $include;
}
}
# Write the file again
open CPP, ">", $cpp
or die("Cannot open source $cpp for writing: $!");
map { print CPP $_; } @lines;
close CPP;
}
}