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