File Manager

X7ROOT File Manager

Current Path: /usr/local/lib64/perl5/XML/LibXML

usr / local / lib64 / perl5 / XML / LibXML /

?? ..
?? Attr.pod(4.02 KB)
?? AttributeHash.pm(4.49 KB)
?? Boolean.pm(1.56 KB)
?? CDATASection.pod(1.28 KB)
?? Comment.pod(1.36 KB)
?? Common.pm(8.2 KB)
?? Common.pod(3.59 KB)
?? DOM.pod(6.23 KB)
?? Devel.pm(4.91 KB)
?? Document.pod(21.09 KB)
?? DocumentFragment.pod(819 B)
?? Dtd.pod(1.99 KB)
?? Element.pod(13.48 KB)
?? ErrNo.pm(27.83 KB)
?? ErrNo.pod(591 B)
?? Error.pm(8.45 KB)
?? Error.pod(5.98 KB)
?? InputCallback.pod(9.59 KB)
?? Literal.pm(2.04 KB)
?? Namespace.pod(3.28 KB)
?? Node.pod(25.67 KB)
?? NodeList.pm(7.31 KB)
?? Number.pm(1.87 KB)
?? PI.pod(2.22 KB)
?? Parser.pod(27.79 KB)
?? Pattern.pod(2.91 KB)
?? Reader.pm(5.75 KB)
?? Reader.pod(17.6 KB)
?? RegExp.pod(1.54 KB)
?? RelaxNG.pod(2.34 KB)
?? SAX
?? SAX.pm(3.45 KB)
?? SAX.pod(1.76 KB)
?? Schema.pod(2.19 KB)
?? Text.pod(5.47 KB)
?? XPathContext.pm(3.15 KB)
?? XPathContext.pod(11.49 KB)
?? XPathExpression.pod(1.64 KB)

Editing: SAX.pm

# $Id$
#
# This is free software, you may use it and distribute it under the same terms as
# Perl itself.
#
# Copyright 2001-2003 AxKit.com Ltd., 2002-2006 Christian Glahn, 2006-2009 Petr Pajas
#
#

package XML::LibXML::SAX;

use strict;
use warnings;

use vars qw($VERSION @ISA);

$VERSION = "2.0210"; # VERSION TEMPLATE: DO NOT CHANGE

use XML::LibXML;
use XML::SAX::Base;

use parent qw(XML::SAX::Base);

use Carp;
use IO::File;

sub CLONE_SKIP {
  return $XML::LibXML::__threads_shared ? 0 : 1;
}

sub set_feature {
	my ($self, $feat, $val) = @_;

if ($feat eq 'http://xmlns.perl.org/sax/join-character-data') {
		$self->{JOIN_CHARACTERS} = $val;
		return 1;
	}

shift(@_);
	return $self->SUPER::set_feature(@_);
}

sub _parse_characterstream {
    my ( $self, $fh ) = @_;
    # this my catch the xml decl, so the parser won't get confused about
    # a possibly wrong encoding.
    croak( "not implemented yet" );
}

# See:
# https://rt.cpan.org/Public/Bug/Display.html?id=132759
sub _calc_new_XML_LibXML_parser_for_compatibility_with_XML_Simple_etc
{
    return XML::LibXML->new( expand_entities => 1, );
}

sub _parse_bytestream {
    my ( $self, $fh ) = @_;
    $self->{ParserOptions}{LibParser}      = $self->_calc_new_XML_LibXML_parser_for_compatibility_with_XML_Simple_etc() unless defined $self->{ParserOptions}{LibParser};
    $self->{ParserOptions}{ParseFunc}      = \&XML::LibXML::parse_fh;
    $self->{ParserOptions}{ParseFuncParam} = $fh;
    $self->_parse;
    return $self->end_document({});
}

sub _parse_string {
    my ( $self, $string ) = @_;
    $self->{ParserOptions}{LibParser}      = $self->_calc_new_XML_LibXML_parser_for_compatibility_with_XML_Simple_etc() unless defined $self->{ParserOptions}{LibParser};
    $self->{ParserOptions}{ParseFunc}      = \&XML::LibXML::parse_string;
    $self->{ParserOptions}{ParseFuncParam} = $string;
    $self->_parse;
    return $self->end_document({});
}

sub _parse_systemid {
    my $self = shift;
    $self->{ParserOptions}{LibParser}      = $self->_calc_new_XML_LibXML_parser_for_compatibility_with_XML_Simple_etc() unless defined $self->{ParserOptions}{LibParser};
    $self->{ParserOptions}{ParseFunc}      = \&XML::LibXML::parse_file;
    $self->{ParserOptions}{ParseFuncParam} = shift;
    $self->_parse;
    return $self->end_document({});
}

sub parse_chunk {
    my ( $self, $chunk ) = @_;
    $self->{ParserOptions}{LibParser}      = $self->_calc_new_XML_LibXML_parser_for_compatibility_with_XML_Simple_etc() unless defined $self->{ParserOptions}{LibParser};
    $self->{ParserOptions}{ParseFunc}      = \&XML::LibXML::parse_xml_chunk;
    $self->{ParserOptions}{LibParser}->{IS_FILTER}=1; # a hack to prevent parse_xml_chunk from issuing end_document
    $self->{ParserOptions}{ParseFuncParam} = $chunk;
    $self->_parse;
    return;
}

sub _parse {
    my $self = shift;
    my $args = bless $self->{ParserOptions}, ref($self);

if (defined($self->{JOIN_CHARACTERS})) {
    	$args->{LibParser}->{JOIN_CHARACTERS} = $self->{JOIN_CHARACTERS};
    } else {
    	$args->{LibParser}->{JOIN_CHARACTERS} = 0;
    }

$args->{LibParser}->set_handler( $self );
    eval {
      $args->{ParseFunc}->($args->{LibParser}, $args->{ParseFuncParam});
    };

if ( $args->{LibParser}->{SAX}->{State} == 1 ) {
        croak( "SAX Exception not implemented, yet; Data ended before document ended\n" );
    }

# break a possible circular reference
    $args->{LibParser}->set_handler( undef );
    if ( $@ ) {
        croak $@;
    }
    return;
}

X7ROOT File Manager

Editing: SAX.pm

Upload File

Create Folder