| … | |
… | |
| 130 | } elsif ($e->{Name} eq "ignore") { |
130 | } elsif ($e->{Name} eq "ignore") { |
| 131 | for my $i (grep $_->isa ('XML::Grove::Element'), @{$e->{Contents}}) { |
131 | for my $i (grep $_->isa ('XML::Grove::Element'), @{$e->{Contents}}) { |
| 132 | if ($i->{Name} eq "ignore_list") { |
132 | if ($i->{Name} eq "ignore_list") { |
| 133 | push @{$type->{ignore}}, $ignore_list{$i->{Attributes}->{name}} ||= []; |
133 | push @{$type->{ignore}}, $ignore_list{$i->{Attributes}->{name}} ||= []; |
| 134 | } elsif ($i->{Name} eq "attribute") { |
134 | } elsif ($i->{Name} eq "attribute") { |
| 135 | warn "ACDD $i->{Attributes}->{arch}\n"; |
|
|
| 136 | push @{$type->{ignore}}, [$i->{Attributes}->{arch}]; |
135 | push @{$type->{ignore}}, $i->{Attributes}->{arch}; |
| 137 | } |
136 | } |
| 138 | } |
137 | } |
| 139 | } elsif ($e->{Name} eq "import_type") { |
138 | } elsif ($e->{Name} eq "import_type") { |
| 140 | #push @{$type->{import}}, $type{$e->{Attributes}->{name}} ||= {}; |
139 | #push @{$type->{import}}, $type{$e->{Attributes}->{name}} ||= {}; |
| 141 | push @{$type->{import}}, $e->{Attributes}->{name}; |
140 | push @{$type->{import}}, $e->{Attributes}->{name}; |
