ryujinx-archive/GtkSharp
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Mark deprecated functions as Obsolete

Browse source
This commit is contained in:
Mikkel Kruse Johnsen 2014-11-03 15:48:39 +01:00
parent 08f4ae2eb4
commit 61c921e5b2
1 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
parser/gapi_pp.pl
View file

@ -26,7 +26,7 @@
$private_regex = '^#if.*(ENABLE_BACKEND|ENABLE_ENGINE)'; $private_regex = '^#if.*(ENABLE_BACKEND|ENABLE_ENGINE)';
$eatit_regex = '^#if(.*(__cplusplus|DEBUG|DISABLE_COMPAT|ENABLE_BROKEN)|\s+0\s*$)'; $eatit_regex = '^#if(.*(__cplusplus|DEBUG|DISABLE_COMPAT|ENABLE_BROKEN)|\s+0\s*$)';
$ignoreit_regex = '^\s+\*|#ident|#error|#\s*include|#\s*else|#\s*undef|G_(BEGIN|END)_DECLS|GDKVAR|GTKVAR|GTKMAIN_C_VAR|GTKTYPEUTILS_VAR|VARIABLE|GTKTYPEBUILTIN|G_GNUC_INTERNAL'; $ignoreit_regex = '^\s+\*|#ident|#error|#\s*include|#\s*import|#\s*else|#\s*undef|G_(BEGIN|END)_DECLS|GDKVAR|GTKVAR|GTKMAIN_C_VAR|GTKTYPEUTILS_VAR|VARIABLE|GTKTYPEBUILTIN|G_GNUC_INTERNAL';
foreach $arg (@ARGV) { foreach $arg (@ARGV) {
if (-d $arg && -e $arg) { if (-d $arg && -e $arg) {
@ -74,6 +74,8 @@ foreach $fname (@hdrs) {
print $def; print $def;
} elsif ($line =~ /#\s*define\s+\w+\s*\(\s*\w+_get_type\s*\(\)\)/) { } elsif ($line =~ /#\s*define\s+\w+\s*\(\s*\w+_get_type\s*\(\)\)/) {
print $line; print $line;
} elsif ($line =~ /#\s*define\s+(\w+\s*)\(\(.*\)(".*")\)/) {
print "#define $1 $2\n";
} elsif ($line =~ /#\s*define\s+\w+\s*\D+/) { } elsif ($line =~ /#\s*define\s+\w+\s*\D+/) {
$def = $line; $def = $line;
while ($line =~ /\\\n/) {$def .= ($line = <INFILE>);} while ($line =~ /\\\n/) {$def .= ($line = <INFILE>);}
@ -178,7 +180,21 @@ foreach $fname (@hdrs) {
} else { } else {
if ($braces or $line =~ /;|\/\*/) { if ($braces or $line =~ /;|\/\*/) {
if ($deprecated == -1) { if ($deprecated == -1) {
print $line; if ($line =~ /^\w*_AVAILABLE_IN_\w*/) {
$line =~ s/^\w*_AVAILABLE_IN_\w*//g;
$line =~ s/^\s+//;
print $line;
} elsif ($line =~ /^\w*_DEPRECATED_IN_[\w()]*/) {
$line =~ s/^\w*_DEPRECATED_IN_[\w()]*//g;
$line =~ s/^\s+//;
print "deprecated$line";
} elsif ($line =~ /^\w*_DEPRECATED/) {
$line =~ s/^\w*_DEPRECATED//g;
$line =~ s/^\s+//;
print "deprecated$line";
} else {
print $line;
}
} else { } else {
print "deprecated$line"; print "deprecated$line";
} }