Fix mktable regexp

This commit is contained in:
Stefan `Sec` Zehl 2011-08-03 19:13:20 +02:00
parent 28df8b638e
commit f546e7a1aa
2 changed files with 5 additions and 2 deletions

View File

@ -56,11 +56,11 @@ sub wanted {
s!//.*!!;
$types{$id}="*($_)";
$files{$id}=$File::Find::name;
}elsif (m!^\s*extern\s[^(]* ([\w]+)\s*(\[\w*\]\s*)?;\s*(//.*)?(/\*[^/]*\*/)?$!){
}elsif (m!^\s*extern\s[^(]* ([\w]+)\s*(\[[^]]*\]\s*)?;\s*(//.*)?(/\*[^/]*\*/)?$!){
$id=$1;
s/extern //;
my $star="*";
if( s/\[\w*\]//){
if( s/\[.*\]//){
$star="";
};
s/$id/*/;

View File

@ -0,0 +1,3 @@
size_t strlen(const char *s);
char * strcpy(char * restrict dst, const char * restrict src);
void * memcpy(void *dst, const void *src, size_t len);