eden-emu/SDL
20
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

wikiheaders: Fixes to manpage output for datatypes vs functions.

Browse source
This commit is contained in:
Ryan C. Gordon 2024-04-11 01:03:07 -04:00
parent e47f2956cf
commit 6ccdfffe26
No known key found for this signature in database
GPG key ID: FA148B892AB48044
1 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

29
build-scripts/wikiheaders.pl
View file

@ -1674,8 +1674,8 @@ if ($copy_direction == 1) { # --copy-to-headers
} elsif ($copy_direction == -2) { # --copy-to-manpages } elsif ($copy_direction == -2) { # --copy-to-manpages
# This only takes from the wiki data, since it has sections we omit from the headers, like code examples. # This only takes from the wiki data, since it has sections we omit from the headers, like code examples.
$manpath .= "/man3"; File::Path::make_path("$manpath/man3");
File::Path::make_path($manpath); File::Path::make_path("$manpath/man3type");
$dewikify_mode = 'manpage'; $dewikify_mode = 'manpage';
$wordwrap_mode = 'manpage'; $wordwrap_mode = 'manpage';
@ -1731,6 +1731,18 @@ if ($copy_direction == 1) { # --copy-to-headers
$headerfile =~ s/\%fname\%/$headersymslocation{$sym}/g; $headerfile =~ s/\%fname\%/$headersymslocation{$sym}/g;
$headerfile .= "\n"; $headerfile .= "\n";
my $mansection;
my $mansectionname;
if (($symtype == 1) || ($symtype == 2)) { # functions or macros
$mansection = '3';
$mansectionname = 'FUNCTIONS';
} elsif (($symtype >= 3) && ($symtype <= 5)) { # struct/union/enum/typedef
$mansection = '3type';
$mansectionname = 'DATATYPES';
} else {
die("Unexpected symtype $symtype");
}
my $brief = $sectionsref->{'[Brief]'}; my $brief = $sectionsref->{'[Brief]'};
my $decl = $headerdecls{$sym}; my $decl = $headerdecls{$sym};
my $str = ''; my $str = '';
@ -1769,7 +1781,7 @@ if ($copy_direction == 1) { # --copy-to-headers
$str .= "..\n"; $str .= "..\n";
$str .= '.if \n[.g] .mso www.tmac' . "\n"; $str .= '.if \n[.g] .mso www.tmac' . "\n";
$str .= ".TH $sym 3 \"$projectshortname $fullversion\" \"$projectfullname\" \"$projectshortname$majorver FUNCTIONS\"\n"; $str .= ".TH $sym $mansection \"$projectshortname $fullversion\" \"$projectfullname\" \"$projectshortname$majorver $mansectionname\"\n";
$str .= ".SH NAME\n"; $str .= ".SH NAME\n";
$str .= "$sym"; $str .= "$sym";
@ -1927,16 +1939,7 @@ if ($copy_direction == 1) { # --copy-to-headers
$str .= ".UE\n"; $str .= ".UE\n";
} }
my $mansection; my $path = "$manpath/man$mansection/$_.$mansection";
if (($symtype == 1) || ($symtype == 2)) { # functions or macros
$mansection = '3';
} elsif (($symtype >= 3) && ($symtype <= 5)) { # struct/union/enum/typedef
$mansection = '3type';
} else {
die("Unexpected symtype $symtype");
}
my $path = "$manpath/$_.$mansection";
my $tmppath = "$path.tmp"; my $tmppath = "$path.tmp";
open(FH, '>', $tmppath) or die("Can't open '$tmppath': $!\n"); open(FH, '>', $tmppath) or die("Can't open '$tmppath': $!\n");
print FH $str; print FH $str;