generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Counter for GCC attributes.

Browse Source
This commit is contained in:
Richard Levitte 2003-04-03 23:04:48 +00:00
parent 83b23ed967
commit 57544ee224
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
util/mkdef.pl
View File

@ -833,14 +833,14 @@ sub do_defs
} elsif (/\(\*(\w*(\{[0-9]+\})?)\([^\)]+/) { } elsif (/\(\*(\w*(\{[0-9]+\})?)\([^\)]+/) {
$s = $1; $s = $1;
print STDERR "DEBUG: found ANSI C function $s\n" if $debug; print STDERR "DEBUG: found ANSI C function $s\n" if $debug;
} elsif (/\w+\W+(\w+)\W*\(\s*\)$/s) { } elsif (/\w+\W+(\w+)\W*\(\s*\)(\s*__attribute__\(.*\)\s*)?$/s) {
# K&R C # K&R C
print STDERR "DEBUG: found K&R C function $s\n" if $debug; print STDERR "DEBUG: found K&R C function $s\n" if $debug;
next; next;
} elsif (/\w+\W+\w+(\{[0-9]+\})?\W*\(.*\)$/s) { } elsif (/\w+\W+\w+(\{[0-9]+\})?\W*\(.*\)(\s*__attribute__\(.*\)\s*)?$/s) {
while (not /\(\)$/s) { while (not /\(\)(\s*__attribute__\(.*\)\s*)?$/s) {
s/[^\(\)]*\)$/\)/s; s/[^\(\)]*\)(\s*__attribute__\(.*\)\s*)?$/\)/s;
s/\([^\(\)]*\)\)$/\)/s; s/\([^\(\)]*\)\)(\s*__attribute__\(.*\)\s*)?$/\)/s;
} }
s/\(void\)//; s/\(void\)//;
/(\w+(\{[0-9]+\})?)\W*\(\)/s; /(\w+(\{[0-9]+\})?)\W*\(\)/s;

14
util/mkerr.pl
View File

@ -128,20 +128,20 @@ while (($hdr, $lib) = each %libinc)
s/^[\n\s]*//g; s/^[\n\s]*//g;
s/[\n\s]*$//g; s/[\n\s]*$//g;
next if(/typedef\W/); next if(/typedef\W/);
if (/\(\*(\w*)\([^\)]+/) { if (/\(\*(\w*)\([^\)]+\)(\s*__attribute__\(.*\)\s*)?$/) {
my $name = $1; my $name = $1;
$name =~ tr/[a-z]/[A-Z]/; $name =~ tr/[a-z]/[A-Z]/;
$ftrans{$name} = $1; $ftrans{$name} = $1;
} elsif (/\w+\W+(\w+)\W*\(\s*\)$/s){ } elsif (/\w+\W+(\w+)\W*\(\s*\)(\s*__attribute__\(.*\)\s*)?$/s){
# K&R C # K&R C
next ; next ;
} elsif (/\w+\W+\w+\W*\(.*\)$/s) { } elsif (/\w+\W+\w+\W*\(.*\)(\s*__attribute__\(.*\)\s*)?$/s) {
while (not /\(\)$/s) { while (not /\(\)(\s*__attribute__\(.*\)\s*)?$/s) {
s/[^\(\)]*\)$/\)/s; s/[^\(\)]*\)(\s*__attribute__\(.*\)\s*)?$/\)/s;
s/\([^\(\)]*\)\)$/\)/s; s/\([^\(\)]*\)\)(\s*__attribute__\(.*\)\s*)?$/\)/s;
} }
s/\(void\)//; s/\(void\)//;
/(\w+)\W*\(\)/s; /(\w+(\{[0-9]+\})?)\W*\(\)/s;
my $name = $1; my $name = $1;
$name =~ tr/[a-z]/[A-Z]/; $name =~ tr/[a-z]/[A-Z]/;
$ftrans{$name} = $1; $ftrans{$name} = $1;