Merge branch 'master' of github.com:r0ket/r0ket

This commit is contained in:
schneider 2011-08-03 17:11:21 +02:00
commit ecc8a0e0fb
1 changed files with 2 additions and 2 deletions

View File

@ -47,14 +47,14 @@ sub wanted {
open(F,"<",$_) || die; open(F,"<",$_) || die;
while(<F>){ while(<F>){
chomp;s/\r$//; chomp;s/\r$//;
if(m!^[^(]* ([\w]+)\s*\(.*\);\s*(//.*)?$!){ if(m!^[^(]* ([\w]+)\s*\(.*\);\s*(//.*)?(/\*[^/]*\*/)?$!){
$id=$1; $id=$1;
s/$id/(*)/; s/$id/(*)/;
s/;//; s/;//;
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*(\[\w*\]\s*)?;\s*(//.*)?(/\*[^/]*\*/)?$!){
$id=$1; $id=$1;
s/extern //; s/extern //;
my $star="*"; my $star="*";