mirror of
https://review.haiku-os.org/haiku
synced 2025-02-02 03:36:14 +01:00
85 lines
2.0 KiB
Perl
85 lines
2.0 KiB
Perl
|
#!/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;
|
||
|
|
}
|