601 lines
21 KiB
Perl
601 lines
21 KiB
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
# Add source files and headers to Xcode and Visual Studio projects.
|
||
|
|
# THIS IS NOT ROBUST, THIS IS JUST RYAN AVOIDING RUNNING BETWEEN
|
||
|
|
# THREE COMPUTERS AND A BUNCH OF DEVELOPMENT ENVIRONMENTS TO ADD
|
||
|
|
# A STUPID FILE TO THE BUILD.
|
||
|
|
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
|
||
|
|
my %xcode_references = ();
|
||
|
|
sub generate_xcode_id {
|
||
|
|
my @chars = ('0'..'9', 'A'..'F');
|
||
|
|
my $str;
|
||
|
|
|
||
|
|
do {
|
||
|
|
my $len = 16;
|
||
|
|
$str = '0000'; # start and end with '0000' so we know we added it.
|
||
|
|
while ($len--) {
|
||
|
|
$str .= $chars[rand @chars]
|
||
|
|
};
|
||
|
|
$str .= '0000'; # start and end with '0000' so we know we added it.
|
||
|
|
} while (defined($xcode_references{$str}));
|
||
|
|
|
||
|
|
$xcode_references{$str} = 1; # so future calls can't generate this one.
|
||
|
|
|
||
|
|
return $str;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub process_xcode {
|
||
|
|
my $addpath = shift;
|
||
|
|
my $pbxprojfname = shift;
|
||
|
|
my $lineno;
|
||
|
|
|
||
|
|
%xcode_references = ();
|
||
|
|
|
||
|
|
my $addfname = basename($addpath);
|
||
|
|
my $addext = '';
|
||
|
|
if ($addfname =~ /\.(.*?)\Z/) {
|
||
|
|
$addext = $1;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $is_public_header = ($addpath =~ /\Ainclude\/SDL3\//) ? 1 : 0;
|
||
|
|
my $filerefpath = $is_public_header ? "SDL3/$addfname" : $addfname;
|
||
|
|
|
||
|
|
my $srcs_or_headers = '';
|
||
|
|
my $addfiletype = '';
|
||
|
|
|
||
|
|
if ($addext eq 'c') {
|
||
|
|
$srcs_or_headers = 'Sources';
|
||
|
|
$addfiletype = 'sourcecode.c.c';
|
||
|
|
} elsif ($addext eq 'm') {
|
||
|
|
$srcs_or_headers = 'Sources';
|
||
|
|
$addfiletype = 'sourcecode.c.objc';
|
||
|
|
} elsif ($addext eq 'h') {
|
||
|
|
$srcs_or_headers = 'Headers';
|
||
|
|
$addfiletype = 'sourcecode.c.h';
|
||
|
|
} else {
|
||
|
|
die("Unexpected file extension '$addext'\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
my $fh;
|
||
|
|
|
||
|
|
open $fh, '<', $pbxprojfname or die("Failed to open '$pbxprojfname': $!\n");
|
||
|
|
chomp(my @pbxproj = <$fh>);
|
||
|
|
close($fh);
|
||
|
|
|
||
|
|
# build a table of all ids, in case we duplicate one by some miracle.
|
||
|
|
$lineno = 0;
|
||
|
|
foreach (@pbxproj) {
|
||
|
|
$lineno++;
|
||
|
|
|
||
|
|
# like "F3676F582A7885080091160D /* SDL3.dmg */ = {"
|
||
|
|
if (/\A\t\t([A-F0-9]{24}) \/\* (.*?) \*\/ \= \{\Z/) {
|
||
|
|
$xcode_references{$1} = $2;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# build out of a tree of PBXGroup items.
|
||
|
|
my %pbxgroups = ();
|
||
|
|
my $thispbxgroup;
|
||
|
|
my $pbxgroup_children;
|
||
|
|
my $pbxgroup_state = 0;
|
||
|
|
my $pubheaders_group_hash = '';
|
||
|
|
my $libsrc_group_hash = '';
|
||
|
|
$lineno = 0;
|
||
|
|
foreach (@pbxproj) {
|
||
|
|
$lineno++;
|
||
|
|
if ($pbxgroup_state == 0) {
|
||
|
|
$pbxgroup_state++ if /\A\/\* Begin PBXGroup section \*\/\Z/;
|
||
|
|
} elsif ($pbxgroup_state == 1) {
|
||
|
|
# like "F3676F582A7885080091160D /* SDL3.dmg */ = {"
|
||
|
|
if (/\A\t\t([A-F0-9]{24}) \/\* (.*?) \*\/ \= \{\Z/) {
|
||
|
|
my %newhash = ();
|
||
|
|
$pbxgroups{$1} = \%newhash;
|
||
|
|
$thispbxgroup = \%newhash;
|
||
|
|
$pubheaders_group_hash = $1 if $2 eq 'Public Headers';
|
||
|
|
$libsrc_group_hash = $1 if $2 eq 'Library Source';
|
||
|
|
$pbxgroup_state++;
|
||
|
|
} elsif (/\A\/\* End PBXGroup section \*\/\Z/) {
|
||
|
|
last;
|
||
|
|
} else {
|
||
|
|
die("Expected pbxgroup obj on '$pbxprojfname' line $lineno\n");
|
||
|
|
}
|
||
|
|
} elsif ($pbxgroup_state == 2) {
|
||
|
|
if (/\A\t\t\tisa \= PBXGroup;\Z/) {
|
||
|
|
$pbxgroup_state++;
|
||
|
|
} else {
|
||
|
|
die("Expected pbxgroup obj's isa field on '$pbxprojfname' line $lineno\n");
|
||
|
|
}
|
||
|
|
} elsif ($pbxgroup_state == 3) {
|
||
|
|
if (/\A\t\t\tchildren \= \(\Z/) {
|
||
|
|
my %newhash = ();
|
||
|
|
$$thispbxgroup{'children'} = \%newhash;
|
||
|
|
$pbxgroup_children = \%newhash;
|
||
|
|
$pbxgroup_state++;
|
||
|
|
} else {
|
||
|
|
die("Expected pbxgroup obj's children field on '$pbxprojfname' line $lineno\n");
|
||
|
|
}
|
||
|
|
} elsif ($pbxgroup_state == 4) {
|
||
|
|
if (/\A\t\t\t\t([A-F0-9]{24}) \/\* (.*?) \*\/,\Z/) {
|
||
|
|
$$pbxgroup_children{$1} = $2;
|
||
|
|
} elsif (/\A\t\t\t\);\Z/) {
|
||
|
|
$pbxgroup_state++;
|
||
|
|
} else {
|
||
|
|
die("Expected pbxgroup obj's children element on '$pbxprojfname' line $lineno\n");
|
||
|
|
}
|
||
|
|
} elsif ($pbxgroup_state == 5) {
|
||
|
|
if (/\A\t\t\t(.*?) \= (.*?);\Z/) {
|
||
|
|
$$thispbxgroup{$1} = $2;
|
||
|
|
} elsif (/\A\t\t\};\Z/) {
|
||
|
|
$pbxgroup_state = 1;
|
||
|
|
} else {
|
||
|
|
die("Expected pbxgroup obj field on '$pbxprojfname' line $lineno\n");
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
die("bug in this script.");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
die("Didn't see PBXGroup section in '$pbxprojfname'. Bug?\n") if $pbxgroup_state == 0;
|
||
|
|
die("Didn't see Public Headers PBXGroup in '$pbxprojfname'. Bug?\n") if $pubheaders_group_hash eq '';
|
||
|
|
die("Didn't see Library Source PBXGroup in '$pbxprojfname'. Bug?\n") if $libsrc_group_hash eq '';
|
||
|
|
|
||
|
|
# Some debug log dumping...
|
||
|
|
if (0) {
|
||
|
|
foreach (keys %pbxgroups) {
|
||
|
|
my $k = $_;
|
||
|
|
my $g = $pbxgroups{$k};
|
||
|
|
print("$_:\n");
|
||
|
|
foreach (keys %$g) {
|
||
|
|
print(" $_:\n");
|
||
|
|
if ($_ eq 'children') {
|
||
|
|
my $kids = $$g{$_};
|
||
|
|
foreach (keys %$kids) {
|
||
|
|
print(" $_ -> " . $$kids{$_} . "\n");
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
print(' ' . $$g{$_} . "\n");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
print("\n");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Get some unique IDs for our new thing.
|
||
|
|
my $fileref = generate_xcode_id();
|
||
|
|
my $buildfileref = generate_xcode_id();
|
||
|
|
|
||
|
|
|
||
|
|
# Figure out what group to insert this into (or what groups to make)
|
||
|
|
my $add_to_group_fileref = $fileref;
|
||
|
|
my $add_to_group_addfname = $addfname;
|
||
|
|
my $newgrptext = '';
|
||
|
|
my $grphash = '';
|
||
|
|
if ($is_public_header) {
|
||
|
|
$grphash = $pubheaders_group_hash; # done!
|
||
|
|
} else {
|
||
|
|
$grphash = $libsrc_group_hash;
|
||
|
|
my @splitpath = split(/\//, dirname($addpath));
|
||
|
|
if ($splitpath[0] eq 'src') {
|
||
|
|
shift @splitpath;
|
||
|
|
}
|
||
|
|
while (my $elem = shift(@splitpath)) {
|
||
|
|
my $g = $pbxgroups{$grphash};
|
||
|
|
my $kids = $$g{'children'};
|
||
|
|
my $found = 0;
|
||
|
|
foreach (keys %$kids) {
|
||
|
|
my $hash = $_;
|
||
|
|
my $fname = $$kids{$hash};
|
||
|
|
if (uc($fname) eq uc($elem)) {
|
||
|
|
$grphash = $hash;
|
||
|
|
$found = 1;
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
unshift(@splitpath, $elem), last if (not $found);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (@splitpath) { # still elements? We need to build groups.
|
||
|
|
my $newgroupref = generate_xcode_id();
|
||
|
|
|
||
|
|
$add_to_group_fileref = $newgroupref;
|
||
|
|
$add_to_group_addfname = $splitpath[0];
|
||
|
|
|
||
|
|
while (my $elem = shift(@splitpath)) {
|
||
|
|
my $lastelem = @splitpath ? 0 : 1;
|
||
|
|
my $childhash = $lastelem ? $fileref : generate_xcode_id();
|
||
|
|
my $childpath = $lastelem ? $addfname : $splitpath[0];
|
||
|
|
$newgrptext .= "\t\t$newgroupref /* $elem */ = {\n";
|
||
|
|
$newgrptext .= "\t\t\tisa = PBXGroup;\n";
|
||
|
|
$newgrptext .= "\t\t\tchildren = (\n";
|
||
|
|
$newgrptext .= "\t\t\t\t$childhash /* $childpath */,\n";
|
||
|
|
$newgrptext .= "\t\t\t);\n";
|
||
|
|
$newgrptext .= "\t\t\tpath = $elem;\n";
|
||
|
|
$newgrptext .= "\t\t\tsourceTree = \"<group>\";\n";
|
||
|
|
$newgrptext .= "\t\t};\n";
|
||
|
|
$newgroupref = $childhash;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
my $tmpfname = "$pbxprojfname.tmp";
|
||
|
|
open $fh, '>', $tmpfname or die("Failed to open '$tmpfname': $!\n");
|
||
|
|
|
||
|
|
my $add_to_this_group = 0;
|
||
|
|
$pbxgroup_state = 0;
|
||
|
|
$lineno = 0;
|
||
|
|
foreach (@pbxproj) {
|
||
|
|
$lineno++;
|
||
|
|
if ($pbxgroup_state == 0) {
|
||
|
|
# Drop in new references at the end of their sections...
|
||
|
|
if (/\A\/\* End PBXBuildFile section \*\/\Z/) {
|
||
|
|
print $fh "\t\t$buildfileref /* $addfname in $srcs_or_headers */ = {isa = PBXBuildFile; fileRef = $fileref /* $addfname */;";
|
||
|
|
if ($is_public_header) {
|
||
|
|
print $fh " settings = {ATTRIBUTES = (Public, ); };";
|
||
|
|
}
|
||
|
|
print $fh " };\n";
|
||
|
|
} elsif (/\A\/\* End PBXFileReference section \*\/\Z/) {
|
||
|
|
print $fh "\t\t$fileref /* $addfname */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = $addfiletype; name = $addfname; path = $filerefpath; sourceTree = \"<group>\"; };\n";
|
||
|
|
} elsif (/\A\/\* Begin PBXGroup section \*\/\Z/) {
|
||
|
|
$pbxgroup_state = 1;
|
||
|
|
} elsif (/\A\/\* Begin PBXSourcesBuildPhase section \*\/\Z/) {
|
||
|
|
$pbxgroup_state = 5;
|
||
|
|
}
|
||
|
|
} elsif ($pbxgroup_state == 1) {
|
||
|
|
if (/\A\t\t([A-F0-9]{24}) \/\* (.*?) \*\/ \= \{\Z/) {
|
||
|
|
$pbxgroup_state++;
|
||
|
|
$add_to_this_group = $1 eq $grphash;
|
||
|
|
} elsif (/\A\/\* End PBXGroup section \*\/\Z/) {
|
||
|
|
print $fh $newgrptext;
|
||
|
|
$pbxgroup_state = 0;
|
||
|
|
}
|
||
|
|
} elsif ($pbxgroup_state == 2) {
|
||
|
|
if (/\A\t\t\tchildren \= \(\Z/) {
|
||
|
|
$pbxgroup_state++;
|
||
|
|
}
|
||
|
|
} elsif ($pbxgroup_state == 3) {
|
||
|
|
if (/\A\t\t\t\);\Z/) {
|
||
|
|
if ($add_to_this_group) {
|
||
|
|
print $fh "\t\t\t\t$add_to_group_fileref /* $add_to_group_addfname */,\n";
|
||
|
|
}
|
||
|
|
$pbxgroup_state++;
|
||
|
|
}
|
||
|
|
} elsif ($pbxgroup_state == 4) {
|
||
|
|
if (/\A\t\t\};\Z/) {
|
||
|
|
$add_to_this_group = 0;
|
||
|
|
}
|
||
|
|
$pbxgroup_state = 1;
|
||
|
|
} elsif ($pbxgroup_state == 5) {
|
||
|
|
if (/\A\t\t\t\);\Z/) {
|
||
|
|
if ($srcs_or_headers eq 'Sources') {
|
||
|
|
print $fh "\t\t\t\t$buildfileref /* $addfname in $srcs_or_headers */,\n";
|
||
|
|
}
|
||
|
|
$pbxgroup_state = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print $fh "$_\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
close($fh);
|
||
|
|
rename($tmpfname, $pbxprojfname);
|
||
|
|
}
|
||
|
|
|
||
|
|
my %visualc_references = ();
|
||
|
|
sub generate_visualc_id { # these are just standard Windows GUIDs.
|
||
|
|
my @chars = ('0'..'9', 'a'..'f');
|
||
|
|
my $str;
|
||
|
|
|
||
|
|
do {
|
||
|
|
my $len = 24;
|
||
|
|
$str = '0000'; # start and end with '0000' so we know we added it.
|
||
|
|
while ($len--) {
|
||
|
|
$str .= $chars[rand @chars]
|
||
|
|
};
|
||
|
|
$str .= '0000'; # start and end with '0000' so we know we added it.
|
||
|
|
$str =~ s/\A(........)(....)(....)(............)\Z/$1-$2-$3-$4/; # add dashes in the appropriate places.
|
||
|
|
} while (defined($visualc_references{$str}));
|
||
|
|
|
||
|
|
$visualc_references{$str} = 1; # so future calls can't generate this one.
|
||
|
|
|
||
|
|
return $str;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub process_visualstudio {
|
||
|
|
my $addpath = shift;
|
||
|
|
my $vcxprojfname = shift;
|
||
|
|
my $lineno;
|
||
|
|
|
||
|
|
%visualc_references = ();
|
||
|
|
|
||
|
|
my $is_public_header = ($addpath =~ /\Ainclude\/SDL3\//) ? 1 : 0;
|
||
|
|
|
||
|
|
my $addfname = basename($addpath);
|
||
|
|
my $addext = '';
|
||
|
|
if ($addfname =~ /\.(.*?)\Z/) {
|
||
|
|
$addext = $1;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $isheader = 0;
|
||
|
|
if ($addext eq 'c') {
|
||
|
|
$isheader = 0;
|
||
|
|
} elsif ($addext eq 'm') {
|
||
|
|
return; # don't add Objective-C files to Visual Studio projects!
|
||
|
|
} elsif ($addext eq 'h') {
|
||
|
|
$isheader = 1;
|
||
|
|
} else {
|
||
|
|
die("Unexpected file extension '$addext'\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
my $fh;
|
||
|
|
|
||
|
|
open $fh, '<', $vcxprojfname or die("Failed to open '$vcxprojfname': $!\n");
|
||
|
|
chomp(my @vcxproj = <$fh>);
|
||
|
|
close($fh);
|
||
|
|
|
||
|
|
my $vcxgroup_state;
|
||
|
|
|
||
|
|
my $rawaddvcxpath = "$addpath";
|
||
|
|
$rawaddvcxpath =~ s/\//\\/g;
|
||
|
|
|
||
|
|
# Figure out relative path from vcxproj file...
|
||
|
|
my $addvcxpath = '';
|
||
|
|
my @subdirs = split(/\//, $vcxprojfname);
|
||
|
|
pop @subdirs;
|
||
|
|
foreach (@subdirs) {
|
||
|
|
$addvcxpath .= "..\\";
|
||
|
|
}
|
||
|
|
$addvcxpath .= $rawaddvcxpath;
|
||
|
|
|
||
|
|
my $prevname = undef;
|
||
|
|
|
||
|
|
my $tmpfname;
|
||
|
|
|
||
|
|
$tmpfname = "$vcxprojfname.tmp";
|
||
|
|
open $fh, '>', $tmpfname or die("Failed to open '$tmpfname': $!\n");
|
||
|
|
|
||
|
|
my $added = 0;
|
||
|
|
|
||
|
|
$added = 0;
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
$prevname = undef;
|
||
|
|
$lineno = 0;
|
||
|
|
foreach (@vcxproj) {
|
||
|
|
$lineno++;
|
||
|
|
if ($vcxgroup_state == 0) {
|
||
|
|
if (/\A \<ItemGroup\>\Z/) {
|
||
|
|
$vcxgroup_state = 1;
|
||
|
|
$prevname = undef;
|
||
|
|
}
|
||
|
|
} elsif ($vcxgroup_state == 1) {
|
||
|
|
if (/\A \<ClInclude .*\Z/) {
|
||
|
|
$vcxgroup_state = 2 if $isheader;
|
||
|
|
} elsif (/\A \<ClCompile .*\Z/) {
|
||
|
|
$vcxgroup_state = 3 if not $isheader;
|
||
|
|
} elsif (/\A \<\/ItemGroup\>\Z/) {
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
$prevname = undef;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Don't do elsif, we need to check this line again.
|
||
|
|
if ($vcxgroup_state == 2) {
|
||
|
|
if (/\A <ClInclude Include="(.*?)" \/\>\Z/) {
|
||
|
|
my $nextname = $1;
|
||
|
|
if ((not $added) && (((not defined $prevname) || (uc($prevname) lt uc($addvcxpath))) && (uc($nextname) gt uc($addvcxpath)))) {
|
||
|
|
print $fh " <ClInclude Include=\"$addvcxpath\" />\n";
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
$added = 1;
|
||
|
|
}
|
||
|
|
$prevname = $nextname;
|
||
|
|
} elsif (/\A \<\/ItemGroup\>\Z/) {
|
||
|
|
if ((not $added) && ((not defined $prevname) || (uc($prevname) lt uc($addvcxpath)))) {
|
||
|
|
print $fh " <ClInclude Include=\"$addvcxpath\" />\n";
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
$added = 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elsif ($vcxgroup_state == 3) {
|
||
|
|
if (/\A <ClCompile Include="(.*?)" \/\>\Z/) {
|
||
|
|
my $nextname = $1;
|
||
|
|
if ((not $added) && (((not defined $prevname) || (uc($prevname) lt uc($addvcxpath))) && (uc($nextname) gt uc($addvcxpath)))) {
|
||
|
|
print $fh " <ClCompile Include=\"$addvcxpath\" />\n";
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
$added = 1;
|
||
|
|
}
|
||
|
|
$prevname = $nextname;
|
||
|
|
} elsif (/\A \<\/ItemGroup\>\Z/) {
|
||
|
|
if ((not $added) && ((not defined $prevname) || (uc($prevname) lt uc($addvcxpath)))) {
|
||
|
|
print $fh " <ClCompile Include=\"$addvcxpath\" />\n";
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
$added = 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print $fh "$_\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
close($fh);
|
||
|
|
rename($tmpfname, $vcxprojfname);
|
||
|
|
|
||
|
|
my $vcxfiltersfname = "$vcxprojfname.filters";
|
||
|
|
open $fh, '<', $vcxfiltersfname or die("Failed to open '$vcxfiltersfname': $!\n");
|
||
|
|
chomp(my @vcxfilters = <$fh>);
|
||
|
|
close($fh);
|
||
|
|
|
||
|
|
my $newgrptext = '';
|
||
|
|
my $filter = '';
|
||
|
|
if ($is_public_header) {
|
||
|
|
$filter = 'API Headers';
|
||
|
|
} else {
|
||
|
|
$filter = lc(dirname($addpath));
|
||
|
|
$filter =~ s/\Asrc\///; # there's no filter for the base "src/" dir, where SDL.c and friends live.
|
||
|
|
$filter =~ s/\//\\/g;
|
||
|
|
$filter = '' if $filter eq 'src';
|
||
|
|
|
||
|
|
if ($filter ne '') {
|
||
|
|
# see if the filter already exists, otherwise add it.
|
||
|
|
my %existing_filters = ();
|
||
|
|
my $current_filter = '';
|
||
|
|
my $found = 0;
|
||
|
|
foreach (@vcxfilters) {
|
||
|
|
# These lines happen to be unique, so we don't have to parse down to find this section.
|
||
|
|
if (/\A \<Filter Include\="(.*?)"\>\Z/) {
|
||
|
|
$current_filter = lc($1);
|
||
|
|
if ($current_filter eq $filter) {
|
||
|
|
$found = 1;
|
||
|
|
}
|
||
|
|
} elsif (/\A \<UniqueIdentifier\>\{(.*?)\}\<\/UniqueIdentifier\>\Z/) {
|
||
|
|
$visualc_references{$1} = $current_filter; # gather up existing GUIDs to avoid duplicates.
|
||
|
|
$existing_filters{$current_filter} = $1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (not $found) { # didn't find it? We need to build filters.
|
||
|
|
my $subpath = '';
|
||
|
|
my @splitpath = split(/\\/, $filter);
|
||
|
|
while (my $elem = shift(@splitpath)) {
|
||
|
|
$subpath .= "\\" if ($subpath ne '');
|
||
|
|
$subpath .= $elem;
|
||
|
|
if (not $existing_filters{$subpath}) {
|
||
|
|
my $newgroupref = generate_visualc_id();
|
||
|
|
$newgrptext .= " <Filter Include=\"$subpath\">\n";
|
||
|
|
$newgrptext .= " <UniqueIdentifier>{$newgroupref}</UniqueIdentifier>\n";
|
||
|
|
$newgrptext .= " </Filter>\n"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$tmpfname = "$vcxfiltersfname.tmp";
|
||
|
|
open $fh, '>', $tmpfname or die("Failed to open '$tmpfname': $!\n");
|
||
|
|
|
||
|
|
$added = 0;
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
$prevname = undef;
|
||
|
|
$lineno = 0;
|
||
|
|
foreach (@vcxfilters) {
|
||
|
|
$lineno++;
|
||
|
|
|
||
|
|
# We cheat here, because these lines are unique, we don't have to fully parse this file.
|
||
|
|
if ($vcxgroup_state == 0) {
|
||
|
|
if (/\A \<Filter Include\="(.*?)"\>\Z/) {
|
||
|
|
if ($newgrptext ne '') {
|
||
|
|
$vcxgroup_state = 1;
|
||
|
|
$prevname = undef;
|
||
|
|
}
|
||
|
|
} elsif (/\A \<ClInclude .*\Z/) {
|
||
|
|
if ($isheader) {
|
||
|
|
$vcxgroup_state = 2;
|
||
|
|
$prevname = undef;
|
||
|
|
}
|
||
|
|
} elsif (/\A \<ClCompile .*\Z/) {
|
||
|
|
if (not $isheader) {
|
||
|
|
$vcxgroup_state = 3;
|
||
|
|
$prevname = undef;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Don't do elsif, we need to check this line again.
|
||
|
|
if ($vcxgroup_state == 1) {
|
||
|
|
if (/\A \<\/ItemGroup\>\Z/) {
|
||
|
|
print $fh $newgrptext;
|
||
|
|
$newgrptext = '';
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
}
|
||
|
|
} elsif ($vcxgroup_state == 2) {
|
||
|
|
if (/\A <ClInclude Include="(.*?)"/) {
|
||
|
|
my $nextname = $1;
|
||
|
|
if ((not $added) && (((not defined $prevname) || (uc($prevname) lt uc($addvcxpath))) && (uc($nextname) gt uc($addvcxpath)))) {
|
||
|
|
print $fh " <ClInclude Include=\"$addvcxpath\"";
|
||
|
|
if ($filter ne '') {
|
||
|
|
print $fh ">\n";
|
||
|
|
print $fh " <Filter>$filter</Filter>\n";
|
||
|
|
print $fh " </ClInclude>\n";
|
||
|
|
} else {
|
||
|
|
print $fh " />\n";
|
||
|
|
}
|
||
|
|
$added = 1;
|
||
|
|
}
|
||
|
|
$prevname = $nextname;
|
||
|
|
} elsif (/\A \<\/ItemGroup\>\Z/) {
|
||
|
|
if ((not $added) && ((not defined $prevname) || (uc($prevname) lt uc($addvcxpath)))) {
|
||
|
|
print $fh " <ClInclude Include=\"$addvcxpath\"";
|
||
|
|
if ($filter ne '') {
|
||
|
|
print $fh ">\n";
|
||
|
|
print $fh " <Filter>$filter</Filter>\n";
|
||
|
|
print $fh " </ClInclude>\n";
|
||
|
|
} else {
|
||
|
|
print $fh " />\n";
|
||
|
|
}
|
||
|
|
$added = 1;
|
||
|
|
}
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
}
|
||
|
|
} elsif ($vcxgroup_state == 3) {
|
||
|
|
if (/\A <ClCompile Include="(.*?)"/) {
|
||
|
|
my $nextname = $1;
|
||
|
|
if ((not $added) && (((not defined $prevname) || (uc($prevname) lt uc($addvcxpath))) && (uc($nextname) gt uc($addvcxpath)))) {
|
||
|
|
print $fh " <ClCompile Include=\"$addvcxpath\"";
|
||
|
|
if ($filter ne '') {
|
||
|
|
print $fh ">\n";
|
||
|
|
print $fh " <Filter>$filter</Filter>\n";
|
||
|
|
print $fh " </ClCompile>\n";
|
||
|
|
} else {
|
||
|
|
print $fh " />\n";
|
||
|
|
}
|
||
|
|
$added = 1;
|
||
|
|
}
|
||
|
|
$prevname = $nextname;
|
||
|
|
} elsif (/\A \<\/ItemGroup\>\Z/) {
|
||
|
|
if ((not $added) && ((not defined $prevname) || (uc($prevname) lt uc($addvcxpath)))) {
|
||
|
|
print $fh " <ClCompile Include=\"$addvcxpath\"";
|
||
|
|
if ($filter ne '') {
|
||
|
|
print $fh ">\n";
|
||
|
|
print $fh " <Filter>$filter</Filter>\n";
|
||
|
|
print $fh " </ClCompile>\n";
|
||
|
|
} else {
|
||
|
|
print $fh " />\n";
|
||
|
|
}
|
||
|
|
$added = 1;
|
||
|
|
}
|
||
|
|
$vcxgroup_state = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print $fh "$_\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
close($fh);
|
||
|
|
rename($tmpfname, $vcxfiltersfname);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
# Mainline!
|
||
|
|
|
||
|
|
chdir(dirname($0)); # assumed to be in build-scripts
|
||
|
|
chdir('..'); # head to root of source tree.
|
||
|
|
|
||
|
|
foreach (@ARGV) {
|
||
|
|
s/\A\.\///; # Turn "./path/to/file.txt" into "path/to/file.txt"
|
||
|
|
my $arg = $_;
|
||
|
|
process_xcode($arg, 'Xcode/SDL/SDL.xcodeproj/project.pbxproj');
|
||
|
|
process_visualstudio($arg, 'VisualC/SDL/SDL.vcxproj');
|
||
|
|
process_visualstudio($arg, 'VisualC-GDK/SDL/SDL.vcxproj');
|
||
|
|
process_visualstudio($arg, 'VisualC-WinRT/SDL-UWP.vcxproj');
|
||
|
|
}
|
||
|
|
|
||
|
|
print("Done. Please run `git diff` and make sure this looks okay!\n");
|
||
|
|
|
||
|
|
exit(0);
|
||
|
|
|