Fix mktable regexp
This commit is contained in:
parent
28df8b638e
commit
f546e7a1aa
|
@ -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/*/;
|
||||
|
|
|
@ -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);
|
Loading…
Reference in New Issue