ctdo
/
crashtest-r0ket
16
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This commit is contained in:
schneider 2011-08-03 17:11:21 +02:00
parent c93ce80fbd 9b2cee24d0
commit ecc8a0e0fb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
firmware/l0dable/mktable.pl
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="*";