Commit 85edbc92ac618b5d693999c3fe02f472550c0689
2021-10-26T19:00:06
fnsince.pl: Added a way to sync this information to the wiki. This will let us automate this so it's managed for us, and as things go from development to official releases, the documentation will automatically update!
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
diff --git a/build-scripts/fnsince.pl b/build-scripts/fnsince.pl
index 30a1d51..0257462 100755
--- a/build-scripts/fnsince.pl
+++ b/build-scripts/fnsince.pl
@@ -3,6 +3,12 @@
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('..');
@@ -101,3 +107,57 @@ foreach my $release (@releases) {
}
}
+if (defined $wikipath) {
+ chdir($wikipath);
+ foreach my $fn (keys %funcs) {
+ my $revision = $funcs{$fn};
+ $revision = 'git HEAD (in development, not in an official release yet)' 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);
+ }
+}
+
+