/usr/share/perl5/XML/Filter/SAXT.pm is in libxml-filter-saxt-perl 0.01-7.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 | #
# To do:
# - later: ErrorHandler, Locale?
package XML::Filter::SAXT;
use strict;
use vars qw( $VERSION %SAX_HANDLERS );
$VERSION = 0.01;
%SAX_HANDLERS = ( DocumentHandler =>
[ "start_document",
"end_document",
"start_element",
"end_element",
"characters",
"processing_instruction",
"comment",
"start_cdata",
"end_cdata",
"entity_reference",
"set_document_locator" # !! passes {Locator=>$perlsax}
],
DTDHandler =>
[ "notation_decl",
"unparsed_entity_decl",
"entity_decl",
"element_decl",
"attlist_decl",
"doctype_decl",
"xml_decl"
],
EntityResolver =>
[ "resolve_entity" ]);
#
# Usage:
#
# $saxt = new XML::Filter::SAXT ( { Handler => $out0 },
# { DocumentHandler => $out1 },
# { DTDHandler => $out3,
# Handler => $out4
# }
# );
#
# $perlsax = new XML::Parser::PerlSAX ( Handler => $saxt );
# $perlsax->parse ( [OPTIONS] );
#
sub new
{
my ($class, @out) = @_;
my $self = bless { Out => \@out }, $class;
for (my $i = 0; $i < @out; $i++)
{
for my $handler (keys %SAX_HANDLERS)
{
my $callbacks = $SAX_HANDLERS{$handler};
my $h = ($self->{Out}->[$i]->{$handler} ||= $self->{Out}->[$i]->{Handler});
next unless defined $h;
for my $cb (@$callbacks)
{
if (UNIVERSAL::can ($h, $cb))
{
$self->{$cb} .= "\$out->[$i]->{$handler}->$cb (\@_);\n";
}
}
}
}
for my $handler (keys %SAX_HANDLERS)
{
my $callbacks = $SAX_HANDLERS{$handler};
for my $cb (@$callbacks)
{
my $code = $self->{$cb};
if (defined $code)
{
$self->{$cb} =
eval "sub { my \$out = shift->{Out}; $code }";
}
else
{
$self->{$cb} = \&noop;
}
}
}
return $self;
}
sub noop
{
# does nothing
}
for my $cb (map { @{ $_ } } values %SAX_HANDLERS)
{
eval "sub $cb { shift->{$cb}->(\@_); }";
}
1; # package return code
__END__
=head1 NAME
XML::Filter::SAXT - Replicates SAX events to several SAX event handlers
=head1 SYNOPSIS
$saxt = new XML::Filter::SAXT ( { Handler => $out1 },
{ DocumentHandler => $out2 },
{ DTDHandler => $out3,
Handler => $out4
}
);
$perlsax = new XML::Parser::PerlSAX ( Handler => $saxt );
$perlsax->parse ( [OPTIONS] );
=head1 DESCRIPTION
SAXT is like the Unix 'tee' command in that it multiplexes the input stream
to several output streams. In this case, the input stream is a PerlSAX event
producer (like XML::Parser::PerlSAX) and the output streams are PerlSAX
handlers or filters.
The SAXT constructor takes a list of hash references. Each hash specifies
an output handler. The hash keys can be: DocumentHandler, DTDHandler,
EntityResolver or Handler, where Handler is a combination of the previous three
and acts as the default handler.
E.g. if DocumentHandler is not specified, it will try to use Handler.
=head2 EXAMPLE
In this example we use L<XML::Parser::PerlSAX> to parse an XML file and
to invoke the PerlSAX callbacks of our SAXT object. The SAXT object then
forwards the callbacks to L<XML::Checker>, which will 'die' if it encounters
an error, and to L<XML::Handler::BuildDOM>, which will store the XML in an
L<XML::DOM::Document>.
use XML::Parser::PerlSAX;
use XML::Filter::SAXT;
use XML::Handler::BuildDOM;
use XML::Checker;
my $checker = new XML::Checker;
my $builder = new XML::Handler::BuildDOM (KeepCDATA => 1);
my $tee = new XML::Filter::SAXT ( { Handler => $checker },
{ Handler => $builder } );
my $parser = new XML::Parser::PerlSAX (Handler => $tee);
eval
{
# This is how you set the error handler for XML::Checker
local $XML::Checker::FAIL = \&my_fail;
my $dom_document = $parser->parsefile ("file.xml");
... your code here ...
};
if ($@)
{
# Either XML::Parser::PerlSAX threw an exception (bad XML)
# or XML::Checker found an error and my_fail died.
... your error handling code here ...
}
# XML::Checker error handler
sub my_fail
{
my $code = shift;
die XML::Checker::error_string ($code, @_)
if $code < 200; # warnings and info messages are >= 200
}
=head1 CAVEATS
This is still alpha software.
Package names and interfaces are subject to change.
=head1 AUTHOR
Enno Dersken is the original author.
Send bug reports, hints, tips, suggestions to T.J. Mather at
<F<tjmather@tjmather.com>>.
|