forked from Green-Sky/tomato
update sdl Merge commit '644725478f4de0f074a6834e8423ac36dce3974f'
This commit is contained in:
49
external/sdl/SDL/build-scripts/wikiheaders.pl
vendored
49
external/sdl/SDL/build-scripts/wikiheaders.pl
vendored
@ -31,6 +31,7 @@ my $optionsfname = undef;
|
||||
my $wikipreamble = undef;
|
||||
my $changeformat = undef;
|
||||
my $manpath = undef;
|
||||
my $gitrev = undef;
|
||||
|
||||
foreach (@ARGV) {
|
||||
$warn_about_missing = 1, next if $_ eq '--warn-about-missing';
|
||||
@ -47,6 +48,9 @@ foreach (@ARGV) {
|
||||
} elsif (/\A--manpath=(.*)\Z/) {
|
||||
$manpath = $1;
|
||||
next;
|
||||
} elsif (/\A--rev=(.*)\Z/) {
|
||||
$gitrev = $1;
|
||||
next;
|
||||
}
|
||||
$srcpath = $_, next if not defined $srcpath;
|
||||
$wikipath = $_, next if not defined $wikipath;
|
||||
@ -788,6 +792,45 @@ while (my $d = readdir(DH)) {
|
||||
}
|
||||
closedir(DH);
|
||||
|
||||
delete $wikifuncs{"Undocumented"};
|
||||
|
||||
{
|
||||
my $path = "$wikipath/Undocumented.md";
|
||||
open(FH, '>', $path) or die("Can't open '$path': $!\n");
|
||||
|
||||
print FH "# Undocumented\n\n";
|
||||
|
||||
print FH "## Functions defined in the headers, but not in the wiki\n\n";
|
||||
my $header_only_func = 0;
|
||||
foreach (sort keys %headerfuncs) {
|
||||
my $fn = $_;
|
||||
if (not defined $wikifuncs{$fn}) {
|
||||
print FH "- [$fn]($fn)\n";
|
||||
$header_only_func = 1;
|
||||
}
|
||||
}
|
||||
if (!$header_only_func) {
|
||||
print FH "(none)\n";
|
||||
}
|
||||
print FH "\n";
|
||||
|
||||
print FH "## Functions defined in the wiki, but not in the headers\n\n";
|
||||
|
||||
my $wiki_only_func = 0;
|
||||
foreach (sort keys %wikifuncs) {
|
||||
my $fn = $_;
|
||||
if (not defined $headerfuncs{$fn}) {
|
||||
print FH "- [$fn]($fn)\n";
|
||||
$wiki_only_func = 1;
|
||||
}
|
||||
}
|
||||
if (!$wiki_only_func) {
|
||||
print FH "(none)\n";
|
||||
}
|
||||
print FH "\n";
|
||||
|
||||
close(FH);
|
||||
}
|
||||
|
||||
if ($warn_about_missing) {
|
||||
foreach (keys %wikifuncs) {
|
||||
@ -1437,8 +1480,10 @@ if ($copy_direction == 1) { # --copy-to-headers
|
||||
close(FH);
|
||||
}
|
||||
|
||||
my $gitrev = `cd "$srcpath" ; git rev-list HEAD~..`;
|
||||
chomp($gitrev);
|
||||
if (!$gitrev) {
|
||||
$gitrev = `cd "$srcpath" ; git rev-list HEAD~..`;
|
||||
chomp($gitrev);
|
||||
}
|
||||
|
||||
# !!! FIXME
|
||||
open(FH, '<', "$srcpath/$versionfname") or die("Can't open '$srcpath/$versionfname': $!\n");
|
||||
|
Reference in New Issue
Block a user