Jip J. Dekker
981be2067e
git-subtree-dir: software/gecode_on_replay git-subtree-split: 8051d92b9c89e49cccfbd1c201371580d7703ab4
145 lines
3.3 KiB
Perl
145 lines
3.3 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use File::Basename;
|
|
|
|
print <<EOF
|
|
// !\$*UTF8*\$!
|
|
{
|
|
archiveVersion = 1;
|
|
classes = {};
|
|
objectVersion = 44;
|
|
objects = {
|
|
|
|
/* Begin PBXFileReference section */
|
|
EOF
|
|
;
|
|
|
|
%files = ();
|
|
%sourceTree = ();
|
|
%headerTree = ();
|
|
|
|
findFiles("h","sourcecode.c.h");
|
|
findFiles("c","sourcecode.c.c");
|
|
findFiles("hpp","sourcecode.cpp.h");
|
|
findFiles("hh","sourcecode.cpp.h");
|
|
findFiles("cpp","sourcecode.cpp.cpp");
|
|
|
|
foreach my $k (keys %files) {
|
|
my $relpath = $k;
|
|
$relpath =~ s/\.\/(.*)/\1/;
|
|
print " ".$files{$k}[0]." /* ".$files{$k}[1]." */ = ";
|
|
print "{isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = ";
|
|
print $files{$k}[2]."; path =\"".$files{$k}[1];
|
|
print "\"; sourceTree = \"<group>\"; };\n"
|
|
}
|
|
|
|
print "/* End PBXFileReference section */\n\n";
|
|
print "/* Begin PBXGroup section */\n";
|
|
|
|
my $sourcesUID = uid();
|
|
printGroup("Sources",$sourcesUID,\%sourceTree,"./");
|
|
|
|
my $headersUID = uid();
|
|
printGroup("Headers",$headersUID,\%headerTree,"./");
|
|
|
|
my $mainUID = uid();
|
|
|
|
print <<EOF
|
|
$mainUID = {
|
|
isa = PBXGroup;
|
|
children = (
|
|
$sourcesUID /* Sources */,
|
|
$headersUID /* Headers */,
|
|
);
|
|
sourceTree = "<group>";
|
|
};
|
|
EOF
|
|
;
|
|
|
|
my $rootUID = uid();
|
|
|
|
print "/* End PBXGroup section */\n";
|
|
print "/* Begin PBXProject section */\n";
|
|
print " ".$rootUID." /* Project object */ = {\n";
|
|
print " isa = PBXProject;\n";
|
|
print " compatibilityVersion = \"XCode 2.4\";\n";
|
|
print " mainGroup = ".$mainUID." /* Gecode */;\n";
|
|
print " projectDirPath = \"\";\n";
|
|
print " projectRoot = \"\";\n";
|
|
print " };\n";
|
|
print "/* End PBXProject section */\n";
|
|
print " };\n";
|
|
print " rootObject = ".$rootUID." /* Project object */;\n";
|
|
print "}\n";
|
|
|
|
sub findFiles {
|
|
my $extension = $_[0];
|
|
my $type = $_[1];
|
|
my $find = "find . -name '*.".$extension."' -type f |";
|
|
open (F, $find);
|
|
while (my $f = <F>) {
|
|
chomp($f);
|
|
my ($filename, $dummydir, $suffix) = fileparse($f);
|
|
|
|
my @dirs = split(/\//,$f);
|
|
shift(@dirs);
|
|
pop(@dirs);
|
|
|
|
my $treeP;
|
|
if ($type =~ m/sourcecode\..*\.h/) {
|
|
$treeP = \%headerTree;
|
|
} else {
|
|
$treeP = \%sourceTree;
|
|
}
|
|
foreach my $d (@dirs) {
|
|
if (not exists $treeP->{$d}) {
|
|
my %subTree = ();
|
|
my @child = (uid(), \%subTree);
|
|
$treeP->{$d} = [@child];
|
|
}
|
|
$treeP = $treeP->{$d}[1];
|
|
}
|
|
$treeP->{$filename} = "";
|
|
my @r = (uid(), $filename, $type);
|
|
$files{$f} = [@r];
|
|
}
|
|
close (F);
|
|
}
|
|
|
|
sub uid {
|
|
my $uid = `uuidgen`;
|
|
$uid =~ /[A-Z0-9]+-([A-Z0-9]+)-([A-Z0-9]+)-([A-Z0-9]+)-([A-Z0-9]+)/;
|
|
return $1.$2.$3.$4;
|
|
}
|
|
|
|
sub printGroup {
|
|
my $g = $_[0];
|
|
my $id = $_[1];
|
|
my $treeP = $_[2];
|
|
my $path = $_[3];
|
|
print " ".$id. " /* ".$g." */ = {\n";
|
|
print " isa = PBXGroup;\n";
|
|
print " children = (\n";
|
|
foreach my $k (sort keys %{$treeP}) {
|
|
if (exists $treeP->{$k}[0]) {
|
|
print " ".$treeP->{$k}[0]." /* ".$k." */,\n";
|
|
} else {
|
|
print " ".$files{$path.$k}[0]." /* ".$k." */,\n";
|
|
}
|
|
}
|
|
print " );\n";
|
|
if ($path eq "./") {
|
|
print " path = \".\";\n";
|
|
print " name = \"$g\";\n";
|
|
} else {
|
|
print " path = \"$g\";\n";
|
|
}
|
|
print " sourceTree = \"<group>\";\n };\n";
|
|
foreach my $k (keys %{$treeP}) {
|
|
if (exists $treeP->{$k}[0]) {
|
|
printGroup($k, $treeP->{$k}[0], $treeP->{$k}[1],
|
|
$path.$k."/");
|
|
}
|
|
}
|
|
}
|