Aren/haiku
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* added perl script to create *.pro files required for using the haiku source

Browse Source 
tree within qt-creator (at least auto-completion and navigation seem to work
  fine)


git-svn-id: file:///srv/svn/repos/haiku/haiku/trunk@35074 a95241bf-73f2-0310-859d-f6bbb57e9c96
This commit is contained in:
Oliver Tappe 2010-01-14 18:04:03 +00:00
parent 7108ab1ff9
commit b55a57da71
1 changed files with 84 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
3rdparty/qtcreator/create_project_files.pl vendored Normal file
View File

@ -0,0 +1,84 @@
#!/usr/bin/perl
use warnings;
use strict;
=head1 create_project_files.pl
This simple script traverses the haiku sources and creates (incomplete) *.pro
files in order to make the haiku sources available within the qt-creator IDE.
=cut
use File::Basename;
use File::Find;
if (!@ARGV) {
die "usage: $0 <haiku-top-path>\n";
}
my $haikuTop = shift @ARGV;
if (!-e "$haikuTop/ReadMe.cross-compile") {
die "'$haikuTop/ReadMe.cross-compile' not found - not a haiku top!\n";
}
my %collection;
print "scanning ...\n";
find({ wanted => \&process, no_chdir => 1},
("$haikuTop/headers", "$haikuTop/src"));
writeProFile("$haikuTop/haiku.pro", { subdirs => ['headers', 'src'] });
foreach my $dir (sort keys %collection) {
my $proFile = $dir.'/'.fileparse($dir).'.pro';
writeProFile($proFile, $collection{$dir});
}
sub process
{
if (substr($_, -4, 4) eq '.svn') {
$File::Find::prune = 1;
} else {
return if $File::Find::dir eq $_; # skip toplevel folders
my $name = (fileparse($_))[0];
if (-d $_) {
$collection{$File::Find::dir}->{subdirs} ||= [];
push @{$collection{$File::Find::dir}->{subdirs}}, $name;
return;
}
elsif ($_ =~ m{\.(h|hpp)$}i) {
$collection{$File::Find::dir}->{headers} ||= [];
push @{$collection{$File::Find::dir}->{headers}}, $name;
}
elsif ($_ =~ m{\.(c|cc|cpp|s|asm)$}i) {
$collection{$File::Find::dir}->{sources} ||= [];
push @{$collection{$File::Find::dir}->{sources}}, $name;
}
}
}
sub writeProFile
{
my ($proFile, $info) = @_;
return if !$info;
print "creating $proFile\n";
open(my $proFileFH, '>', $proFile)
or die "unable to write $proFile";
print $proFileFH "TEMPLATE = subdirs\n";
print $proFileFH "CONFIG += ordered\n";
if (exists $info->{subdirs}) {
print $proFileFH
"SUBDIRS = ".join(" \\\n\t", sort @{$info->{subdirs}})."\n";
}
if (exists $info->{headers}) {
print $proFileFH
"HEADERS = ".join(" \\\n\t", sort @{$info->{headers}})."\n";
}
if (exists $info->{sources}) {
print $proFileFH
"SOURCES = ".join(" \\\n\t", sort @{$info->{sources}})."\n";
}
close $proFileFH;
}