#!/usr/bin/perl -w
#############################################
#
# Pretty-printing some XML blocks using
# the XML::Handler::YAWriter XML SAX filter
#
# Jim M, June 2002
##############################################

formatxml(qq{<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:xsd="http://www.w3.org/1999/XMLSchema"><SOAP-ENV:Body><namesp1:getGenderResponse xmlns:namesp1="ExamineNames"><s-gensym3 xsi:type="xsd:string">male</s-gensym3></namesp1:getGenderResponse></SOAP-ENV:Body></SOAP-ENV:Envelope>});

formatxml(qq{<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:xsd="http://www.w3.org/1999/XMLSchema"><SOAP-ENV:Body><namesp1:getGender xmlns:namesp1="ExamineNames"><c-gensym3 xsi:type="xsd:string">Mark</c-gensym3></namesp1:getGender></SOAP-ENV:Body></SOAP-ENV:Envelope>});

# -------------------------------------------------------------

sub formatxml {
  my ($xml) = @_;
  use XML::Parser::PerlSAX;
  use XML::Handler::YAWriter;
  my $ya = new XML::Handler::YAWriter( );
  $ya->{Pretty} = { PrettyWhiteIndent => 1,
		    PrettyWhiteNewline => 1,  
		  };
  XML::Parser::PerlSAX->new( Handler => $ya )->parse($xml);
  print "\n";
  print @{$ya->{Strings}};
  print "\n"x2;
}