#!/bin/perl
use strict;
use warnings;
use XML::Twig;

my $twig_handlers = {
                     'panoply/classes' => \&class_info,
                     'panoply/files' => \&file_info,
					 'panoply/namespaces' => \&namespace_info,
					};

		
my $twig1;
my @xfiles = @ARGV;
foreach my $xfile (@xfiles) {
  $twig1 = new XML::Twig(ignore_elts => { brief => 'discard', detailed => 'discard', includes => 'discard', included_by => 'discard', reimplemented_by => 'discard' }, TwigRoots => {panoply => 1}, TwigHandlers => $twig_handlers);
  eval { $twig1->parsefile( $xfile ) };
  die "can't parse file: $@" if $@;
}

sub class_info {
  my ($twig, $class) = @_;
  $class->set_pretty_print( 'indented' );
  $class->print;
}

sub file_info {
  my ($twig, $file) = @_;
  $file->set_pretty_print( 'indented' );
  $file->print;
}

sub namespace_info {
  my ($twig, $nsp) = @_;
  $nsp->set_pretty_print( 'indented' );
  $nsp->print;
}