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

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