| … | |
… | |
| 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 { |
