| … | |
… | |
| 166 | } |
166 | } |
| 167 | } elsif ($e->name eq "default_type") { |
167 | } elsif ($e->name eq "default_type") { |
| 168 | parse_type $e, \%default_attr; |
168 | parse_type $e, \%default_attr; |
| 169 | } elsif ($e->name eq "type") { |
169 | } elsif ($e->name eq "type") { |
| 170 | my $type = $type{$e->attr ("name")} ||= {}; |
170 | my $type = $type{$e->attr ("name")} ||= {}; |
|
|
171 | |
|
|
172 | $type->{name} = $e->attr ("name"); |
|
|
173 | |
| 171 | parse_type $e, $type; |
174 | parse_type $e, $type; |
| 172 | #unshift @{$type->{import}}, \%default_attr; |
175 | #unshift @{$type->{import}}, \%default_attr; |
| 173 | |
176 | |
| 174 | if ($e->attr ("number") > 0) { |
177 | if ($e->attr ("number") > 0) { |
| 175 | $attr{$e->attr ("number")} = $type; |
178 | $attr{$e->attr ("number")} = $type; |
