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