Allow parsing of /*-style comments
This commit is contained in:
parent
3457388389
commit
9b2cee24d0
|
@ -47,14 +47,14 @@ sub wanted {
|
|||
open(F,"<",$_) || die;
|
||||
while(<F>){
|
||||
chomp;s/\r$//;
|
||||
if(m!^[^(]* ([\w]+)\s*\(.*\);\s*(//.*)?$!){
|
||||
if(m!^[^(]* ([\w]+)\s*\(.*\);\s*(//.*)?(/\*[^/]*\*/)?$!){
|
||||
$id=$1;
|
||||
s/$id/(*)/;
|
||||
s/;//;
|
||||
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*(\[\w*\]\s*)?;\s*(//.*)?(/\*[^/]*\*/)?$!){
|
||||
$id=$1;
|
||||
s/extern //;
|
||||
my $star="*";
|
||||
|
|
Loading…
Reference in New Issue