| 1 | #! perl |
1 | #! perl |
|
|
2 | |
|
|
3 | # actually geninterface |
| 2 | |
4 | |
| 3 | my $class = shift; |
5 | my $class = shift; |
| 4 | my $curclass = ""; |
6 | my $curclass = ""; |
| 5 | my (@scalar_member, @array_member); |
7 | my (@scalar_member, @array_member); |
| 6 | |
8 | |
| … | |
… | |
| 16 | push @array_member, [$1, $2, $3]; |
18 | push @array_member, [$1, $2, $3]; |
| 17 | } else { |
19 | } else { |
| 18 | push @scalar_member, [$1, $2]; |
20 | push @scalar_member, [$1, $2]; |
| 19 | } |
21 | } |
| 20 | } |
22 | } |
| 21 | while (/ACC_CLASS\s*\((\S+)\)/g) { |
23 | while (/INTERFACE_CLASS\s*\((\S+)\)/g) { |
| 22 | $curclass = $1; |
24 | $curclass = $1; |
| 23 | } |
25 | } |
| 24 | } |
26 | } |
| 25 | } |
27 | } |
| 26 | |
28 | |
