mirrors/SDL
1
0
Fork 0
mirror of https://github.com/libsdl-org/SDL.git synced 2025-09-07 03:48:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

fnsince.pl: Make fixes now that we've reached ABI lock.

Browse Source 
Turns out history is messy, thank god for Perl.  :)

Fixes #11156.
This commit is contained in:
Ryan C. Gordon
2024-10-10 12:41:46 -04:00
parent 40ff6a2785
commit 0babb284dd
1 changed files with 28 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
build-scripts/fnsince.pl
View File

@@ -13,23 +13,28 @@ foreach (@ARGV) {
chdir(dirname(__FILE__)); chdir(dirname(__FILE__));
chdir('..'); chdir('..');
my %fulltags = ();
my @unsorted_releases = (); my @unsorted_releases = ();
open(PIPEFH, '-|', 'git tag -l') or die "Failed to read git release tags: $!\n"; open(PIPEFH, '-|', 'git tag -l') or die "Failed to read git release tags: $!\n";
while (<PIPEFH>) { while (<PIPEFH>) {
chomp; chomp;
if (/\Arelease\-(.*?)\Z/) { my $fulltag = $_;
if ($fulltag =~ /\A(prerelease|preview|release)\-(\d+)\.(\d+)\.(\d+)\Z/) {
# Ignore anything that isn't a x.y.0 release. # Ignore anything that isn't a x.y.0 release.
# Make sure new APIs are assigned to the next minor version and ignore the patch versions. # Make sure new APIs are assigned to the next minor version and ignore the patch versions, but we'll make an except for the prereleases.
my $ver = $1; my $release_type = $1;
my @versplit = split /\./, $ver; my $major = int($2);
next if (scalar(@versplit) < 1) || ($versplit[0] != 3); # Ignore anything that isn't an SDL3 release. my $minor = int($3);
next if (scalar(@versplit) < 3) || ($versplit[2] != 0); my $patch = int($4);
next if ($major != 3); # Ignore anything that isn't an SDL3 release.
next if ($patch != 0) && ($minor >= 2); # Ignore anything that is a patch release (unless it was between the preview release and the official release).
# Consider this release version. # Consider this release version.
my $ver = "${major}.${minor}.${patch}";
push @unsorted_releases, $ver; push @unsorted_releases, $ver;
$fulltags{$ver} = $fulltag;
} }
} }
close(PIPEFH); close(PIPEFH);
@@ -52,14 +57,21 @@ my @releases = sort {
return 0; # still here? They matched completely?! return 0; # still here? They matched completely?!
} @unsorted_releases; } @unsorted_releases;
my $current_release = 'in-development'; my $current_release = $releases[-1];
my $next_release = '3.0.0'; # valid until we actually ship something. :) my $next_release;
if (scalar(@releases) > 0) { if (scalar(@releases) > 0) {
# this happens to work for how SDL versions things at the moment. # this happens to work for how SDL versions things at the moment.
$current_release = $releases[-1]; $current_release = $releases[-1];
my @current_release_segments = split /\./, $current_release; my @current_release_segments = split /\./, $current_release;
@current_release_segments[1] = '' . ($current_release_segments[1] + 2);
# if we're still in the 3.1.x prereleases, bump x by 1, otherwise, bump minor version by 2.
if (($current_release_segments[0] == '3') && ($current_release_segments[1] == '1')) {
@current_release_segments[2] = '' . (int($current_release_segments[2]) + 1);
} else {
@current_release_segments[1] = '' . (int($current_release_segments[1]) + 2);
}
$next_release = join('.', @current_release_segments); $next_release = join('.', @current_release_segments);
} }
@@ -71,12 +83,16 @@ if (scalar(@releases) > 0) {
#print("NEXT RELEASE: $next_release\n\n"); #print("NEXT RELEASE: $next_release\n\n");
push @releases, 'HEAD'; push @releases, 'HEAD';
$fulltags{'HEAD'} = 'HEAD';
my %funcs = (); my %funcs = ();
foreach my $release (@releases) { foreach my $release (@releases) {
#print("Checking $release...\n"); #print("Checking $release...\n");
my $tag = ($release eq 'HEAD') ? $release : "release-$release"; my $tag = $fulltags{$release};
my $blobname = "$tag:src/dynapi/SDL_dynapi_overrides.h"; my $blobname = "$tag:src/dynapi/SDL_dynapi_overrides.h";
$release = '3.0.0' if $release =~ /\A3\.1\.[0123]/; # hack to make everything up to ABI-lock look like 3.0.0.
open(PIPEFH, '-|', "git show '$blobname'") or die "Failed to read git blob '$blobname': $!\n"; open(PIPEFH, '-|', "git show '$blobname'") or die "Failed to read git blob '$blobname': $!\n";
while (<PIPEFH>) { while (<PIPEFH>) {
chomp; chomp;
@@ -98,6 +114,7 @@ if (not defined $wikipath) {
if (defined $wikipath) { if (defined $wikipath) {
chdir($wikipath); chdir($wikipath);
foreach my $fn (keys %funcs) { foreach my $fn (keys %funcs) {
next if $fn eq 'SDL_ThreadID'; # this was a function early on (it's now called SDL_GetThreadID), but now it's a datatype (which originally had a different capitalization).
my $revision = $funcs{$fn}; my $revision = $funcs{$fn};
$revision = $next_release if $revision eq 'HEAD'; $revision = $next_release if $revision eq 'HEAD';
my $fname = "$fn.md"; my $fname = "$fn.md";