… | |
… | |
9 | for my $file (@ARGV) { |
9 | for my $file (@ARGV) { |
10 | open my $fh, "<:utf8", $file |
10 | open my $fh, "<:utf8", $file |
11 | or die "$file: $!"; |
11 | or die "$file: $!"; |
12 | |
12 | |
13 | while (<$fh>) { |
13 | while (<$fh>) { |
|
|
14 | next if /^\s*\//; # skip lines starting with / |
14 | if ($curclass eq $class) { |
15 | if ($curclass eq $class) { |
15 | while (/ACC\s*\(R([WO])\s*,\s*([^)\]]+)(?:\[(\S+)\])?\)/g) { |
16 | while (/ACC\s*\(R([WO])\s*,\s*([^)\]]+)(?:\[(\S+)\])?\)/g) { |
16 | if ($3) { |
17 | if ($3) { |
17 | push @array_member, [$1, $2, $3]; |
18 | push @array_member, [$1, $2, $3]; |
18 | } else { |
19 | } else { |