mirror of
https://github.com/open-goal/jak-project
synced 2026-06-28 11:11:00 -04:00
Tyler Wilding
1f6438e517
This PR updates to SDL3, and with it, adds a handful of new features. Everything seems to work but I'm going to look over the code once last time before merging, some of the API changes are hard to spot. Fixes #2773 ### Pressure sensitivity support for DS3 Controllers SDL3 adds pressure sensitivity support for DS3 controllers on windows. I have not tested on linux. The option is disabled by default. On windows you will need https://docs.nefarius.at/projects/DsHidMini/ and to be using SXS mode. ### DualSense and Xbox One Trigger Effects If enabled, Jak 2 will have certain trigger effects. They are: - xbox1: - small vibrate when collecting dark eco - big vibrate when changing to dark jak - vibrate when shooting gun, proportional to gun type - ps5: - resistance when changing to dark jak - different gun shooting effects - red (resistance) - yellow (weapon trigger) - blue (vibrates) - purple (less resistance) > **Gun Shooting effects are only enabled if the new "Swap R1 and R2" option is enabled** There are more effects that could be used in `dualsense_effects.cpp`, but I only exposed the ones I needed to OpenGOAL. If a modder wants to use some of the others and wires them up end-to-end, please consider contributing that upstream. ### New ImGUI Menu Added new imgui options for selecting the active controller, for those people that struggle to select the initial controller.  ### Testing The highlights of what I tested successfully: - display - [x] all mode switch permutations - [x] launch with all modes saved - [x] switch monitors / unplug monitor that was active, how does it handle it - [x] load with alternate monitor saved and all modes - [x] allowing hidpi doesnt break macos - controls - [x] keyboard and mouse still work - [x] pressure sensitivity on linux
600 lines
21 KiB
Perl
Vendored
Generated
600 lines
21 KiB
Perl
Vendored
Generated
#!/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');
|
|
}
|
|
|
|
print("Done. Please run `git diff` and make sure this looks okay!\n");
|
|
|
|
exit(0);
|
|
|