From 30f41c02aec763d32e62351452da9ef582bc3472 Mon Sep 17 00:00:00 2001 From: 3gg <3gg@shellblade.net> Date: Fri, 6 Mar 2026 13:30:59 -0800 Subject: Move contrib libraries to contrib repo --- contrib/SDL-3.2.8/build-scripts/fnsince.pl | 169 ----------------------------- 1 file changed, 169 deletions(-) delete mode 100755 contrib/SDL-3.2.8/build-scripts/fnsince.pl (limited to 'contrib/SDL-3.2.8/build-scripts/fnsince.pl') diff --git a/contrib/SDL-3.2.8/build-scripts/fnsince.pl b/contrib/SDL-3.2.8/build-scripts/fnsince.pl deleted file mode 100755 index 9d987fc..0000000 --- a/contrib/SDL-3.2.8/build-scripts/fnsince.pl +++ /dev/null @@ -1,169 +0,0 @@ -#!/usr/bin/perl -w - -use warnings; -use strict; -use File::Basename; -use Cwd qw(abs_path); - -my $wikipath = undef; -foreach (@ARGV) { - $wikipath = abs_path($_), next if not defined $wikipath; -} - -chdir(dirname(__FILE__)); -chdir('..'); - -my %fulltags = (); -my @unsorted_releases = (); -open(PIPEFH, '-|', 'git tag -l') or die "Failed to read git release tags: $!\n"; - -while () { - chomp; - my $fulltag = $_; - if ($fulltag =~ /\A(prerelease|preview|release)\-(\d+)\.(\d+)\.(\d+)\Z/) { - # 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, but we'll make an except for the prereleases. - my $release_type = $1; - my $major = int($2); - my $minor = int($3); - 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. - my $ver = "${major}.${minor}.${patch}"; - push @unsorted_releases, $ver; - $fulltags{$ver} = $fulltag; - } -} -close(PIPEFH); - -#print("\n\nUNSORTED\n"); -#foreach (@unsorted_releases) { -# print "$_\n"; -#} - -my @releases = sort { - my @asplit = split /\./, $a; - my @bsplit = split /\./, $b; - my $rc; - for (my $i = 0; $i < scalar(@asplit); $i++) { - return 1 if (scalar(@bsplit) <= $i); # a is "2.0.1" and b is "2.0", or whatever. - my $aseg = $asplit[$i]; - my $bseg = $bsplit[$i]; - $rc = int($aseg) <=> int($bseg); - return $rc if ($rc != 0); # found the difference. - } - return 0; # still here? They matched completely?! -} @unsorted_releases; - -my $current_release = $releases[-1]; -my $next_release; - -if (scalar(@releases) > 0) { - # this happens to work for how SDL versions things at the moment. - $current_release = $releases[-1]; - - my @current_release_segments = split /\./, $current_release; - # if we're still in the 3.1.x prereleases, call the "next release" 3.2.0 even if we do more prereleases. - if (($current_release_segments[0] == '3') && ($current_release_segments[1] == '1')) { - $next_release = '3.2.0'; - } else { - @current_release_segments[1] = '' . (int($current_release_segments[1]) + 2); - $next_release = join('.', @current_release_segments); - } -} - -#print("\n\nSORTED\n"); -#foreach (@releases) { -# print "$_\n"; -#} -#print("\nCURRENT RELEASE: $current_release\n"); -#print("NEXT RELEASE: $next_release\n\n"); - -push @releases, 'HEAD'; -$fulltags{'HEAD'} = 'HEAD'; - -my %funcs = (); -foreach my $release (@releases) { - #print("Checking $release...\n"); - my $tag = $fulltags{$release}; - my $blobname = "$tag:src/dynapi/SDL_dynapi_overrides.h"; - - if ($release =~ /\A3\.[01]\.\d+\Z/) { # make everything up to the first SDL3 official release look like 3.2.0. - $release = '3.2.0'; - } - - open(PIPEFH, '-|', "git show '$blobname'") or die "Failed to read git blob '$blobname': $!\n"; - while () { - chomp; - if (/\A\#define\s+(SDL_.*?)\s+SDL_.*?_REAL\Z/) { - my $fn = $1; - $funcs{$fn} = $release if not defined $funcs{$fn}; - } - } - close(PIPEFH); -} - -if (not defined $wikipath) { - foreach my $release (@releases) { - foreach my $fn (sort keys %funcs) { - print("$fn: $funcs{$fn}\n") if $funcs{$fn} eq $release; - } - } -} else { - if (defined $wikipath) { - chdir($wikipath); - 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}; - $revision = $next_release if $revision eq 'HEAD'; - my $fname = "$fn.md"; - if ( ! -f $fname ) { - #print STDERR "No such file: $fname\n"; - next; - } - - my @lines = (); - open(FH, '<', $fname) or die("Can't open $fname for read: $!\n"); - my $added = 0; - while () { - chomp; - if ((/\A\-\-\-\-/) && (!$added)) { - push @lines, "## Version"; - push @lines, ""; - push @lines, "This function is available since SDL $revision."; - push @lines, ""; - $added = 1; - } - push @lines, $_; - next if not /\A\#\#\s+Version/; - $added = 1; - push @lines, ""; - push @lines, "This function is available since SDL $revision."; - push @lines, ""; - while () { - chomp; - next if not (/\A\#\#\s+/ || /\A\-\-\-\-/); - push @lines, $_; - last; - } - } - close(FH); - - if (!$added) { - push @lines, "## Version"; - push @lines, ""; - push @lines, "This function is available since SDL $revision."; - push @lines, ""; - } - - open(FH, '>', $fname) or die("Can't open $fname for write: $!\n"); - foreach (@lines) { - print FH "$_\n"; - } - close(FH); - } - } -} - -- cgit v1.2.3