#!/usr/bin/perl
# use module
use XML::Simple;
use Data::Dumper;
# create object
$xml = new XML::Simple;
# read XML file
$data = $xml->XMLin("../bin/Release/SpriteLibrary.XML");
#print Dumper($data->{members});
print "\n";
foreach $type (P, M, E, F)
{
print "Methods
\n" if $type eq "M";
print "Events
\n" if $type eq "E";
print "Properties
\n" if $type eq "P";
print "Functions
\n" if $type eq "F";
while(my ($key, $value) = each $data->{members})
{
#print $key;
#while(my ($inkey, $invalue) = each $value)
foreach $inkey (sort keys $value)
{
$invalue = $value->{$inkey};
if($inkey =~ /^$type/)
{
my $name = $inkey;
$name =~ s/^.:SpriteLibrary\.//;
next if $name =~ /\.Resources\./;
if($name =~ s/\#ctor//)
{
$name = "Constructor: $name";
}
print "$name
\n";
#print Dumper($invalue);
my $summary = $invalue->{summary};
$summary =~ s/^\s+|\s+$//g;
print "Summary: $summary
\n" if defined $invalue->{summary};
#if(defined $invalue->{returns})
#{
# if(UNIVERSAL::isa($invalue->{returns}, 'HASH'))
# {
# #print Dumper $invalue->{returns};
# }
# else
# {
# print "Returns: $invalue->{returns}
\n\n" if defined $invalue->{returns};
# }
#}
#if(defined $invalue->{param})
#{
# print "Parameters\n";
# print "
\n";
# while(my ($paramname, $description) = each $invalue->{param})
# {
#
# print "- $paramname :";
# #print Dumper $description;
# print $description->{content};
# print "
\n";
# }
# print "
\n";
#}
#print "\n";
}
# print "$inkey = \n";
# print Dumper($invalue);G
}
}
}
print "\n";