Long live the qt5 Qt repository
[mirror/qt/qt5.git] / configure
1 #!/usr/bin/perl -w
2 ####################################################################################################
3 #
4 # Mother script for Qt Modularization
5 #
6 # Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies).
7 # Contact: Nokia Corporation (qt-info@nokia.com)
8 #
9 ####################################################################################################
10 use strict;
11
12 use File::Basename;
13 use File::Path;
14 use Cwd;
15 use Cwd 'abs_path';
16 use Config;
17
18 # Makes sure the arguments are directories, and creates them if not.
19 # Will die if there is an error.
20 sub ensureDir {
21     foreach (@_) {
22         if (-e $_) {
23             if (-d $_) {
24                 next;
25             } else {
26                 die ("$_ exists, but is not a directory");
27             }
28         }
29         File::Path::mkpath($_) or die("Could not create $_");
30     }
31 }
32
33 # `system', but also print the command
34 sub system_v
35 {
36     print "+ ";
37     print @_;
38     print "\n";
39     return system(@_);
40 }
41
42 my $relpath = dirname(abs_path($0));
43 $relpath =~ s,\\,/,g;
44 # the current directory is the "build tree" or "object tree"
45 my $outpath = getcwd();
46
47 system_v("perl $relpath/init-repository -q") and die("init-repository failed");
48
49 system_v("perl $relpath/fix-webkit") and die("Applying webkit patches failed");
50
51 ensureDir("$outpath/qtbase");
52 chdir("$outpath/qtbase");
53 system_v("$relpath/qtbase/configure @ARGV");
54
55 chdir("$outpath");
56
57 open QMAKE_CACHE, ">.qmake.cache" || die "Could not open .qmake.cache for writing!\n";
58 print QMAKE_CACHE "include(\$\$PWD/qtbase/.qmake.cache)\n";
59 close QMAKE_CACHE;
60
61 system_v("$outpath/qtbase/bin/qmake $relpath/qt.pro");
62
63 exit 0;