You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
103 lines
2.6 KiB
103 lines
2.6 KiB
15 years ago
|
#! /usr/bin/env perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Cwd;
|
||
|
|
use File::Find;
|
||
|
|
|
||
|
|
my %dir2files=();
|
||
|
|
my $cppExt=" cpp cc cxx C c++ ";
|
||
|
|
my $cppFiles="*.cpp *.cc *.cxx *.C *.c++";
|
||
|
|
|
||
|
|
sub collectthing()
|
||
|
|
{
|
||
|
|
if (/\.([^.]+)$/) {
|
||
|
|
my $ext=$1;
|
||
|
|
if (" h H hh hxx h++ " =~ / $ext /) {
|
||
|
|
my $line=`grep -l '^[{ \t]*Q_OBJECT' $_ 2> /dev/null`;
|
||
|
|
chomp($line);
|
||
|
|
if ($line) {
|
||
|
|
$dir2files{$File::Find::dir}->{headers}->{$_} = 1;
|
||
|
|
}
|
||
|
|
} elsif ($cppExt =~ / $ext /) {
|
||
|
|
$dir2files{$File::Find::dir}->{sources}->{$_} = 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sub checkdir($)
|
||
|
|
{
|
||
|
|
my ($dir)=@_;
|
||
|
|
chdir($dir);
|
||
|
|
my $hdrs=$dir2files{$dir}->{headers};
|
||
|
|
my $srcs=$dir2files{$dir}->{sources};
|
||
|
|
foreach my $h (keys %$hdrs) {
|
||
|
|
(my $name=$h) =~ s/\.[^.]+$//;
|
||
|
|
my @answer = `grep -l "^#include[ ]*.$name\.moc." $cppFiles 2> /dev/null`;
|
||
|
|
if (@answer == 0) {
|
||
|
|
my $s;
|
||
|
|
foreach my $e (split(/\s+/, $cppExt)) {
|
||
|
|
if (exists $srcs->{$name.".".$e}) {
|
||
|
|
$s=$dir."/".$name.".".$e; last;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($s) {
|
||
|
|
print "echo >> $s ;\n";
|
||
|
|
print "echo '#include \"$name.moc\"' >> $s ;\n";
|
||
|
|
} else {
|
||
|
|
print "echo \"can't guess a C++ file for $dir/$h\" ;\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
find (\&collectthing, cwd());
|
||
|
|
|
||
|
|
foreach my $k (keys %dir2files) {
|
||
|
|
print STDERR "Directory $k:\n headers=[";
|
||
|
|
print STDERR join(", ", keys %{$dir2files{$k}->{headers}});
|
||
|
|
print STDERR "]\n sources=[";
|
||
|
|
print STDERR join(", ", keys %{$dir2files{$k}->{sources}});
|
||
|
|
print STDERR "]\n";
|
||
|
|
checkdir($k);
|
||
|
|
}
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
includemocs -- handle mocifyable headers, whose .moc file is nowhere included.
|
||
|
|
|
||
|
|
=head1 SYNOPSIS
|
||
|
|
|
||
|
|
includemocs
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
Header files declaring a QObject descendant have to be run through moc to
|
||
|
|
produce a .moc file. This .moc file has to be compiled, for which two
|
||
|
|
possibilities exists: compile it separately, or #include it in the C++ file
|
||
|
|
implementing that above mentioned class. The latter is more efficient in term
|
||
|
|
of compilation speed.
|
||
|
|
|
||
|
|
This script searches in the current directory and its subdirs for header files
|
||
|
|
declaring a QObject descendant class. If it finds some, it looks, if there is
|
||
|
|
a C++ file containing an '#include' for the generated .moc file. If thats not
|
||
|
|
the case, it tries to guess into which C++ file that '#include' is placed best
|
||
|
|
(based on the filename). If it fails to guess a proper place, it mentions
|
||
|
|
that.
|
||
|
|
|
||
|
|
On stdout commands are ouput, suitable for a shell, which, when
|
||
|
|
evaluated, add the suggested '#include' at the end of the files.
|
||
|
|
|
||
|
|
On stderr some informational messages are printed.
|
||
|
|
|
||
|
|
=head1 EXAMPLES
|
||
|
|
|
||
|
|
cd kdebase ; includemocs
|
||
|
|
cd kdebase ; `eval includemocs 2> /dev/null`
|
||
|
|
|
||
|
|
=head1 AUTHOR
|
||
|
|
|
||
|
|
Michael Matz <matz@ifh.de>
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|