Allow parsing of /*-style comments

This commit is contained in:
Stefan `Sec` Zehl 2011-08-03 17:10:52 +02:00
parent 3457388389
commit 9b2cee24d0
1 changed files with 2 additions and 2 deletions

View File

@ -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="*";