| … | |
… | |
| 132 | $type->{desc} = string $e; |
132 | $type->{desc} = string $e; |
| 133 | } elsif ($e->name eq "section") { |
133 | } elsif ($e->name eq "section") { |
| 134 | for my $i (grep ref, @{$e->contents}) { |
134 | for my $i (grep ref, @{$e->contents}) { |
| 135 | parse_attr $i, $type->{attr}{$e->attr ("name")} ||= {}; |
135 | parse_attr $i, $type->{attr}{$e->attr ("name")} ||= {}; |
| 136 | } |
136 | } |
| 137 | # $type->{desc} = string $e; |
|
|
| 138 | } else { |
137 | } else { |
| 139 | warn "unknown types subelement ", $e->name; |
138 | warn "unknown types subelement ", $e->name; |
| 140 | } |
139 | } |
| 141 | } |
140 | } |
| 142 | |
141 | |
