shadps4-emu/ext-SDL
1
0
Fork 0
mirror of https://github.com/shadps4-emu/ext-SDL.git synced 2025-01-10 04:42:16 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

wikiheaders: Deal with multiline typedefs.

Browse Source 
This happens more than once with function pointer typedefs.

Reference Issue #9440.
This commit is contained in:
Ryan C. Gordon 2024-05-03 12:58:07 -04:00
parent 3473cef7df
commit 92bd7d99dd
No known key found for this signature in database
GPG Key ID: FA148B892AB48044
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
build-scripts/wikiheaders.pl
View File

@ -699,7 +699,7 @@ while (my $d = readdir(DH)) {
$symtype = 3; # struct or union
} elsif ($decl =~ /\A\s*(typedef\s+|)enum/) {
$symtype = 4; # enum
} elsif ($decl =~ /\A\s*typedef\s+.*;\Z/) {
} elsif ($decl =~ /\A\s*typedef\s+.*\Z/) {
$symtype = 5; # other typedef
} else {
#print "Found doxygen but no function sig:\n$str\n\n";
@ -912,10 +912,26 @@ while (my $d = readdir(DH)) {
# this currently assumes the struct/union/enum ends on the line with the final bracket. I'm not writing a C parser here, fix the header!
}
} elsif ($symtype == 5) { # other typedef
if ($decl =~ /\A\s*typedef\s+(.*);\Z/) {
if ($decl =~ /\A\s*typedef\s+(.*)\Z/) {
my $tdstr = $1;
if (not $decl =~ /;/) {
while (<FH>) {
chomp;
$lineno++;
push @decllines, $_;
s/\A\s+//;
s/\s+\Z//;
$decl .= " $_";
last if /;/;
}
}
$decl =~ s/\s+(\))?;\Z/$1;/;
$tdstr =~ s/;\s*\Z//;
#my $datatype;
if ($tdstr =~ /\A(.*?)\s*\((.*?)\s*\*\s*(.*?)\)\s*\((.*?)\)\s*\Z/) { # a function pointer type
if ($tdstr =~ /\A(.*?)\s*\((.*?)\s*\*\s*(.*?)\)\s*\((.*?)(\))?/) { # a function pointer type
$sym = $3;
#$datatype = "$1 ($2 *$sym)($4)";
} elsif ($tdstr =~ /\A(.*[\s\*]+)(.*?)\s*\Z/) {