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!//.*!!; s!//.*!!;
$types{$id}="*($_)"; $types{$id}="*($_)";
$files{$id}=$File::Find::name; $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; $id=$1;
s/extern //; s/extern //;
my $star="*"; my $star="*";
if( s/\[\w*\]//){ if( s/\[.*\]//){
$star=""; $star="";
}; };
s/$id/*/; 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);