note
Jenda
<p>Do you mean something like this?</p>
<code>
#!/usr/bin/perl -slw
use strict;
use Data::Dump qw(dump pp);
use XML::Rules;
my $parser = XML::Rules->new(
rules => {
parameters => sub {
return '+has_uint64' => ($_[1]->{type} eq 'uint64_t');
},
members => sub {
my ($tag,$attr,$context,$parents) = @_;
return unless $context->[-2] eq 'classes';
my $class = $parents->[-2]{name};
(my $access = $context->[-1]) =~ s/_methods//;
print "$access $class.$attr->{name} has $attr->{has_uint64} uint64 parameter(s)\n"
if ($attr->{has_uint64});
return;
},
'^enums' => 'skip',
}
);
$parser->parse(\*DATA);
__DATA__
<classes name="Panoply::BAR">
<public_methods>
...
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-105128">
<p>Jenda<br>
<b>Enoch was right!</b><br/>
Enjoy the last years of Rome.
</p>
</div></div>
999574
999574