| … | |
… | |
| 115 | |
115 | |
| 116 | my %main; |
116 | my %main; |
| 117 | |
117 | |
| 118 | for my $e (grep ref, @{$e->contents}) { |
118 | for my $e (grep ref, @{$e->contents}) { |
| 119 | if ($e->name eq "required") { |
119 | if ($e->name eq "required") { |
|
|
120 | # not used |
| 120 | for my $i (grep ref, @{$e->contents}) { |
121 | #for my $i (grep ref, @{$e->contents}) { |
| 121 | $type->{required}{$i->attr ("arch")} = $i->attr ("value"); |
122 | # $type->{required}{$i->attr ("arch")} = $i->attr ("value"); |
| 122 | } |
123 | #} |
| 123 | } elsif ($e->name eq "attribute") { |
124 | } elsif ($e->name eq "attribute") { |
| 124 | parse_attr $e, $type->{attr} ||= []; |
125 | parse_attr $e, $type->{attr} ||= []; |
| 125 | } elsif ($e->name eq "ignore") { |
126 | } elsif ($e->name eq "ignore") { |
| 126 | for my $i (grep ref, @{$e->contents}) { |
127 | for my $i (grep ref, @{$e->contents}) { |
| 127 | if ($i->name eq "ignore_list") { |
128 | if ($i->name eq "ignore_list") { |
| … | |
… | |
| 129 | } elsif ($i->name eq "attribute") { |
130 | } elsif ($i->name eq "attribute") { |
| 130 | push @{$type->{ignore}}, $i->attr ("arch"); |
131 | push @{$type->{ignore}}, $i->attr ("arch"); |
| 131 | } |
132 | } |
| 132 | } |
133 | } |
| 133 | } elsif ($e->name eq "import_type") { |
134 | } elsif ($e->name eq "import_type") { |
| 134 | push @{$type->{import}}, $type{$e->attr ("name")} ||= {}; |
135 | #push @{$type->{import}}, $type{$e->attr ("name")} ||= {}; |
|
|
136 | push @{$type->{import}}, $e->attr ("name"); |
| 135 | } elsif ($e->name eq "use") { |
137 | } elsif ($e->name eq "use") { |
| 136 | $type->{use} = string $e; |
138 | $type->{use} = string $e; |
| 137 | } elsif ($e->name eq "description") { |
139 | } elsif ($e->name eq "description") { |
| 138 | $type->{desc} = string $e; |
140 | $type->{desc} = string $e; |
| 139 | } elsif ($e->name eq "section") { |
141 | } elsif ($e->name eq "section") { |
| … | |
… | |
| 199 | |
201 | |
| 200 | for (grep ref, @{$spell->root->contents}) { |
202 | for (grep ref, @{$spell->root->contents}) { |
| 201 | $spell{$_->attr ("id")} = $_->attr ("name"); |
203 | $spell{$_->attr ("id")} = $_->attr ("name"); |
| 202 | } |
204 | } |
| 203 | |
205 | |
| 204 | dump_hash ["BITMASK", "LIST", "IGNORE_LIST", "DEFAULT_ATTR", "TYPE", "ATTR0", "ATTR", "TYPENAME", "SPELL"], |
206 | dump_hash ["BITMASK", "LIST", "IGNORE_LIST", "DEFAULT_ATTR", "TYPE", "ATTR", "TYPENAME", "SPELL"], |
| 205 | [\%bitmask, \%list, \%ignore_list, \%default_attr, \%type, \@attr0, \%attr, \%typename, \%spell]; |
207 | [\%bitmask, \%list, \%ignore_list, \%default_attr, \%type, \%attr, \%typename, \%spell]; |
| 206 | |
208 | |
| 207 | print <<EOF; |
209 | print <<EOF; |
| 208 | |
210 | |
| 209 | =head1 AUTHOR |
211 | =head1 AUTHOR |
| 210 | |
212 | |
