From 6b38524bba4254c06ac5811fdde66bcafb49632f Mon Sep 17 00:00:00 2001 From: Oswald Buddenhagen Date: Fri, 10 May 2013 18:21:27 +0200 Subject: get rid of syncqt wrapper scripts instead, rename it to syncqt.pl and rely on qtPrepareTool()'s new ability to correctly invoke it as a perl script even under windows. the wrappers themselves have been trivial at this point, so there is no added value in keeping them, either. Change-Id: I77cf65edbcfaa48ed1900defe940d4eb4b82d5b9 Reviewed-by: Thiago Macieira Reviewed-by: Joerg Bornemann --- bin/syncqt | 1209 -------------------------------------------------------- bin/syncqt.bat | 44 --- bin/syncqt.pl | 1209 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 1209 insertions(+), 1253 deletions(-) delete mode 100755 bin/syncqt delete mode 100755 bin/syncqt.bat create mode 100755 bin/syncqt.pl (limited to 'bin') diff --git a/bin/syncqt b/bin/syncqt deleted file mode 100755 index ce07af4895..0000000000 --- a/bin/syncqt +++ /dev/null @@ -1,1209 +0,0 @@ -#!/usr/bin/env perl -############################################################################# -## -## Copyright (C) 2013 Digia Plc and/or its subsidiary(-ies). -## Contact: http://www.qt-project.org/legal -## -## This file is part of the build configuration tools of the Qt Toolkit. -## -## $QT_BEGIN_LICENSE:LGPL$ -## 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 Digia. For licensing terms and -## conditions see http://qt.digia.com/licensing. For further information -## use the contact form at http://qt.digia.com/contact-us. -## -## GNU Lesser General Public License Usage -## Alternatively, this file may be used under the terms of the GNU Lesser -## General Public License version 2.1 as published by the Free Software -## Foundation and appearing in the file LICENSE.LGPL included in the -## packaging of this file. Please review the following information to -## ensure the GNU Lesser General Public License version 2.1 requirements -## will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html. -## -## In addition, as a special exception, Digia gives you certain additional -## rights. These rights are described in the Digia Qt LGPL Exception -## version 1.1, included in the file LGPL_EXCEPTION.txt in this package. -## -## GNU General Public License Usage -## Alternatively, this file may be used under the terms of the GNU -## General Public License version 3.0 as published by the Free Software -## Foundation and appearing in the file LICENSE.GPL included in the -## packaging of this file. Please review the following information to -## ensure the GNU General Public License version 3.0 requirements will be -## met: http://www.gnu.org/copyleft/gpl.html. -## -## -## $QT_END_LICENSE$ -## -############################################################################# - -# -# Synchronizes Qt header files - internal development tool. -# - -# use packages ------------------------------------------------------- -use File::Basename; -use File::Path; -use File::Spec; -use Cwd; -use Cwd 'abs_path'; -use Config; -use strict; -use warnings; -use English qw(-no_match_vars ); - -my $normalizePath_fixDrive = ($^O eq "msys" ? 1 : 0); - -###################################################################### -# Syntax: normalizePath(\$path) -# Params: Reference to a path that's going to be normalized. -# -# Purpose: Converts the path into a form that can be used as include -# path from C++ sources and qmake's .pro files. -# Only relevant on Windows. -# Returns: -none- -###################################################################### -sub normalizePath { - my $s = shift; - $$s =~ s=\\=/=g; - if ($normalizePath_fixDrive && ($$s =~ m,^/([a-zA-Z])/(.*), || $$s =~ m,^([a-zA-Z]):/(.*),)) { - $$s = lc($1) . ":/$2"; - } -} - -# set output basedir to be where ever syncqt is run from -our $out_basedir = getcwd(); -normalizePath(\$out_basedir); -our $basedir; -our $quoted_basedir; - -# Make sure we use Windows line endings for chomp and friends on Windows. -$INPUT_RECORD_SEPARATOR = "\r\n" if ($^O eq "msys"); - -# will be defined based on the modules sync.profile -our (%modules, %moduleheaders, @allmoduleheadersprivate, %classnames, %explicitheaders, %deprecatedheaders); -our @qpa_headers = (); - -# global variables (modified by options) -my $isunix = 0; -my $module = 0; -my $showonly = 0; -my $verbose_level = 1; -my $remove_stale = 1; -my $force_win = 0; -my $force_relative = 0; -my $check_includes = 0; -my $copy_headers = 0; -my $create_uic_class_map = 0; -my $create_private_headers = 1; -my $minimal = 0; -my $module_version = 0; -my @modules_to_sync ; -$force_relative = 1 if ( -d "/System/Library/Frameworks" ); - - -# functions ---------------------------------------------------------- - -###################################################################### -# Syntax: showUsage() -# Params: -none- -# -# Purpose: Show the usage of the script. -# Returns: -none- -###################################################################### -sub showUsage -{ - print "$0 usage:\n"; - print " Specifies which module to sync header files for (required for shadow builds!)\n\n"; - - print " -copy Copy headers instead of include-fwd(default: " . ($copy_headers ? "yes" : "no") . ")\n"; - print " -remove-stale Removes stale headers (default: " . ($remove_stale ? "yes" : "no") . ")\n"; - print " -relative Force relative symlinks (default: " . ($force_relative ? "yes" : "no") . ")\n"; - print " -windows Force platform to Windows (default: " . ($force_win ? "yes" : "no") . ")\n"; - print " -showonly Show action but not perform (default: " . ($showonly ? "yes" : "no") . ")\n"; - print " -minimal Do not create CamelCase headers (default: " . ($minimal ? "yes" : "no") . ")\n"; - print " -outdir Specify output directory for sync (default: $out_basedir)\n"; - print " -version Specify the module's version (default: detect from qglobal.h)\n"; - print " -quiet Only report problems, not activity (same as -verbose 0)\n"; - print " -v, -verbose Sets the verbosity level (max. 4) (default: $verbose_level)\n"; - print " The short form increases the level by +1\n"; - print " -separate-module ::\n"; - print " Create headers for with original headers in\n"; - print " relative to \n"; - print " -private Force copy private headers (default: " . ($create_private_headers ? "yes" : "no") . ")\n"; - print " -help This help\n"; - exit 0; -} - -###################################################################### -# Syntax: checkUnix() -# Params: -none- -# -# Purpose: Check if script runs on a Unix system or not. Cygwin -# systems are _not_ detected as Unix systems. -# Returns: 1 if a unix system, else 0. -###################################################################### -sub checkUnix { - my ($r) = 0; - if ( $force_win != 0) { - return 0; - } elsif ( -f "/bin/uname" ) { - $r = 1; - (-f "\\bin\\uname") && ($r = 0); - } elsif ( -f "/usr/bin/uname" ) { - $r = 1; - (-f "\\usr\\bin\\uname") && ($r = 0); - } - if($r) { - $_ = $Config{'osname'}; - $r = 0 if( /(ms)|(cyg)win/i ); - } - return $r; -} - -sub checkRelative { - my ($dir) = @_; - return 0 if($dir =~ /^\//); - return 0 if(!checkUnix() && $dir =~ /[a-zA-Z]:[\/\\]/); - return 1; -} - -###################################################################### -# Syntax: classNames(iheader) -# Params: iheader, string, filename to parse for classname "symlinks" -# -# Purpose: Scans through iheader to find all classnames that should be -# synced into library's include structure. -# Returns: List of all class names in a file. -###################################################################### -sub classNames { - my @ret; - my ($iheader) = @_; - - my $classname = $classnames{basename($iheader)}; - push @ret, $classname if ($classname); - - my $parsable = ""; - if(open(F, "<$iheader")) { - while() { - my $line = $_; - chomp $line; - chop $line if ($line =~ /\r$/); - if($line =~ /^\#/) { - return @ret if($line =~ m/^#pragma qt_sync_stop_processing/); - push(@ret, $1) if($line =~ m/^#pragma qt_class\(([^)]*)\)[\r\n]*$/); - $line = 0; - } - if($line) { - $line =~ s,//.*$,,; #remove c++ comments - $line .= ";" if($line =~ m/^Q_[A-Z_]*\(.*\)[\r\n]*$/); #qt macro - $line .= ";" if($line =~ m/^QT_(BEGIN|END)_HEADER[\r\n]*$/); #qt macro - $line .= ";" if($line =~ m/^QT_(BEGIN|END)_NAMESPACE(_[A-Z]+)*[\r\n]*$/); #qt macro - $line .= ";" if($line =~ m/^QT_MODULE\(.*\)[\r\n]*$/); # QT_MODULE macro - $parsable .= " " . $line; - } - } - close(F); - } - - my $last_definition = 0; - my @namespaces; - for(my $i = 0; $i < length($parsable); $i++) { - my $definition = 0; - my $character = substr($parsable, $i, 1); - if($character eq "/" && substr($parsable, $i+1, 1) eq "*") { #I parse like this for greedy reasons - for($i+=2; $i < length($parsable); $i++) { - my $end = substr($parsable, $i, 2); - if($end eq "*/") { - $last_definition = $i+2; - $i++; - last; - } - } - } elsif($character eq "{") { - my $brace_depth = 1; - my $block_start = $i + 1; - BLOCK: for($i+=1; $i < length($parsable); $i++) { - my $ignore = substr($parsable, $i, 1); - if($ignore eq "{") { - $brace_depth++; - } elsif($ignore eq "}") { - $brace_depth--; - unless($brace_depth) { - for(my $i2 = $i+1; $i2 < length($parsable); $i2++) { - my $end = substr($parsable, $i2, 1); - if($end eq ";" || $end ne " ") { - $definition = substr($parsable, $last_definition, $block_start - $last_definition) . "}"; - $i = $i2 if($end eq ";"); - $last_definition = $i + 1; - last BLOCK; - } - } - } - } - } - } elsif($character eq ";") { - $definition = substr($parsable, $last_definition, $i - $last_definition + 1); - $last_definition = $i + 1; - } elsif($character eq "}") { - # a naked } must be a namespace ending - # if it's not a namespace, it's eaten by the loop above - pop @namespaces; - $last_definition = $i + 1; - } - - if (substr($parsable, $last_definition, $i - $last_definition + 1) =~ m/ namespace ([^ ]*) / - && substr($parsable, $i+1, 1) eq "{") { - push @namespaces, $1; - - # Eat the opening { so that the condensing loop above doesn't see it - $i++; - $last_definition = $i + 1; - } - - if($definition) { - $definition =~ s=[\n\r]==g; - my @symbols; - my $post_kw = qr/Q_DECL_FINAL|final|sealed/; # add here macros and keywords that go after the class-name of a class definition - if($definition =~ m/^ *typedef *.*\(\*([^\)]*)\)\(.*\);$/) { - push @symbols, $1; - } elsif($definition =~ m/^ *typedef +(.*) +([^ ]*);$/) { - push @symbols, $2; - } elsif($definition =~ m/^ *(template *<.*> *)?(class|struct) +([^ ]* +)?((?!$post_kw)[^<\s]+) ?(<[^>]*> ?)?\s*(?:$post_kw)?\s*((,|:)\s*(public|protected|private) *.*)? *\{\}$/o) { - push @symbols, $4; - } elsif($definition =~ m/^ *Q_DECLARE_.*ITERATOR\((.*)\);$/) { - push @symbols, "Q" . $1 . "Iterator"; - push @symbols, "QMutable" . $1 . "Iterator"; - } - - our $publicclassregexp; - foreach my $symbol (@symbols) { - $symbol = (join("::", @namespaces) . "::" . $symbol) if (scalar @namespaces); - - if ($symbol =~ /^Q[^:]*$/) { # no-namespace, starting with Q - push @ret, $symbol; - } elsif (defined($publicclassregexp)) { - push @ret, $symbol if ($symbol =~ $publicclassregexp); - } - } - } - } - return @ret; -} - -sub make_path { - my ($dir, $lib, $be_verbose) = @_; - unless(-e $dir) { - mkpath $dir; - $dir = "" . substr($dir, length($out_basedir)) if ($be_verbose < 3); - print "$lib: mkpath $dir\n" if ($be_verbose > 1); - } -} - -###################################################################### -# Syntax: syncHeader(header, iheader, copy, timestamp) -# Params: header, string, filename to create "symlink" for -# iheader, string, destination name of symlink -# copy, forces header to be a copy of iheader -# timestamp, the requested modification time if copying -# -# Purpose: Syncronizes header to iheader -# Returns: 1 if successful, else 0. -###################################################################### -sub syncHeader { - my ($lib, $header, $iheader, $copy, $ts) = @_; - normalizePath(\$iheader); - normalizePath(\$header); - return copyFile($lib, $iheader, $header) if($copy); - - unless(-e $header) { - my $header_dir = dirname($header); - make_path($header_dir, $lib, $verbose_level); - - #write it - my $iheader_out = fixPaths($iheader, $header_dir); - open(HEADER, ">$header") || die "Could not open $header for writing: $!\n"; - print HEADER "#include \"$iheader_out\"\n"; - close HEADER; - if(defined($ts)) { - utime(time, $ts, $header) or die "$iheader, $header"; - } - return 1; - } - return 0; -} - -###################################################################### -# Syntax: fixPaths(file, dir) -# Params: file, string, filepath to be made relative to dir -# dir, string, dirpath for point of origin -# -# Purpose: file is made relative (if possible) of dir. -# Returns: String with the above applied conversion. -###################################################################### - -sub cleanupPath { - my ($file) = @_; - normalizePath(\$file); - while ($file =~ s,/[^/]+/\.\./,/,) {} - return $file; -} - -sub fixPaths { - my ($file, $dir) = @_; - - my $out = File::Spec->abs2rel(cleanupPath($file), cleanupPath($dir)); - $out =~ s,\\,/,g; - return $out; -} - -###################################################################### -# Syntax: fileContents(filename) -# Params: filename, string, filename of file to return contents -# -# Purpose: Get the contents of a file. -# Returns: String with contents of the file, or empty string if file -# doens't exist. -# Warning: Dies if it does exist but script cannot get read access. -###################################################################### -sub fileContents { - my ($filename) = @_; - my $filecontents = ""; - if (-e $filename) { - open(I, "< $filename") || die "Could not open $filename for reading, read block?"; - local $/; - binmode I; - $filecontents = ; - close I; - } - return $filecontents; -} - -###################################################################### -# Syntax: fileCompare(file1, file2) -# Params: file1, string, filename of first file -# file2, string, filename of second file -# -# Purpose: Determines if files are equal, and which one is newer. -# Returns: 0 if files are equal no matter the timestamp, -1 if file1 -# is newer, 1 if file2 is newer. -###################################################################### -sub fileCompare { - my ($file1, $file2) = @_; - my $file1contents = fileContents($file1); - my $file2contents = fileContents($file2); - if (! -e $file1) { return 1; } - if (! -e $file2) { return -1; } - return $file1contents ne $file2contents ? (stat($file2))[9] <=> (stat($file1))[9] : 0; -} - -###################################################################### -# Syntax: copyFile(file, ifile) -# Params: file, string, filename to create duplicate for -# ifile, string, destination name of duplicate -# -# Purpose: Keeps files in sync so changes in the newer file will be -# written to the other. -# Returns: 1 if files were synced, else 0. -# Warning: Dies if script cannot get write access. -###################################################################### -sub copyFile -{ - my ($lib, $file,$ifile, $copy,$knowdiff,$filecontents,$ifilecontents) = @_; - # Bi-directional synchronization - open( I, "< " . $file ) || die "Could not open $file for reading"; - local $/; - binmode I; - $filecontents = ; - close I; - if ( open(I, "< " . $ifile) ) { - local $/; - binmode I; - $ifilecontents = ; - close I; - $copy = fileCompare($file, $ifile); - $knowdiff = 0, - } else { - $copy = -1; - $knowdiff = 1; - } - - if ( $knowdiff || ($filecontents ne $ifilecontents) ) { - if ( $copy > 0 ) { - my $file_dir = dirname($file); - make_path($file_dir, $lib, $verbose_level); - open(O, "> " . $file) || die "Could not open $file for writing (no write permission?)"; - local $/; - binmode O; - print O $ifilecontents; - close O; - utime time, (stat($ifile))[9], $file; - return 1; - } elsif ( $copy < 0 ) { - my $ifile_dir = dirname($ifile); - make_path($ifile_dir, $lib, $verbose_level); - open(O, "> " . $ifile) || die "Could not open $ifile for writing (no write permission?)"; - local $/; - binmode O; - print O $filecontents; - close O; - utime time, (stat($file))[9], $ifile; - return 1; - } - } - return 0; -} - -###################################################################### -# Syntax: symlinkFile(file, ifile) -# Params: file, string, filename to create "symlink" for -# ifile, string, destination name of symlink -# -# Purpose: File is symlinked to ifile (or copied if filesystem doesn't -# support symlink). -# Returns: 1 on success, else 0. -###################################################################### -sub symlinkFile -{ - my ($lib, $file, $ifile) = @_; - - if ($isunix) { - print "$lib: symlink created for $file " if ($verbose_level); - if ( $force_relative && ($ifile =~ /^$quoted_basedir/)) { - my $t = getcwd(); - my $c = -1; - my $p = "../"; - $t =~ s-^$quoted_basedir/--; - $p .= "../" while( ($c = index( $t, "/", $c + 1)) != -1 ); - $file =~ s-^$quoted_basedir/-$p-; - print " ($file)\n" if($verbose_level); - } - print "\n" if($verbose_level); - return symlink($file, $ifile); - } - return copyFile($lib, $file, $ifile); -} - -###################################################################### -# Syntax: findFiles(dir, match, descend) -# Params: dir, string, directory to search for name -# match, string, regular expression to match in dir -# descend, integer, 0 = non-recursive search -# 1 = recurse search into subdirectories -# -# Purpose: Finds files matching a regular expression. -# Returns: List of matching files. -# -# Examples: -# findFiles("/usr","\.cpp$",1) - finds .cpp files in /usr and below -# findFiles("/tmp","^#",0) - finds #* files in /tmp -###################################################################### -sub findFiles { - my ($dir,$match,$descend) = @_; - my ($file,$p,@files); - local(*D); - normalizePath(\$dir); - ($dir eq "") && ($dir = "."); - if ( opendir(D,$dir) ) { - if ( $dir eq "." ) { - $dir = ""; - } else { - ($dir =~ /\/$/) || ($dir .= "/"); - } - foreach $file ( sort readdir(D) ) { - next if ( $file =~ /^\.\.?$/ ); - $p = $file; - ($file =~ /$match/) && (push @files, $p); - if ( $descend && -d $p && ! -l $p ) { - push @files, &findFiles($p,$match,$descend); - } - } - closedir(D); - } - return @files; -} - -sub listSubdirs { - my @subdirs = @_; - foreach my $subdir (@subdirs) { - opendir DIR, $subdir or die "Huh, directory ".$subdir." cannot be opened."; - foreach my $t (sort readdir(DIR)) { - push @subdirs, "$subdir/$t" if(-d "$subdir/$t" && !($t eq ".") && - !($t eq "..") && !($t eq ".obj") && - !($t eq ".moc") && !($t eq ".rcc") && - !($t eq ".uic") && !($t eq "build") && - !($t eq "doc")); - } - closedir DIR; - } - return @subdirs; -} - -###################################################################### -# Syntax: loadSyncProfile() -# -# Purpose: Locates the sync.profile. -# Returns: Hashmap of module name -> directory. -###################################################################### -sub loadSyncProfile { - my ($srcbase, $outbase) = @_; - if ($verbose_level) { - print(" = $$srcbase \n"); - print(" = $$outbase \n"); - } - - my $syncprofile = "$$srcbase/sync.profile"; - my $result; - unless ($result = do "$syncprofile") { - die "syncqt couldn't parse $syncprofile: $@" if $@; - die "syncqt couldn't execute $syncprofile: $!" unless defined $result; - } - return $result; -} - -sub basePrettify { - my ($arg) = @_; - $$arg =~ s,^\Q$basedir\E,,; - $$arg =~ s,^\Q$out_basedir\E,,; -} - -sub cleanPath { - my ($arg) = @_; - while ($arg =~ s,[^/]+/\.\.(/|$),,) {} - return $arg; -} - -sub locateSyncProfile -{ - my ($directory) = @_; - $directory = abs_path($directory); - while (1) { - my $file = $directory."/sync.profile"; - return $file if (-e $file); - my $odir = $directory; - $directory = dirname($directory); - return undef if ($directory eq $odir); - } -} - -sub isQpaHeader -{ - my ($header) = @_; - foreach my $qpa_header (@qpa_headers) { - return 1 if ($header =~ $qpa_header); - } - return 0; -} - -# check if this is an in-source build, and if so use that as the basedir too -$basedir = locateSyncProfile($out_basedir); -if ($basedir) { - $basedir = dirname($basedir) ; - normalizePath(\$basedir); - $quoted_basedir = "\Q$basedir"; -} - -# -------------------------------------------------------------------- -# "main" function -# -------------------------------------------------------------------- - -while ( @ARGV ) { - my $var = 0; - my $val = 0; - - #parse - my $arg = shift @ARGV; - if ($arg eq "-h" || $arg eq "-help" || $arg eq "-?" || $arg eq "?") { - $var = "show_help"; - $val = "yes"; - } elsif($arg eq "-copy") { - $var = "copy"; - $val = "yes"; - } elsif($arg eq "-o" || $arg eq "-outdir") { - $var = "output"; - $val = shift @ARGV; - } elsif($arg eq "-showonly" || $arg eq "-remove-stale" || $arg eq "-windows" || - $arg eq "-relative" || $arg eq "-check-includes") { - $var = substr($arg, 1); - $val = "yes"; - } elsif($arg =~ /^-no-(.*)$/) { - $var = $1; - $val = "no"; - #these are for commandline compat - } elsif($arg eq "-inc") { - $var = "output"; - $val = shift @ARGV; - } elsif($arg eq "-module") { - $var = "module"; - $val = shift @ARGV; - } elsif($arg eq "-separate-module") { - $var = "separate-module"; - $val = shift @ARGV; - } elsif($arg eq "-show") { - $var = "showonly"; - $val = "yes"; - } elsif($arg eq "-quiet") { - $var = "verbose"; - $val = "0"; - } elsif($arg eq "-v") { - $var = "verbose"; - $val = "yes"; - } elsif($arg eq "-verbose") { - $var = "verbose"; - $val = shift @ARGV; - } elsif($arg eq "-minimal") { - $var = "minimal"; - $val = "yes"; - } elsif($arg eq "-private") { - $var = "create_private_headers"; - $val = "yes"; - } elsif($arg eq "-version") { - $var = "version"; - $val = shift @ARGV; - } elsif($arg =~/^-/) { - print "Unknown option: $arg\n\n" if(!$var); - showUsage(); - } else { - $basedir = locateSyncProfile($arg); - die "Could not find a sync.profile for '$arg'\n" if (!$basedir); - $basedir = dirname($basedir); - normalizePath(\$basedir); - $quoted_basedir = "\Q$basedir"; - $var = "ignore"; - } - - #do something - if(!$var || $var eq "show_help") { - print "Unknown option: $arg\n\n" if(!$var); - showUsage(); - } elsif ($var eq "copy") { - if($val eq "yes") { - $copy_headers++; - } elsif($showonly) { - $copy_headers--; - } - } elsif ($var eq "showonly") { - if($val eq "yes") { - $showonly++; - } elsif($showonly) { - $showonly--; - } - } elsif ($var eq "verbose") { - if($val eq "yes") { - $verbose_level++; - } elsif($val eq "no" && $verbose_level) { - $verbose_level--; - } else { - $verbose_level = int($val); - } - } elsif ($var eq "check-includes") { - if($val eq "yes") { - $check_includes++; - } elsif($check_includes) { - $check_includes--; - } - } elsif ($var eq "remove-stale") { - if($val eq "yes") { - $remove_stale++; - } elsif($remove_stale) { - $remove_stale--; - } - } elsif ($var eq "windows") { - if($val eq "yes") { - $force_win++; - } elsif($force_win) { - $force_win--; - } - } elsif ($var eq "relative") { - if($val eq "yes") { - $force_relative++; - } elsif($force_relative) { - $force_relative--; - } - } elsif ($var eq "minimal") { - if($val eq "yes") { - $minimal++; - } elsif($minimal) { - $minimal--; - } - } elsif ($var eq "module") { - push @modules_to_sync, $val; - } elsif ($var eq "separate-module") { - my ($module, $prodir, $headerdir) = split(/:/, $val); - $modules{$module} = $prodir; - push @modules_to_sync, $module; - $moduleheaders{$module} = $headerdir; - $create_uic_class_map = 0; - } elsif ($var eq "version") { - if($val) { - $module_version = $val; - } else { - die "The -version option requires an argument"; - } - } elsif ($var eq "output") { - my $outdir = $val; - if(checkRelative($outdir)) { - $out_basedir = getcwd(); - chomp $out_basedir; - $out_basedir .= "/" . $outdir; - } else { - $out_basedir = $outdir; - } - normalizePath(\$out_basedir); - } -} - -# if we have no $basedir we cannot be sure which sources you want, so die -die "Could not find any sync.profile for your module!\nPass to syncqt to sync your header files.\nsyncqt failed" if (!$basedir); - -my $class_lib_map_contents = ""; -our @ignore_headers = (); -our @ignore_for_master_contents = (); -our @ignore_for_include_check = (); -our @ignore_for_qt_begin_namespace_check = (); -our @ignore_for_qt_module_check = (); -our %inject_headers = (); - -# load the module's sync.profile here, before we can -loadSyncProfile(\$basedir, \$out_basedir); - -@modules_to_sync = keys(%modules) if($#modules_to_sync == -1); - -my %allmoduleheadersprivate = map { $_ => 1 } @allmoduleheadersprivate; - -$isunix = checkUnix; #cache checkUnix - -if (!$module_version) { - my $filco = fileContents($basedir."/src/corelib/global/qglobal.h"); - if ($filco !~ m,.*^#[ \t]*define[ \t]+QT_VERSION_STR[ \t]+"([^"]+)".*,sm) { - die "Cannot determine Qt/Module version. Use -version.\n"; - } - $module_version = $1; -} -foreach my $lib (@modules_to_sync) { - die "No such module: $lib" unless(defined $modules{$lib}); - - #iteration info - my @dirs = split(/;/, $modules{$lib}); - my $dir = $dirs[0]; - - my $pathtoheaders = ""; - $pathtoheaders = $moduleheaders{$lib} if ($moduleheaders{$lib}); - - my $allheadersprivate = 0; - $allheadersprivate = 1 if $allmoduleheadersprivate{$lib}; - - #information used after the syncing - my $pri_install_classes = ""; - my $pri_install_files = ""; - my $pri_install_pfiles = ""; - my $pri_install_qpafiles = ""; - - #remove the old files - if($remove_stale) { - my %injections = (); - for my $p (keys %inject_headers) { - next unless ($p =~ /^\Q$dir\E(\/|$)/); - my $sp = $p; - $sp =~ s,^\Q$basedir\E/,$out_basedir/,; - for my $n (@{$inject_headers{$p}}) { - $injections{$sp."/".$n} = 1; - } - } - my @subdirs = ("$out_basedir/include/$lib"); - foreach my $subdir (@subdirs) { - if (opendir DIR, $subdir) { - foreach my $t (sort { $b cmp $a } readdir(DIR)) { - my $file = "$subdir/$t"; - if(-d $file) { - push @subdirs, $file unless($t eq "." || $t eq ".."); - } else { - my @files = ($file); - #push @files, "$out_basedir/include/Qt/$t" if(-e "$out_basedir/include/Qt/$t"); - foreach my $file (@files) { - my $remove_file = 0; - if(open(F, "<$file")) { - while(my $line = ) { - chomp $line; - if($line =~ /^\#include \"([^\"]*)\"$/) { - my $include = $1; - $include = $subdir . "/" . $include unless(substr($include, 0, 1) eq "/"); - $remove_file = 1 unless(-e $include or defined $injections{cleanPath($include)}); - } else { - $remove_file = 0; - last; - } - } - close(F); - unlink $file if($remove_file); - } - } - } - } - closedir DIR; - } - - } - } - - #create the new ones - foreach my $current_dir (@dirs) { - my $thisprivate = 0; - ($current_dir =~ s/^\^//) and $thisprivate = 1; - my @headers_paths = split(/;/, $pathtoheaders); - if (@headers_paths) { - @headers_paths = map { "$current_dir/$_" } @headers_paths; - } else { - push @headers_paths, $current_dir; - } - - foreach my $headers_dir (@headers_paths) { - #calc subdirs - my @subdirs = listSubdirs($headers_dir); - - #calc files and "copy" them - foreach my $subdir (@subdirs) { - my @headers = findFiles($subdir, "^[-a-z0-9_]*\\.h\$" , 0); - if (defined $inject_headers{$subdir}) { - foreach my $if (@{$inject_headers{$subdir}}) { - @headers = grep(!/^\Q$if\E$/, @headers); #in case we configure'd previously - push @headers, "*".$if; - } - } - my $header_dirname = ""; - foreach my $header (@headers) { - my $shadow = ($header =~ s/^\*//); - $header = 0 if($header =~ /^ui_.*.h/); - foreach (@ignore_headers) { - $header = 0 if($header eq $_); - } - if($header) { - my $header_copies = 0; - #figure out if it is a public header - my $public_header = $header; - my $qpa_header = 0; - if(isQpaHeader($public_header)) { - $public_header = 0; - $qpa_header = 1; - } elsif($allheadersprivate || $thisprivate || $public_header =~ /_p.h$/ || $public_header =~ /_pch.h$/) { - $public_header = 0; - } else { - foreach (@ignore_for_master_contents) { - $public_header = 0 if($header eq $_); - } - } - - my $iheader = $subdir . "/" . $header; - $iheader =~ s/^\Q$basedir\E/$out_basedir/ if ($shadow); - my @classes = $public_header && !$minimal ? classNames($iheader) : (); - if($showonly) { - print "$header [$lib]\n"; - foreach(@classes) { - print "SYMBOL: $_\n"; - } - } else { - my $ts = (stat($iheader))[9]; - #find out all the places it goes.. - my @headers; - if ($public_header) { - @headers = ( "$out_basedir/include/$lib/$header" ); - foreach my $full_class (@classes) { - my $header_base = basename($header); - # Strip namespaces: - my $class = $full_class; - $class =~ s/^.*:://; - # if ($class =~ m/::/) { - # class =~ s,::,/,g; - # } - - if (defined $explicitheaders{$lib}{$class}) { - $header_copies++ if(syncHeader($lib, "$out_basedir/include/$lib/$class", "$out_basedir/include/$lib/$explicitheaders{$lib}{$class}", 0, $ts)); - } else { - $class_lib_map_contents .= "QT_CLASS_LIB($full_class, $lib, $header_base)\n"; - $header_copies++ if(syncHeader($lib, "$out_basedir/include/$lib/$class", "$out_basedir/include/$lib/$header", 0, $ts)); - } - } - - if ($explicitheaders{$lib}{basename($header)}) { - $header_copies++ if(syncHeader($lib, "$out_basedir/include/$lib/$explicitheaders{$lib}{basename($header)}", "$out_basedir/include/$lib/$header", 0, $ts)); - } - - } elsif ($create_private_headers && !$qpa_header) { - @headers = ( "$out_basedir/include/$lib/$module_version/$lib/private/$header" ); - } elsif ($create_private_headers) { - @headers = ( "$out_basedir/include/$lib/$module_version/$lib/qpa/$header" ); - } - - foreach(@headers) { #sync them - $header_copies++ if(syncHeader($lib, $_, $iheader, $copy_headers && !$shadow, $ts)); - } - - if($public_header) { - #deal with the install directives - if($public_header) { - my $pri_install_iheader = fixPaths($iheader, $dir); - foreach my $class (@classes) { - # Strip namespaces: - $class =~ s/^.*:://; - # if ($class =~ m/::/) { - # $class =~ s,::,/,g; - # } - my $class_header = fixPaths("$out_basedir/include/$lib/$class", - $dir) . " "; - $pri_install_classes .= $class_header - unless($pri_install_classes =~ $class_header); - } - if ($explicitheaders{$lib}{basename($iheader)}) { - my $compat_header = fixPaths("$out_basedir/include/$lib/$explicitheaders{$lib}{basename($iheader)}", - $dir) . " "; - $pri_install_files .= $compat_header unless($pri_install_files =~ $compat_header); - } - $pri_install_files.= "$pri_install_iheader ";; - } - } - elsif ($qpa_header) { - my $pri_install_iheader = fixPaths($iheader, $dir); - $pri_install_qpafiles.= "$pri_install_iheader ";; - } - else { - my $pri_install_iheader = fixPaths($iheader, $dir); - $pri_install_pfiles.= "$pri_install_iheader ";; - } - } - - if ($verbose_level && $header_copies) { - my $new_header_dirname = dirname($iheader); - basePrettify(\$new_header_dirname) if ($new_header_dirname && $verbose_level < 2); - my $header_base = basename($iheader); - if ($verbose_level < 3) { - my $line_prefix = ","; - if ($new_header_dirname ne $header_dirname) { - $line_prefix = "$lib: created fwd-include header(s) for $new_header_dirname/ {"; - $line_prefix = " }\n".$line_prefix if ($header_dirname); - $header_dirname = $new_header_dirname; - } else { - $line_prefix = ","; - } - print "$line_prefix $header_base ($header_copies)"; - } else { # $verbose_level >= 3 - basePrettify(\$iheader) if ($verbose_level == 3); - print "$lib: created $header_copies fwd-include headers for $iheader\n"; - } - } - } - } - print " }\n" if ($header_dirname && $verbose_level > 0 && $verbose_level < 3); - } - } - } - - unless ($showonly || $minimal) { - # create deprecated headers - my $first = 1; - while (my ($header, $include) = each %{$deprecatedheaders{$lib}}) { - my $public_header = 0; - $public_header = 1 unless ($allheadersprivate || ($header =~ /_p\.h$/)); - next unless ($public_header || $create_private_headers); - - my $header_path = "$out_basedir/include/$lib/"; - unless ($public_header) { - $header_path .= "$module_version/$lib/private/"; - } - $header_path .= "$header"; - - unless (-e $header_path) { - my $guard = "DEPRECATED_HEADER_" . $lib . "_" . $header; - $guard =~ s/([^a-zA-Z0-9_])/_/g; - - my $header_dir = dirname($header_path); - make_path($header_dir, $lib, $verbose_level); - - open(HEADER, ">$header_path") || die "Could not open $header_path for writing: $!\n"; - print HEADER "#ifndef $guard\n"; - print HEADER "#define $guard\n"; - my $warning = "Header <$lib/"; - $warning .= "private/" unless ($public_header); - $warning .= "$header> is deprecated. Please include <$include> instead."; - print HEADER "#if defined(__GNUC__)\n"; - print HEADER "# warning $warning\n"; - print HEADER "#elif defined(_MSC_VER)\n"; - print HEADER "# pragma message (\"$warning\")\n"; - print HEADER "#endif\n"; - print HEADER "#include <$include>\n"; - if ($public_header) { - print HEADER "#if 0\n"; - print HEADER "#pragma qt_no_master_include\n"; - print HEADER "#endif\n"; - } - print HEADER "#endif\n"; - close HEADER; - - if ($verbose_level < 3) { - my $line_prefix = ","; - $line_prefix = "$lib: created deprecated header(s) {" if ($first); - print "$line_prefix $header"; - } else { - print "$lib: created deprecated header $header => $include\n"; - } - $first = 0; - } - - my $addendum = fixPaths($header_path, $dir) . " "; - if ($public_header) { - $pri_install_files .= $addendum; - } else { - $pri_install_pfiles .= $addendum; - } - } - if ($verbose_level < 3) { - print " }\n" unless ($first); - } - - # module version header - my $vheader = "$out_basedir/include/$lib/".lc($lib)."version.h"; - my $VHeader = "$out_basedir/include/$lib/${lib}Version"; - syncHeader($lib, $VHeader, $vheader, 0); - $pri_install_files .= fixPaths($vheader, $dir) . " "; - $pri_install_classes .= fixPaths($VHeader, $dir) . " "; - - #handle the headers.pri for each module - my $headers_pri_contents = ""; - $headers_pri_contents .= "SYNCQT.HEADER_FILES = $pri_install_files\n"; - $headers_pri_contents .= "SYNCQT.HEADER_CLASSES = $pri_install_classes\n"; - $headers_pri_contents .= "SYNCQT.PRIVATE_HEADER_FILES = $pri_install_pfiles\n"; - $headers_pri_contents .= "SYNCQT.QPA_HEADER_FILES = $pri_install_qpafiles\n"; - my $headers_pri_file = "$out_basedir/include/$lib/headers.pri"; - if(-e $headers_pri_file) { - open HEADERS_PRI_FILE, "<$headers_pri_file"; - local $/; - binmode HEADERS_PRI_FILE; - my $old_headers_pri_contents = ; - close HEADERS_PRI_FILE; - $old_headers_pri_contents =~ s/\r//g; # remove \r's , so comparison is ok on all platforms - $headers_pri_file = 0 if($old_headers_pri_contents eq $headers_pri_contents); - } - if($headers_pri_file) { - my $headers_pri_dir = dirname($headers_pri_file); - make_path($headers_pri_dir, $lib, $verbose_level); - open HEADERS_PRI_FILE, ">$headers_pri_file"; - print HEADERS_PRI_FILE $headers_pri_contents; - close HEADERS_PRI_FILE; - print "$lib: created headers.pri file\n" if($verbose_level); - } - } -} -unless($showonly || !$create_uic_class_map) { - my $class_lib_map = "$out_basedir/src/tools/uic/qclass_lib_map.h"; - if(-e $class_lib_map) { - open CLASS_LIB_MAP, "<$class_lib_map"; - local $/; - binmode CLASS_LIB_MAP; - my $old_class_lib_map_contents = ; - close CLASS_LIB_MAP; - $old_class_lib_map_contents =~ s/\r//g; # remove \r's , so comparison is ok on all platforms - $class_lib_map = 0 if($old_class_lib_map_contents eq $class_lib_map_contents); - } - if($class_lib_map) { - my $class_lib_map_dir = dirname($class_lib_map); - make_path($class_lib_map_dir, "", $verbose_level); - open CLASS_LIB_MAP, ">$class_lib_map"; - print CLASS_LIB_MAP $class_lib_map_contents; - close CLASS_LIB_MAP; - } -} - -if($check_includes) { - foreach my $lib (@modules_to_sync) { - #calc subdirs - my @subdirs = listSubdirs(map { s/^\^//; $_ } split(/;/, $modules{$lib})); - - foreach my $subdir (@subdirs) { - my @headers = findFiles($subdir, "^[-a-z0-9_]*\\.h\$" , 0); - foreach my $header (@headers) { - my $header_skip_qt_begin_namespace_test = 0; - $header = 0 if($header =~ /^ui_.*.h/); - $header = 0 if ($header eq lc($lib)."version.h"); - foreach (@ignore_headers) { - $header = 0 if($header eq $_); - } - if($header) { - my $public_header = $header; - if($public_header =~ /_p.h$/ || $public_header =~ /_pch.h$/) { - $public_header = 0; - } elsif (isQpaHeader($public_header)) { - $public_header = 0; - } else { - foreach (@ignore_for_master_contents) { - $public_header = 0 if($header eq $_); - } - if($public_header) { - foreach (@ignore_for_include_check) { - $public_header = 0 if($header eq $_); - } - foreach(@ignore_for_qt_begin_namespace_check) { - $header_skip_qt_begin_namespace_test = 1 if ($header eq $_); - } - } - } - - my $iheader = $subdir . "/" . $header; - if($public_header) { - if(open(F, "<$iheader")) { - my $qt_begin_namespace_found = 0; - my $qt_end_namespace_found = 0; - my $qt_namespace_suffix = ""; - my $line; - my $stop_processing = 0; - while($line = ) { - chomp $line; - my $output_line = 1; - if($line =~ /^ *\# *pragma (qt_no_included_check|qt_sync_stop_processing)/) { - $stop_processing = 1; - last; - } elsif($line =~ /^ *\# *include/) { - my $include = $line; - if($line =~ /<.*>/) { - $include =~ s,.*<(.*)>.*,$1,; - } elsif($line =~ /".*"/) { - $include =~ s,.*"(.*)".*,$1,; - } else { - $include = 0; - } - if($include) { - for my $trylib (keys(%modules)) { - if(-e "$out_basedir/include/$trylib/$include") { - print "$lib: WARNING: $iheader includes $include when it should include $trylib/$include\n"; - } - } - } - } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_BEGIN_NAMESPACE(_[A-Z_]+)?\s*$/) { - $qt_namespace_suffix = defined($1) ? $1 : ""; - $qt_begin_namespace_found = 1; - } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_END_NAMESPACE$qt_namespace_suffix\s*$/) { - $qt_end_namespace_found = 1; - } - } - - if ($header_skip_qt_begin_namespace_test == 0 and $stop_processing == 0) { - if ($qt_begin_namespace_found == 0) { - print "$lib: WARNING: $iheader does not include QT_BEGIN_NAMESPACE\n"; - } - - if ($qt_begin_namespace_found && $qt_end_namespace_found == 0) { - print "$lib: WARNING: $iheader has QT_BEGIN_NAMESPACE$qt_namespace_suffix but no QT_END_NAMESPACE$qt_namespace_suffix\n"; - } - } - - close(F); - } - } - } - } - } - } -} - -exit 0; diff --git a/bin/syncqt.bat b/bin/syncqt.bat deleted file mode 100755 index 99ada5baa7..0000000000 --- a/bin/syncqt.bat +++ /dev/null @@ -1,44 +0,0 @@ -::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: -:: -:: Copyright (C) 2013 Digia Plc and/or its subsidiary(-ies). -:: Contact: http://www.qt-project.org/legal -:: -:: This file is part of the tools applications of the Qt Toolkit. -:: -:: $QT_BEGIN_LICENSE:LGPL$ -:: 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 Digia. For licensing terms and -:: conditions see http://qt.digia.com/licensing. For further information -:: use the contact form at http://qt.digia.com/contact-us. -:: -:: GNU Lesser General Public License Usage -:: Alternatively, this file may be used under the terms of the GNU Lesser -:: General Public License version 2.1 as published by the Free Software -:: Foundation and appearing in the file LICENSE.LGPL included in the -:: packaging of this file. Please review the following information to -:: ensure the GNU Lesser General Public License version 2.1 requirements -:: will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html. -:: -:: In addition, as a special exception, Digia gives you certain additional -:: rights. These rights are described in the Digia Qt LGPL Exception -:: version 1.1, included in the file LGPL_EXCEPTION.txt in this package. -:: -:: GNU General Public License Usage -:: Alternatively, this file may be used under the terms of the GNU -:: General Public License version 3.0 as published by the Free Software -:: Foundation and appearing in the file LICENSE.GPL included in the -:: packaging of this file. Please review the following information to -:: ensure the GNU General Public License version 3.0 requirements will be -:: met: http://www.gnu.org/copyleft/gpl.html. -:: -:: -:: $QT_END_LICENSE$ -:: -::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: -@echo off -rem ***** This assumes PERL is in the PATH ***** -set scriptpath=%~dp0 -perl.exe %scriptpath%syncqt %* diff --git a/bin/syncqt.pl b/bin/syncqt.pl new file mode 100755 index 0000000000..ce07af4895 --- /dev/null +++ b/bin/syncqt.pl @@ -0,0 +1,1209 @@ +#!/usr/bin/env perl +############################################################################# +## +## Copyright (C) 2013 Digia Plc and/or its subsidiary(-ies). +## Contact: http://www.qt-project.org/legal +## +## This file is part of the build configuration tools of the Qt Toolkit. +## +## $QT_BEGIN_LICENSE:LGPL$ +## 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 Digia. For licensing terms and +## conditions see http://qt.digia.com/licensing. For further information +## use the contact form at http://qt.digia.com/contact-us. +## +## GNU Lesser General Public License Usage +## Alternatively, this file may be used under the terms of the GNU Lesser +## General Public License version 2.1 as published by the Free Software +## Foundation and appearing in the file LICENSE.LGPL included in the +## packaging of this file. Please review the following information to +## ensure the GNU Lesser General Public License version 2.1 requirements +## will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html. +## +## In addition, as a special exception, Digia gives you certain additional +## rights. These rights are described in the Digia Qt LGPL Exception +## version 1.1, included in the file LGPL_EXCEPTION.txt in this package. +## +## GNU General Public License Usage +## Alternatively, this file may be used under the terms of the GNU +## General Public License version 3.0 as published by the Free Software +## Foundation and appearing in the file LICENSE.GPL included in the +## packaging of this file. Please review the following information to +## ensure the GNU General Public License version 3.0 requirements will be +## met: http://www.gnu.org/copyleft/gpl.html. +## +## +## $QT_END_LICENSE$ +## +############################################################################# + +# +# Synchronizes Qt header files - internal development tool. +# + +# use packages ------------------------------------------------------- +use File::Basename; +use File::Path; +use File::Spec; +use Cwd; +use Cwd 'abs_path'; +use Config; +use strict; +use warnings; +use English qw(-no_match_vars ); + +my $normalizePath_fixDrive = ($^O eq "msys" ? 1 : 0); + +###################################################################### +# Syntax: normalizePath(\$path) +# Params: Reference to a path that's going to be normalized. +# +# Purpose: Converts the path into a form that can be used as include +# path from C++ sources and qmake's .pro files. +# Only relevant on Windows. +# Returns: -none- +###################################################################### +sub normalizePath { + my $s = shift; + $$s =~ s=\\=/=g; + if ($normalizePath_fixDrive && ($$s =~ m,^/([a-zA-Z])/(.*), || $$s =~ m,^([a-zA-Z]):/(.*),)) { + $$s = lc($1) . ":/$2"; + } +} + +# set output basedir to be where ever syncqt is run from +our $out_basedir = getcwd(); +normalizePath(\$out_basedir); +our $basedir; +our $quoted_basedir; + +# Make sure we use Windows line endings for chomp and friends on Windows. +$INPUT_RECORD_SEPARATOR = "\r\n" if ($^O eq "msys"); + +# will be defined based on the modules sync.profile +our (%modules, %moduleheaders, @allmoduleheadersprivate, %classnames, %explicitheaders, %deprecatedheaders); +our @qpa_headers = (); + +# global variables (modified by options) +my $isunix = 0; +my $module = 0; +my $showonly = 0; +my $verbose_level = 1; +my $remove_stale = 1; +my $force_win = 0; +my $force_relative = 0; +my $check_includes = 0; +my $copy_headers = 0; +my $create_uic_class_map = 0; +my $create_private_headers = 1; +my $minimal = 0; +my $module_version = 0; +my @modules_to_sync ; +$force_relative = 1 if ( -d "/System/Library/Frameworks" ); + + +# functions ---------------------------------------------------------- + +###################################################################### +# Syntax: showUsage() +# Params: -none- +# +# Purpose: Show the usage of the script. +# Returns: -none- +###################################################################### +sub showUsage +{ + print "$0 usage:\n"; + print " Specifies which module to sync header files for (required for shadow builds!)\n\n"; + + print " -copy Copy headers instead of include-fwd(default: " . ($copy_headers ? "yes" : "no") . ")\n"; + print " -remove-stale Removes stale headers (default: " . ($remove_stale ? "yes" : "no") . ")\n"; + print " -relative Force relative symlinks (default: " . ($force_relative ? "yes" : "no") . ")\n"; + print " -windows Force platform to Windows (default: " . ($force_win ? "yes" : "no") . ")\n"; + print " -showonly Show action but not perform (default: " . ($showonly ? "yes" : "no") . ")\n"; + print " -minimal Do not create CamelCase headers (default: " . ($minimal ? "yes" : "no") . ")\n"; + print " -outdir Specify output directory for sync (default: $out_basedir)\n"; + print " -version Specify the module's version (default: detect from qglobal.h)\n"; + print " -quiet Only report problems, not activity (same as -verbose 0)\n"; + print " -v, -verbose Sets the verbosity level (max. 4) (default: $verbose_level)\n"; + print " The short form increases the level by +1\n"; + print " -separate-module ::\n"; + print " Create headers for with original headers in\n"; + print " relative to \n"; + print " -private Force copy private headers (default: " . ($create_private_headers ? "yes" : "no") . ")\n"; + print " -help This help\n"; + exit 0; +} + +###################################################################### +# Syntax: checkUnix() +# Params: -none- +# +# Purpose: Check if script runs on a Unix system or not. Cygwin +# systems are _not_ detected as Unix systems. +# Returns: 1 if a unix system, else 0. +###################################################################### +sub checkUnix { + my ($r) = 0; + if ( $force_win != 0) { + return 0; + } elsif ( -f "/bin/uname" ) { + $r = 1; + (-f "\\bin\\uname") && ($r = 0); + } elsif ( -f "/usr/bin/uname" ) { + $r = 1; + (-f "\\usr\\bin\\uname") && ($r = 0); + } + if($r) { + $_ = $Config{'osname'}; + $r = 0 if( /(ms)|(cyg)win/i ); + } + return $r; +} + +sub checkRelative { + my ($dir) = @_; + return 0 if($dir =~ /^\//); + return 0 if(!checkUnix() && $dir =~ /[a-zA-Z]:[\/\\]/); + return 1; +} + +###################################################################### +# Syntax: classNames(iheader) +# Params: iheader, string, filename to parse for classname "symlinks" +# +# Purpose: Scans through iheader to find all classnames that should be +# synced into library's include structure. +# Returns: List of all class names in a file. +###################################################################### +sub classNames { + my @ret; + my ($iheader) = @_; + + my $classname = $classnames{basename($iheader)}; + push @ret, $classname if ($classname); + + my $parsable = ""; + if(open(F, "<$iheader")) { + while() { + my $line = $_; + chomp $line; + chop $line if ($line =~ /\r$/); + if($line =~ /^\#/) { + return @ret if($line =~ m/^#pragma qt_sync_stop_processing/); + push(@ret, $1) if($line =~ m/^#pragma qt_class\(([^)]*)\)[\r\n]*$/); + $line = 0; + } + if($line) { + $line =~ s,//.*$,,; #remove c++ comments + $line .= ";" if($line =~ m/^Q_[A-Z_]*\(.*\)[\r\n]*$/); #qt macro + $line .= ";" if($line =~ m/^QT_(BEGIN|END)_HEADER[\r\n]*$/); #qt macro + $line .= ";" if($line =~ m/^QT_(BEGIN|END)_NAMESPACE(_[A-Z]+)*[\r\n]*$/); #qt macro + $line .= ";" if($line =~ m/^QT_MODULE\(.*\)[\r\n]*$/); # QT_MODULE macro + $parsable .= " " . $line; + } + } + close(F); + } + + my $last_definition = 0; + my @namespaces; + for(my $i = 0; $i < length($parsable); $i++) { + my $definition = 0; + my $character = substr($parsable, $i, 1); + if($character eq "/" && substr($parsable, $i+1, 1) eq "*") { #I parse like this for greedy reasons + for($i+=2; $i < length($parsable); $i++) { + my $end = substr($parsable, $i, 2); + if($end eq "*/") { + $last_definition = $i+2; + $i++; + last; + } + } + } elsif($character eq "{") { + my $brace_depth = 1; + my $block_start = $i + 1; + BLOCK: for($i+=1; $i < length($parsable); $i++) { + my $ignore = substr($parsable, $i, 1); + if($ignore eq "{") { + $brace_depth++; + } elsif($ignore eq "}") { + $brace_depth--; + unless($brace_depth) { + for(my $i2 = $i+1; $i2 < length($parsable); $i2++) { + my $end = substr($parsable, $i2, 1); + if($end eq ";" || $end ne " ") { + $definition = substr($parsable, $last_definition, $block_start - $last_definition) . "}"; + $i = $i2 if($end eq ";"); + $last_definition = $i + 1; + last BLOCK; + } + } + } + } + } + } elsif($character eq ";") { + $definition = substr($parsable, $last_definition, $i - $last_definition + 1); + $last_definition = $i + 1; + } elsif($character eq "}") { + # a naked } must be a namespace ending + # if it's not a namespace, it's eaten by the loop above + pop @namespaces; + $last_definition = $i + 1; + } + + if (substr($parsable, $last_definition, $i - $last_definition + 1) =~ m/ namespace ([^ ]*) / + && substr($parsable, $i+1, 1) eq "{") { + push @namespaces, $1; + + # Eat the opening { so that the condensing loop above doesn't see it + $i++; + $last_definition = $i + 1; + } + + if($definition) { + $definition =~ s=[\n\r]==g; + my @symbols; + my $post_kw = qr/Q_DECL_FINAL|final|sealed/; # add here macros and keywords that go after the class-name of a class definition + if($definition =~ m/^ *typedef *.*\(\*([^\)]*)\)\(.*\);$/) { + push @symbols, $1; + } elsif($definition =~ m/^ *typedef +(.*) +([^ ]*);$/) { + push @symbols, $2; + } elsif($definition =~ m/^ *(template *<.*> *)?(class|struct) +([^ ]* +)?((?!$post_kw)[^<\s]+) ?(<[^>]*> ?)?\s*(?:$post_kw)?\s*((,|:)\s*(public|protected|private) *.*)? *\{\}$/o) { + push @symbols, $4; + } elsif($definition =~ m/^ *Q_DECLARE_.*ITERATOR\((.*)\);$/) { + push @symbols, "Q" . $1 . "Iterator"; + push @symbols, "QMutable" . $1 . "Iterator"; + } + + our $publicclassregexp; + foreach my $symbol (@symbols) { + $symbol = (join("::", @namespaces) . "::" . $symbol) if (scalar @namespaces); + + if ($symbol =~ /^Q[^:]*$/) { # no-namespace, starting with Q + push @ret, $symbol; + } elsif (defined($publicclassregexp)) { + push @ret, $symbol if ($symbol =~ $publicclassregexp); + } + } + } + } + return @ret; +} + +sub make_path { + my ($dir, $lib, $be_verbose) = @_; + unless(-e $dir) { + mkpath $dir; + $dir = "" . substr($dir, length($out_basedir)) if ($be_verbose < 3); + print "$lib: mkpath $dir\n" if ($be_verbose > 1); + } +} + +###################################################################### +# Syntax: syncHeader(header, iheader, copy, timestamp) +# Params: header, string, filename to create "symlink" for +# iheader, string, destination name of symlink +# copy, forces header to be a copy of iheader +# timestamp, the requested modification time if copying +# +# Purpose: Syncronizes header to iheader +# Returns: 1 if successful, else 0. +###################################################################### +sub syncHeader { + my ($lib, $header, $iheader, $copy, $ts) = @_; + normalizePath(\$iheader); + normalizePath(\$header); + return copyFile($lib, $iheader, $header) if($copy); + + unless(-e $header) { + my $header_dir = dirname($header); + make_path($header_dir, $lib, $verbose_level); + + #write it + my $iheader_out = fixPaths($iheader, $header_dir); + open(HEADER, ">$header") || die "Could not open $header for writing: $!\n"; + print HEADER "#include \"$iheader_out\"\n"; + close HEADER; + if(defined($ts)) { + utime(time, $ts, $header) or die "$iheader, $header"; + } + return 1; + } + return 0; +} + +###################################################################### +# Syntax: fixPaths(file, dir) +# Params: file, string, filepath to be made relative to dir +# dir, string, dirpath for point of origin +# +# Purpose: file is made relative (if possible) of dir. +# Returns: String with the above applied conversion. +###################################################################### + +sub cleanupPath { + my ($file) = @_; + normalizePath(\$file); + while ($file =~ s,/[^/]+/\.\./,/,) {} + return $file; +} + +sub fixPaths { + my ($file, $dir) = @_; + + my $out = File::Spec->abs2rel(cleanupPath($file), cleanupPath($dir)); + $out =~ s,\\,/,g; + return $out; +} + +###################################################################### +# Syntax: fileContents(filename) +# Params: filename, string, filename of file to return contents +# +# Purpose: Get the contents of a file. +# Returns: String with contents of the file, or empty string if file +# doens't exist. +# Warning: Dies if it does exist but script cannot get read access. +###################################################################### +sub fileContents { + my ($filename) = @_; + my $filecontents = ""; + if (-e $filename) { + open(I, "< $filename") || die "Could not open $filename for reading, read block?"; + local $/; + binmode I; + $filecontents = ; + close I; + } + return $filecontents; +} + +###################################################################### +# Syntax: fileCompare(file1, file2) +# Params: file1, string, filename of first file +# file2, string, filename of second file +# +# Purpose: Determines if files are equal, and which one is newer. +# Returns: 0 if files are equal no matter the timestamp, -1 if file1 +# is newer, 1 if file2 is newer. +###################################################################### +sub fileCompare { + my ($file1, $file2) = @_; + my $file1contents = fileContents($file1); + my $file2contents = fileContents($file2); + if (! -e $file1) { return 1; } + if (! -e $file2) { return -1; } + return $file1contents ne $file2contents ? (stat($file2))[9] <=> (stat($file1))[9] : 0; +} + +###################################################################### +# Syntax: copyFile(file, ifile) +# Params: file, string, filename to create duplicate for +# ifile, string, destination name of duplicate +# +# Purpose: Keeps files in sync so changes in the newer file will be +# written to the other. +# Returns: 1 if files were synced, else 0. +# Warning: Dies if script cannot get write access. +###################################################################### +sub copyFile +{ + my ($lib, $file,$ifile, $copy,$knowdiff,$filecontents,$ifilecontents) = @_; + # Bi-directional synchronization + open( I, "< " . $file ) || die "Could not open $file for reading"; + local $/; + binmode I; + $filecontents = ; + close I; + if ( open(I, "< " . $ifile) ) { + local $/; + binmode I; + $ifilecontents = ; + close I; + $copy = fileCompare($file, $ifile); + $knowdiff = 0, + } else { + $copy = -1; + $knowdiff = 1; + } + + if ( $knowdiff || ($filecontents ne $ifilecontents) ) { + if ( $copy > 0 ) { + my $file_dir = dirname($file); + make_path($file_dir, $lib, $verbose_level); + open(O, "> " . $file) || die "Could not open $file for writing (no write permission?)"; + local $/; + binmode O; + print O $ifilecontents; + close O; + utime time, (stat($ifile))[9], $file; + return 1; + } elsif ( $copy < 0 ) { + my $ifile_dir = dirname($ifile); + make_path($ifile_dir, $lib, $verbose_level); + open(O, "> " . $ifile) || die "Could not open $ifile for writing (no write permission?)"; + local $/; + binmode O; + print O $filecontents; + close O; + utime time, (stat($file))[9], $ifile; + return 1; + } + } + return 0; +} + +###################################################################### +# Syntax: symlinkFile(file, ifile) +# Params: file, string, filename to create "symlink" for +# ifile, string, destination name of symlink +# +# Purpose: File is symlinked to ifile (or copied if filesystem doesn't +# support symlink). +# Returns: 1 on success, else 0. +###################################################################### +sub symlinkFile +{ + my ($lib, $file, $ifile) = @_; + + if ($isunix) { + print "$lib: symlink created for $file " if ($verbose_level); + if ( $force_relative && ($ifile =~ /^$quoted_basedir/)) { + my $t = getcwd(); + my $c = -1; + my $p = "../"; + $t =~ s-^$quoted_basedir/--; + $p .= "../" while( ($c = index( $t, "/", $c + 1)) != -1 ); + $file =~ s-^$quoted_basedir/-$p-; + print " ($file)\n" if($verbose_level); + } + print "\n" if($verbose_level); + return symlink($file, $ifile); + } + return copyFile($lib, $file, $ifile); +} + +###################################################################### +# Syntax: findFiles(dir, match, descend) +# Params: dir, string, directory to search for name +# match, string, regular expression to match in dir +# descend, integer, 0 = non-recursive search +# 1 = recurse search into subdirectories +# +# Purpose: Finds files matching a regular expression. +# Returns: List of matching files. +# +# Examples: +# findFiles("/usr","\.cpp$",1) - finds .cpp files in /usr and below +# findFiles("/tmp","^#",0) - finds #* files in /tmp +###################################################################### +sub findFiles { + my ($dir,$match,$descend) = @_; + my ($file,$p,@files); + local(*D); + normalizePath(\$dir); + ($dir eq "") && ($dir = "."); + if ( opendir(D,$dir) ) { + if ( $dir eq "." ) { + $dir = ""; + } else { + ($dir =~ /\/$/) || ($dir .= "/"); + } + foreach $file ( sort readdir(D) ) { + next if ( $file =~ /^\.\.?$/ ); + $p = $file; + ($file =~ /$match/) && (push @files, $p); + if ( $descend && -d $p && ! -l $p ) { + push @files, &findFiles($p,$match,$descend); + } + } + closedir(D); + } + return @files; +} + +sub listSubdirs { + my @subdirs = @_; + foreach my $subdir (@subdirs) { + opendir DIR, $subdir or die "Huh, directory ".$subdir." cannot be opened."; + foreach my $t (sort readdir(DIR)) { + push @subdirs, "$subdir/$t" if(-d "$subdir/$t" && !($t eq ".") && + !($t eq "..") && !($t eq ".obj") && + !($t eq ".moc") && !($t eq ".rcc") && + !($t eq ".uic") && !($t eq "build") && + !($t eq "doc")); + } + closedir DIR; + } + return @subdirs; +} + +###################################################################### +# Syntax: loadSyncProfile() +# +# Purpose: Locates the sync.profile. +# Returns: Hashmap of module name -> directory. +###################################################################### +sub loadSyncProfile { + my ($srcbase, $outbase) = @_; + if ($verbose_level) { + print(" = $$srcbase \n"); + print(" = $$outbase \n"); + } + + my $syncprofile = "$$srcbase/sync.profile"; + my $result; + unless ($result = do "$syncprofile") { + die "syncqt couldn't parse $syncprofile: $@" if $@; + die "syncqt couldn't execute $syncprofile: $!" unless defined $result; + } + return $result; +} + +sub basePrettify { + my ($arg) = @_; + $$arg =~ s,^\Q$basedir\E,,; + $$arg =~ s,^\Q$out_basedir\E,,; +} + +sub cleanPath { + my ($arg) = @_; + while ($arg =~ s,[^/]+/\.\.(/|$),,) {} + return $arg; +} + +sub locateSyncProfile +{ + my ($directory) = @_; + $directory = abs_path($directory); + while (1) { + my $file = $directory."/sync.profile"; + return $file if (-e $file); + my $odir = $directory; + $directory = dirname($directory); + return undef if ($directory eq $odir); + } +} + +sub isQpaHeader +{ + my ($header) = @_; + foreach my $qpa_header (@qpa_headers) { + return 1 if ($header =~ $qpa_header); + } + return 0; +} + +# check if this is an in-source build, and if so use that as the basedir too +$basedir = locateSyncProfile($out_basedir); +if ($basedir) { + $basedir = dirname($basedir) ; + normalizePath(\$basedir); + $quoted_basedir = "\Q$basedir"; +} + +# -------------------------------------------------------------------- +# "main" function +# -------------------------------------------------------------------- + +while ( @ARGV ) { + my $var = 0; + my $val = 0; + + #parse + my $arg = shift @ARGV; + if ($arg eq "-h" || $arg eq "-help" || $arg eq "-?" || $arg eq "?") { + $var = "show_help"; + $val = "yes"; + } elsif($arg eq "-copy") { + $var = "copy"; + $val = "yes"; + } elsif($arg eq "-o" || $arg eq "-outdir") { + $var = "output"; + $val = shift @ARGV; + } elsif($arg eq "-showonly" || $arg eq "-remove-stale" || $arg eq "-windows" || + $arg eq "-relative" || $arg eq "-check-includes") { + $var = substr($arg, 1); + $val = "yes"; + } elsif($arg =~ /^-no-(.*)$/) { + $var = $1; + $val = "no"; + #these are for commandline compat + } elsif($arg eq "-inc") { + $var = "output"; + $val = shift @ARGV; + } elsif($arg eq "-module") { + $var = "module"; + $val = shift @ARGV; + } elsif($arg eq "-separate-module") { + $var = "separate-module"; + $val = shift @ARGV; + } elsif($arg eq "-show") { + $var = "showonly"; + $val = "yes"; + } elsif($arg eq "-quiet") { + $var = "verbose"; + $val = "0"; + } elsif($arg eq "-v") { + $var = "verbose"; + $val = "yes"; + } elsif($arg eq "-verbose") { + $var = "verbose"; + $val = shift @ARGV; + } elsif($arg eq "-minimal") { + $var = "minimal"; + $val = "yes"; + } elsif($arg eq "-private") { + $var = "create_private_headers"; + $val = "yes"; + } elsif($arg eq "-version") { + $var = "version"; + $val = shift @ARGV; + } elsif($arg =~/^-/) { + print "Unknown option: $arg\n\n" if(!$var); + showUsage(); + } else { + $basedir = locateSyncProfile($arg); + die "Could not find a sync.profile for '$arg'\n" if (!$basedir); + $basedir = dirname($basedir); + normalizePath(\$basedir); + $quoted_basedir = "\Q$basedir"; + $var = "ignore"; + } + + #do something + if(!$var || $var eq "show_help") { + print "Unknown option: $arg\n\n" if(!$var); + showUsage(); + } elsif ($var eq "copy") { + if($val eq "yes") { + $copy_headers++; + } elsif($showonly) { + $copy_headers--; + } + } elsif ($var eq "showonly") { + if($val eq "yes") { + $showonly++; + } elsif($showonly) { + $showonly--; + } + } elsif ($var eq "verbose") { + if($val eq "yes") { + $verbose_level++; + } elsif($val eq "no" && $verbose_level) { + $verbose_level--; + } else { + $verbose_level = int($val); + } + } elsif ($var eq "check-includes") { + if($val eq "yes") { + $check_includes++; + } elsif($check_includes) { + $check_includes--; + } + } elsif ($var eq "remove-stale") { + if($val eq "yes") { + $remove_stale++; + } elsif($remove_stale) { + $remove_stale--; + } + } elsif ($var eq "windows") { + if($val eq "yes") { + $force_win++; + } elsif($force_win) { + $force_win--; + } + } elsif ($var eq "relative") { + if($val eq "yes") { + $force_relative++; + } elsif($force_relative) { + $force_relative--; + } + } elsif ($var eq "minimal") { + if($val eq "yes") { + $minimal++; + } elsif($minimal) { + $minimal--; + } + } elsif ($var eq "module") { + push @modules_to_sync, $val; + } elsif ($var eq "separate-module") { + my ($module, $prodir, $headerdir) = split(/:/, $val); + $modules{$module} = $prodir; + push @modules_to_sync, $module; + $moduleheaders{$module} = $headerdir; + $create_uic_class_map = 0; + } elsif ($var eq "version") { + if($val) { + $module_version = $val; + } else { + die "The -version option requires an argument"; + } + } elsif ($var eq "output") { + my $outdir = $val; + if(checkRelative($outdir)) { + $out_basedir = getcwd(); + chomp $out_basedir; + $out_basedir .= "/" . $outdir; + } else { + $out_basedir = $outdir; + } + normalizePath(\$out_basedir); + } +} + +# if we have no $basedir we cannot be sure which sources you want, so die +die "Could not find any sync.profile for your module!\nPass to syncqt to sync your header files.\nsyncqt failed" if (!$basedir); + +my $class_lib_map_contents = ""; +our @ignore_headers = (); +our @ignore_for_master_contents = (); +our @ignore_for_include_check = (); +our @ignore_for_qt_begin_namespace_check = (); +our @ignore_for_qt_module_check = (); +our %inject_headers = (); + +# load the module's sync.profile here, before we can +loadSyncProfile(\$basedir, \$out_basedir); + +@modules_to_sync = keys(%modules) if($#modules_to_sync == -1); + +my %allmoduleheadersprivate = map { $_ => 1 } @allmoduleheadersprivate; + +$isunix = checkUnix; #cache checkUnix + +if (!$module_version) { + my $filco = fileContents($basedir."/src/corelib/global/qglobal.h"); + if ($filco !~ m,.*^#[ \t]*define[ \t]+QT_VERSION_STR[ \t]+"([^"]+)".*,sm) { + die "Cannot determine Qt/Module version. Use -version.\n"; + } + $module_version = $1; +} +foreach my $lib (@modules_to_sync) { + die "No such module: $lib" unless(defined $modules{$lib}); + + #iteration info + my @dirs = split(/;/, $modules{$lib}); + my $dir = $dirs[0]; + + my $pathtoheaders = ""; + $pathtoheaders = $moduleheaders{$lib} if ($moduleheaders{$lib}); + + my $allheadersprivate = 0; + $allheadersprivate = 1 if $allmoduleheadersprivate{$lib}; + + #information used after the syncing + my $pri_install_classes = ""; + my $pri_install_files = ""; + my $pri_install_pfiles = ""; + my $pri_install_qpafiles = ""; + + #remove the old files + if($remove_stale) { + my %injections = (); + for my $p (keys %inject_headers) { + next unless ($p =~ /^\Q$dir\E(\/|$)/); + my $sp = $p; + $sp =~ s,^\Q$basedir\E/,$out_basedir/,; + for my $n (@{$inject_headers{$p}}) { + $injections{$sp."/".$n} = 1; + } + } + my @subdirs = ("$out_basedir/include/$lib"); + foreach my $subdir (@subdirs) { + if (opendir DIR, $subdir) { + foreach my $t (sort { $b cmp $a } readdir(DIR)) { + my $file = "$subdir/$t"; + if(-d $file) { + push @subdirs, $file unless($t eq "." || $t eq ".."); + } else { + my @files = ($file); + #push @files, "$out_basedir/include/Qt/$t" if(-e "$out_basedir/include/Qt/$t"); + foreach my $file (@files) { + my $remove_file = 0; + if(open(F, "<$file")) { + while(my $line = ) { + chomp $line; + if($line =~ /^\#include \"([^\"]*)\"$/) { + my $include = $1; + $include = $subdir . "/" . $include unless(substr($include, 0, 1) eq "/"); + $remove_file = 1 unless(-e $include or defined $injections{cleanPath($include)}); + } else { + $remove_file = 0; + last; + } + } + close(F); + unlink $file if($remove_file); + } + } + } + } + closedir DIR; + } + + } + } + + #create the new ones + foreach my $current_dir (@dirs) { + my $thisprivate = 0; + ($current_dir =~ s/^\^//) and $thisprivate = 1; + my @headers_paths = split(/;/, $pathtoheaders); + if (@headers_paths) { + @headers_paths = map { "$current_dir/$_" } @headers_paths; + } else { + push @headers_paths, $current_dir; + } + + foreach my $headers_dir (@headers_paths) { + #calc subdirs + my @subdirs = listSubdirs($headers_dir); + + #calc files and "copy" them + foreach my $subdir (@subdirs) { + my @headers = findFiles($subdir, "^[-a-z0-9_]*\\.h\$" , 0); + if (defined $inject_headers{$subdir}) { + foreach my $if (@{$inject_headers{$subdir}}) { + @headers = grep(!/^\Q$if\E$/, @headers); #in case we configure'd previously + push @headers, "*".$if; + } + } + my $header_dirname = ""; + foreach my $header (@headers) { + my $shadow = ($header =~ s/^\*//); + $header = 0 if($header =~ /^ui_.*.h/); + foreach (@ignore_headers) { + $header = 0 if($header eq $_); + } + if($header) { + my $header_copies = 0; + #figure out if it is a public header + my $public_header = $header; + my $qpa_header = 0; + if(isQpaHeader($public_header)) { + $public_header = 0; + $qpa_header = 1; + } elsif($allheadersprivate || $thisprivate || $public_header =~ /_p.h$/ || $public_header =~ /_pch.h$/) { + $public_header = 0; + } else { + foreach (@ignore_for_master_contents) { + $public_header = 0 if($header eq $_); + } + } + + my $iheader = $subdir . "/" . $header; + $iheader =~ s/^\Q$basedir\E/$out_basedir/ if ($shadow); + my @classes = $public_header && !$minimal ? classNames($iheader) : (); + if($showonly) { + print "$header [$lib]\n"; + foreach(@classes) { + print "SYMBOL: $_\n"; + } + } else { + my $ts = (stat($iheader))[9]; + #find out all the places it goes.. + my @headers; + if ($public_header) { + @headers = ( "$out_basedir/include/$lib/$header" ); + foreach my $full_class (@classes) { + my $header_base = basename($header); + # Strip namespaces: + my $class = $full_class; + $class =~ s/^.*:://; + # if ($class =~ m/::/) { + # class =~ s,::,/,g; + # } + + if (defined $explicitheaders{$lib}{$class}) { + $header_copies++ if(syncHeader($lib, "$out_basedir/include/$lib/$class", "$out_basedir/include/$lib/$explicitheaders{$lib}{$class}", 0, $ts)); + } else { + $class_lib_map_contents .= "QT_CLASS_LIB($full_class, $lib, $header_base)\n"; + $header_copies++ if(syncHeader($lib, "$out_basedir/include/$lib/$class", "$out_basedir/include/$lib/$header", 0, $ts)); + } + } + + if ($explicitheaders{$lib}{basename($header)}) { + $header_copies++ if(syncHeader($lib, "$out_basedir/include/$lib/$explicitheaders{$lib}{basename($header)}", "$out_basedir/include/$lib/$header", 0, $ts)); + } + + } elsif ($create_private_headers && !$qpa_header) { + @headers = ( "$out_basedir/include/$lib/$module_version/$lib/private/$header" ); + } elsif ($create_private_headers) { + @headers = ( "$out_basedir/include/$lib/$module_version/$lib/qpa/$header" ); + } + + foreach(@headers) { #sync them + $header_copies++ if(syncHeader($lib, $_, $iheader, $copy_headers && !$shadow, $ts)); + } + + if($public_header) { + #deal with the install directives + if($public_header) { + my $pri_install_iheader = fixPaths($iheader, $dir); + foreach my $class (@classes) { + # Strip namespaces: + $class =~ s/^.*:://; + # if ($class =~ m/::/) { + # $class =~ s,::,/,g; + # } + my $class_header = fixPaths("$out_basedir/include/$lib/$class", + $dir) . " "; + $pri_install_classes .= $class_header + unless($pri_install_classes =~ $class_header); + } + if ($explicitheaders{$lib}{basename($iheader)}) { + my $compat_header = fixPaths("$out_basedir/include/$lib/$explicitheaders{$lib}{basename($iheader)}", + $dir) . " "; + $pri_install_files .= $compat_header unless($pri_install_files =~ $compat_header); + } + $pri_install_files.= "$pri_install_iheader ";; + } + } + elsif ($qpa_header) { + my $pri_install_iheader = fixPaths($iheader, $dir); + $pri_install_qpafiles.= "$pri_install_iheader ";; + } + else { + my $pri_install_iheader = fixPaths($iheader, $dir); + $pri_install_pfiles.= "$pri_install_iheader ";; + } + } + + if ($verbose_level && $header_copies) { + my $new_header_dirname = dirname($iheader); + basePrettify(\$new_header_dirname) if ($new_header_dirname && $verbose_level < 2); + my $header_base = basename($iheader); + if ($verbose_level < 3) { + my $line_prefix = ","; + if ($new_header_dirname ne $header_dirname) { + $line_prefix = "$lib: created fwd-include header(s) for $new_header_dirname/ {"; + $line_prefix = " }\n".$line_prefix if ($header_dirname); + $header_dirname = $new_header_dirname; + } else { + $line_prefix = ","; + } + print "$line_prefix $header_base ($header_copies)"; + } else { # $verbose_level >= 3 + basePrettify(\$iheader) if ($verbose_level == 3); + print "$lib: created $header_copies fwd-include headers for $iheader\n"; + } + } + } + } + print " }\n" if ($header_dirname && $verbose_level > 0 && $verbose_level < 3); + } + } + } + + unless ($showonly || $minimal) { + # create deprecated headers + my $first = 1; + while (my ($header, $include) = each %{$deprecatedheaders{$lib}}) { + my $public_header = 0; + $public_header = 1 unless ($allheadersprivate || ($header =~ /_p\.h$/)); + next unless ($public_header || $create_private_headers); + + my $header_path = "$out_basedir/include/$lib/"; + unless ($public_header) { + $header_path .= "$module_version/$lib/private/"; + } + $header_path .= "$header"; + + unless (-e $header_path) { + my $guard = "DEPRECATED_HEADER_" . $lib . "_" . $header; + $guard =~ s/([^a-zA-Z0-9_])/_/g; + + my $header_dir = dirname($header_path); + make_path($header_dir, $lib, $verbose_level); + + open(HEADER, ">$header_path") || die "Could not open $header_path for writing: $!\n"; + print HEADER "#ifndef $guard\n"; + print HEADER "#define $guard\n"; + my $warning = "Header <$lib/"; + $warning .= "private/" unless ($public_header); + $warning .= "$header> is deprecated. Please include <$include> instead."; + print HEADER "#if defined(__GNUC__)\n"; + print HEADER "# warning $warning\n"; + print HEADER "#elif defined(_MSC_VER)\n"; + print HEADER "# pragma message (\"$warning\")\n"; + print HEADER "#endif\n"; + print HEADER "#include <$include>\n"; + if ($public_header) { + print HEADER "#if 0\n"; + print HEADER "#pragma qt_no_master_include\n"; + print HEADER "#endif\n"; + } + print HEADER "#endif\n"; + close HEADER; + + if ($verbose_level < 3) { + my $line_prefix = ","; + $line_prefix = "$lib: created deprecated header(s) {" if ($first); + print "$line_prefix $header"; + } else { + print "$lib: created deprecated header $header => $include\n"; + } + $first = 0; + } + + my $addendum = fixPaths($header_path, $dir) . " "; + if ($public_header) { + $pri_install_files .= $addendum; + } else { + $pri_install_pfiles .= $addendum; + } + } + if ($verbose_level < 3) { + print " }\n" unless ($first); + } + + # module version header + my $vheader = "$out_basedir/include/$lib/".lc($lib)."version.h"; + my $VHeader = "$out_basedir/include/$lib/${lib}Version"; + syncHeader($lib, $VHeader, $vheader, 0); + $pri_install_files .= fixPaths($vheader, $dir) . " "; + $pri_install_classes .= fixPaths($VHeader, $dir) . " "; + + #handle the headers.pri for each module + my $headers_pri_contents = ""; + $headers_pri_contents .= "SYNCQT.HEADER_FILES = $pri_install_files\n"; + $headers_pri_contents .= "SYNCQT.HEADER_CLASSES = $pri_install_classes\n"; + $headers_pri_contents .= "SYNCQT.PRIVATE_HEADER_FILES = $pri_install_pfiles\n"; + $headers_pri_contents .= "SYNCQT.QPA_HEADER_FILES = $pri_install_qpafiles\n"; + my $headers_pri_file = "$out_basedir/include/$lib/headers.pri"; + if(-e $headers_pri_file) { + open HEADERS_PRI_FILE, "<$headers_pri_file"; + local $/; + binmode HEADERS_PRI_FILE; + my $old_headers_pri_contents = ; + close HEADERS_PRI_FILE; + $old_headers_pri_contents =~ s/\r//g; # remove \r's , so comparison is ok on all platforms + $headers_pri_file = 0 if($old_headers_pri_contents eq $headers_pri_contents); + } + if($headers_pri_file) { + my $headers_pri_dir = dirname($headers_pri_file); + make_path($headers_pri_dir, $lib, $verbose_level); + open HEADERS_PRI_FILE, ">$headers_pri_file"; + print HEADERS_PRI_FILE $headers_pri_contents; + close HEADERS_PRI_FILE; + print "$lib: created headers.pri file\n" if($verbose_level); + } + } +} +unless($showonly || !$create_uic_class_map) { + my $class_lib_map = "$out_basedir/src/tools/uic/qclass_lib_map.h"; + if(-e $class_lib_map) { + open CLASS_LIB_MAP, "<$class_lib_map"; + local $/; + binmode CLASS_LIB_MAP; + my $old_class_lib_map_contents = ; + close CLASS_LIB_MAP; + $old_class_lib_map_contents =~ s/\r//g; # remove \r's , so comparison is ok on all platforms + $class_lib_map = 0 if($old_class_lib_map_contents eq $class_lib_map_contents); + } + if($class_lib_map) { + my $class_lib_map_dir = dirname($class_lib_map); + make_path($class_lib_map_dir, "", $verbose_level); + open CLASS_LIB_MAP, ">$class_lib_map"; + print CLASS_LIB_MAP $class_lib_map_contents; + close CLASS_LIB_MAP; + } +} + +if($check_includes) { + foreach my $lib (@modules_to_sync) { + #calc subdirs + my @subdirs = listSubdirs(map { s/^\^//; $_ } split(/;/, $modules{$lib})); + + foreach my $subdir (@subdirs) { + my @headers = findFiles($subdir, "^[-a-z0-9_]*\\.h\$" , 0); + foreach my $header (@headers) { + my $header_skip_qt_begin_namespace_test = 0; + $header = 0 if($header =~ /^ui_.*.h/); + $header = 0 if ($header eq lc($lib)."version.h"); + foreach (@ignore_headers) { + $header = 0 if($header eq $_); + } + if($header) { + my $public_header = $header; + if($public_header =~ /_p.h$/ || $public_header =~ /_pch.h$/) { + $public_header = 0; + } elsif (isQpaHeader($public_header)) { + $public_header = 0; + } else { + foreach (@ignore_for_master_contents) { + $public_header = 0 if($header eq $_); + } + if($public_header) { + foreach (@ignore_for_include_check) { + $public_header = 0 if($header eq $_); + } + foreach(@ignore_for_qt_begin_namespace_check) { + $header_skip_qt_begin_namespace_test = 1 if ($header eq $_); + } + } + } + + my $iheader = $subdir . "/" . $header; + if($public_header) { + if(open(F, "<$iheader")) { + my $qt_begin_namespace_found = 0; + my $qt_end_namespace_found = 0; + my $qt_namespace_suffix = ""; + my $line; + my $stop_processing = 0; + while($line = ) { + chomp $line; + my $output_line = 1; + if($line =~ /^ *\# *pragma (qt_no_included_check|qt_sync_stop_processing)/) { + $stop_processing = 1; + last; + } elsif($line =~ /^ *\# *include/) { + my $include = $line; + if($line =~ /<.*>/) { + $include =~ s,.*<(.*)>.*,$1,; + } elsif($line =~ /".*"/) { + $include =~ s,.*"(.*)".*,$1,; + } else { + $include = 0; + } + if($include) { + for my $trylib (keys(%modules)) { + if(-e "$out_basedir/include/$trylib/$include") { + print "$lib: WARNING: $iheader includes $include when it should include $trylib/$include\n"; + } + } + } + } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_BEGIN_NAMESPACE(_[A-Z_]+)?\s*$/) { + $qt_namespace_suffix = defined($1) ? $1 : ""; + $qt_begin_namespace_found = 1; + } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_END_NAMESPACE$qt_namespace_suffix\s*$/) { + $qt_end_namespace_found = 1; + } + } + + if ($header_skip_qt_begin_namespace_test == 0 and $stop_processing == 0) { + if ($qt_begin_namespace_found == 0) { + print "$lib: WARNING: $iheader does not include QT_BEGIN_NAMESPACE\n"; + } + + if ($qt_begin_namespace_found && $qt_end_namespace_found == 0) { + print "$lib: WARNING: $iheader has QT_BEGIN_NAMESPACE$qt_namespace_suffix but no QT_END_NAMESPACE$qt_namespace_suffix\n"; + } + } + + close(F); + } + } + } + } + } + } +} + +exit 0; -- cgit v1.2.3