… | |
… | |
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}; |