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