#!/usr/bin/perl -w

use strict;
use XML::Simple;
use XML::LibXML;
use diagnostics;
use Time::HiRes qw(gettimeofday);

package MyXMLSimple;
use base 'XML::Simple';

sub sorted_keys { my ( $self, $name, $hashref ) = @_; return sort { main::element_order($a) <=> main::element_order($b) } keys(%{$hashref}); };

package main;

#load xmlfile using XMLin (creating hashref)
my $file =  $ARGV[0];
my $reps = $ARGV[1] || 1;

my $xml = XMLin( $file);

our $dom;

our %ELEMENTORDER  = ( Process => 1, Filter => 2, Field => 3, ZName => 4);

my $before = gettimeofday();
my $xso;
foreach my $i (0..$reps) {
$xso = xmlsimple_output($xml);
}
my $xso_time = sprintf("%0.3f", (gettimeofday() - $before) * 1000);

print "=========================XML Simple outptut ==============================\n";
print $xso;

$before = gettimeofday();
my $lxo;
foreach my $i (0..$reps) {
$lxo = libxml_output($xml);
}
my $lxo_time = sprintf("%0.3f", (gettimeofday() - $before) * 1000);
print "=========================Lib XML outptut =============================\n=";
print $lxo;

print "====================TIMINGS=======================\n";
print "LibXML time for $reps rep(s): $lxo_time ms\n";
print "XML Simple time for $reps rep(s): $xso_time ms\n";
#print keys %{$xml->{Process}->[0]->{LongDescription}->{content}};

#loads (above) into an XML::LibXML object using a recursive method
sub element_order
{
	my $element_name = shift;
	return $ELEMENTORDER{$element_name} || 9999999;
}

sub add_nodes_hash
{
	#first time $xml will be the file, after that it will be the hash or array ref
	# $is_child is a flag to see if it wants to be added as like a root node, or part of a nest
	my $xml = shift;
	my $parent_element = shift;
	
	foreach my $node (sort {element_order($a) <=> element_order($b)} keys %{$xml})
#	foreach my $node (keys %{$xml})
	{
		#next if ($node =~/\//);		
		if (ref($xml->{$node}) eq 'HASH')
		{
			my $element = $dom->createElement( $node );
			$parent_element->insertAfter($element,undef);
			add_nodes_hash($xml->{$node},$element);
		}
		if (ref( $xml->{$node} ) eq 'ARRAY')
		{
			
			foreach my $array_element (@{$xml->{$node}})
			{
				if (ref($array_element) eq 'HASH')
				{
					my $element = $dom->createElement( $node );
					my @attributes = $element->attributes();
					$parent_element->insertAfter($element,undef);
					add_nodes_hash($array_element,$element);
				}
				elsif (!ref( $xml->{$node} ) && ($xml->{$node}))
				{
					my $element = $dom->createElement( $node );
					$element->appendText($xml->{$node});
					$parent_element->insertAfter($element,undef);
				}
			}
		}
		elsif (!ref( $xml->{$node} ) && ($xml->{$node}))
		{
			my $element = $dom->createElement( $node );
			$element->appendText($xml->{$node});
			$parent_element->insertAfter($element,undef);
		}	
	}
	return $dom;
}



#use toString() to print it out

#print add_nodes_hash($xml,0)->toString;


sub libxml_output {
my $xml = shift;
#create the dom object
$dom = XML::LibXML::Document->new();


my $root = $dom->createElement('Zymonic');
$dom->setDocumentElement($root);
add_nodes_hash($xml, $root);
return $dom->toString(1);

}

sub xmlsimple_output {
my $xml = shift;
my $parser = MyXMLSimple->new( KeyAttr => [], RootName => 'Zymonic' );
return $parser->XMLout($xml,
        KeyAttr       => [],
        RootName      => 'Zymonic',
        NoEscape      => 1,
        SuppressEmpty => 1
);
}