#!/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 @unsorted_releases = (); open(PIPEFH, '-|', 'git tag -l') or die "Failed to read git release tags: $!\n"; while (<PIPEFH>) { chomp; if (/\Arelease\-(.*?)\Z/) { push @unsorted_releases, $1; } } 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; # this happens to work for how SDL versions things at the moment. my $current_release = $releases[-1]; my $next_release; if ($current_release eq '2.0.22') { # Hack for our jump from 2.0.22 to 2.24.0... $next_release = '2.24.0'; } else { my @current_release_segments = split /\./, $current_release; @current_release_segments[1] = '' . ($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'; my %funcs = (); foreach my $release (@releases) { #print("Checking $release...\n"); next if ($release eq '2.0.0') || ($release eq '2.0.1'); # no dynapi before 2.0.2 my $assigned_release = ($release eq '2.0.2') ? '2.0.0' : $release; # assume everything in 2.0.2--first with dynapi--was there since 2.0.0. We'll fix it up later. my $tag = ($release eq 'HEAD') ? $release : "release-$release"; my $blobname = "$tag:src/dynapi/SDL_dynapi_overrides.h"; open(PIPEFH, '-|', "git show '$blobname'") or die "Failed to read git blob '$blobname': $!\n"; while (<PIPEFH>) { chomp; if (/\A\#define\s+(SDL_.*?)\s+SDL_.*?_REAL\Z/) { my $fn = $1; $funcs{$fn} = $assigned_release if not defined $funcs{$fn}; } } close(PIPEFH); } # Fixup the handful of functions that were added in 2.0.1 and 2.0.2 that we # didn't have dynapi revision data about... $funcs{'SDL_GetSystemRAM'} = '2.0.1'; $funcs{'SDL_GetBasePath'} = '2.0.1'; $funcs{'SDL_GetPrefPath'} = '2.0.1'; $funcs{'SDL_UpdateYUVTexture'} = '2.0.1'; $funcs{'SDL_GL_GetDrawableSize'} = '2.0.1'; $funcs{'SDL_Direct3D9GetAdapterIndex'} = '2.0.1'; $funcs{'SDL_RenderGetD3D9Device'} = '2.0.1'; $funcs{'SDL_RegisterApp'} = '2.0.2'; $funcs{'SDL_UnregisterApp'} = '2.0.2'; $funcs{'SDL_GetAssertionHandler'} = '2.0.2'; $funcs{'SDL_GetDefaultAssertionHandler'} = '2.0.2'; $funcs{'SDL_AtomicAdd'} = '2.0.2'; $funcs{'SDL_AtomicGet'} = '2.0.2'; $funcs{'SDL_AtomicGetPtr'} = '2.0.2'; $funcs{'SDL_AtomicSet'} = '2.0.2'; $funcs{'SDL_AtomicSetPtr'} = '2.0.2'; $funcs{'SDL_HasAVX'} = '2.0.2'; $funcs{'SDL_GameControllerAddMappingsFromRW'} = '2.0.2'; $funcs{'SDL_acos'} = '2.0.2'; $funcs{'SDL_asin'} = '2.0.2'; $funcs{'SDL_vsscanf'} = '2.0.2'; $funcs{'SDL_DetachThread'} = '2.0.2'; $funcs{'SDL_GL_ResetAttributes'} = '2.0.2'; $funcs{'SDL_DXGIGetOutputInfo'} = '2.0.2'; # these are incorrect in the dynapi header, because we forgot to add them # until a later release, but are available in the older release. $funcs{'SDL_WinRTGetFSPathUNICODE'} = '2.0.3'; $funcs{'SDL_WinRTGetFSPathUTF8'} = '2.0.3'; $funcs{'SDL_WinRTRunApp'} = '2.0.3'; 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) { my $revision = $funcs{$fn}; $revision = $next_release if $revision eq 'HEAD'; my $fname = "$fn.mediawiki"; 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 (<FH>) { 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\s+\=\=/; $added = 1; push @lines, ""; push @lines, "This function is available since SDL $revision."; push @lines, ""; while (<FH>) { 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); } } }