fnsince.pl: Report unreleased APIs as part of the next release version.

This keep documentation future-accurate and more importantly: it will
produce correct results before we tag the official release in git, so
they'll be correct in the tag and the release tarball.
This commit is contained in:
Ryan C. Gordon 2021-11-10 15:40:27 -05:00
parent b42ae3dbfe
commit a1c125c1f5
No known key found for this signature in database
GPG Key ID: FA148B892AB48044
1 changed files with 9 additions and 1 deletions

View File

@ -44,10 +44,18 @@ my @releases = sort {
return 0; # still here? They matched completely?! return 0; # still here? They matched completely?!
} @unsorted_releases; } @unsorted_releases;
# this happens to work for how SDL versions things at the moment.
my $current_release = $releases[-1];
my @current_release_segments = split /\./, $current_release;
@current_release_segments[2] = '' . ($current_release_segments[2] + 2);
my $next_release = join('.', @current_release_segments);
#print("\n\nSORTED\n"); #print("\n\nSORTED\n");
#foreach (@releases) { #foreach (@releases) {
# print "$_\n"; # print "$_\n";
#} #}
#print("\nCURRENT RELEASE: $current_release\n");
#print("NEXT RELEASE: $next_release\n\n");
push @releases, 'HEAD'; push @releases, 'HEAD';
@ -112,7 +120,7 @@ if (not defined $wikipath) {
chdir($wikipath); chdir($wikipath);
foreach my $fn (keys %funcs) { foreach my $fn (keys %funcs) {
my $revision = $funcs{$fn}; my $revision = $funcs{$fn};
$revision = 'git HEAD (in development, not in an official release yet)' if $revision eq 'HEAD'; $revision = $next_release if $revision eq 'HEAD';
my $fname = "$fn.mediawiki"; my $fname = "$fn.mediawiki";
if ( ! -f $fname ) { if ( ! -f $fname ) {
#print STDERR "No such file: $fname\n"; #print STDERR "No such file: $fname\n";