| … | |
… | |
| 7 | for my $file (@ARGV) { |
7 | for my $file (@ARGV) { |
| 8 | open my $fh, "<:utf8", $file |
8 | open my $fh, "<:utf8", $file |
| 9 | or die "$file: $!"; |
9 | or die "$file: $!"; |
| 10 | |
10 | |
| 11 | while (<$fh>) { |
11 | while (<$fh>) { |
| 12 | while (/ACC_R([WO])\s*\((\S+)\)/g) { |
12 | while (/ACC\s*\(R([WO])\s*,\s*(\S+)\)/g) { |
| 13 | next unless $curclass eq $class; |
13 | next unless $curclass eq $class; |
| 14 | |
14 | |
| 15 | push @member, [$1, $2]; |
15 | push @member, [$1, $2]; |
| 16 | } |
16 | } |
| 17 | while (/ACC_CLASS\s*\((\S+)\)/g) { |
17 | while (/ACC_CLASS\s*\((\S+)\)/g) { |
