fnsince.pl: Don't print out the version numbers if updating the wiki.
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 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116
diff --git a/build-scripts/fnsince.pl b/build-scripts/fnsince.pl
index 0257462..5c5632f 100755
--- a/build-scripts/fnsince.pl
+++ b/build-scripts/fnsince.pl
@@ -101,63 +101,64 @@ $funcs{'SDL_WinRTGetFSPathUNICODE'} = '2.0.3';
$funcs{'SDL_WinRTGetFSPathUTF8'} = '2.0.3';
$funcs{'SDL_WinRTRunApp'} = '2.0.3';
-foreach my $release (@releases) {
- foreach my $fn (sort keys %funcs) {
- print("$fn: $funcs{$fn}\n") if $funcs{$fn} eq $release;
+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 = '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;
+ }
-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);
- my @lines = ();
- open(FH, '<', $fname) or die("Can't open $fname for read: $!\n");
- my $added = 0;
- while (<FH>) {
- chomp;
- if ((/\A\-\-\-\-/) && (!$added)) {
+ if (!$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";
+ open(FH, '>', $fname) or die("Can't open $fname for write: $!\n");
+ foreach (@lines) {
+ print FH "$_\n";
+ }
+ close(FH);
}
- close(FH);
}
}
-