You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2006/09/11 12:08:11 UTC
svn commit: r442160 [7/8] - in /xerces/c/trunk/swig: interfaces/
interfaces/Perl/ perl/ perl/DOM/ perl/Handler/ perl/Transcoder/
perl/samples/ perl/t/
Modified: xerces/c/trunk/swig/perl/Xerces.pm
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/Xerces.pm?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/Xerces.pm (original)
+++ xerces/c/trunk/swig/perl/Xerces.pm Mon Sep 11 03:08:07 2006
@@ -19,6 +19,7 @@
package XML::Xerces;
require Exporter;
require DynaLoader;
+use vars qw(@ISA);
@ISA = qw(Exporter DynaLoader);
package XML::Xercesc;
bootstrap XML::Xerces;
@@ -30,7 +31,7 @@
use Carp;
use vars qw(@EXPORT_OK $VERSION %REMEMBER);
@EXPORT_OK = qw(error);
-$VERSION = 260.2;
+$VERSION = 300.060829;
#
# Cleanup removes all objects being remembered by an object
@@ -656,28 +657,6 @@
return %hash;
}
-package XML::Xerces::DOMNodeList;
-# convert the NodeList to a perl list
-sub to_list {
- my $self = shift;
- my @list;
- for (my $i=0;$i<$self->getLength();$i++) {
- push(@list,$self->item($i));
- }
- return @list;
-}
-
-package XML::Xerces::DOMStringList;
-# convert the StringList to a perl list
-sub to_list {
- my $self = shift;
- my @list;
- for (my $i=0;$i<$self->getLength();$i++) {
- push(@list,$self->item($i));
- }
- return @list;
-}
-
package XML::Xerces::Attributes;
sub to_hash {
my $self = shift;
@@ -702,186 +681,6 @@
return %hash;
}
-package XML::Xerces::DOMNamedNodeMap;
-# convert the NamedNodeMap to a perl hash
-sub to_hash {
- my $self = shift;
- my @list;
- for (my $i=0;$i<$self->getLength();$i++) {
- my $node = $self->item($i);
- push(@list, $node->to_hash());
- }
- return @list;
-}
-
-package XML::Xerces::DOMNode;
-sub to_hash {
- my $self = shift;
- return ($self->getNodeName,$self->getNodeValue);
-}
-
-sub quote_content {
- my ($self,$node_value) = @_;
-
- $node_value =~ s/&/&/g;
- $node_value =~ s/</</g;
- $node_value =~ s/>/>/g;
- $node_value =~ s/\"/"/g;
- $node_value =~ s/\'/'/g;
-
- return $node_value;
-}
-
-package XML::Xerces::DOMEntity;
-sub to_hash {
- my $self = shift;
- if ($self->hasChildNodes) {
- return ($self->getNodeName(),
- $self->getFirstChild->getNodeValue());
- } else {
- return ($self->getNodeName(), '');
- }
-}
-
-package XML::Xerces::DOMText;
-sub serialize {
- return $_[0]->quote_content($_[0]->getNodeValue);
-}
-
-package XML::Xerces::DOMProcessingInstruction;
-sub serialize {
- my $output .= '<?' . $_[0]->getNodeName;
- if (length(my $str = $_[0]->getNodeValue)) {
- $output .= " $str";
- }
- $output .= '?>';
- return $output;
-}
-
-package XML::Xerces::DOMDocument;
-sub serialize {
- my $output;
- my $indent = 2;
- for(my $child = $_[0]->getFirstChild() ;
- defined $child ;
- $child = $child->getNextSibling())
- {
- $output .= $child->serialize($indent);
- }
- return "$output\n";
-}
-
-package XML::Xerces::DOMElement;
-sub serialize {
- my ($self,$indent) = @_;
- $indent ||= 0;
- my $output;
- ELEMENT: {
- my $node_name = $self->getNodeName;
- $output .= "<$node_name";
-
- my $attributes = $self->getAttributes;
- my $attribute_count = $attributes->getLength;
-
- for(my $ix = 0 ; $ix < $attribute_count ; ++$ix) {
- my $attribute = $attributes->item($ix);
- $output .= ' ' . $attribute->getNodeName . '="' . $self->quote_content($attribute->getNodeValue) . '"';
- }
-
- my $child = $self->getFirstChild();
- if (!defined $child) {
- $output .= '/>';
- last ELEMENT;
- }
-
- $output .= '>';
- while (defined $child) {
- $output .= $child->serialize($indent+2);
- $child = $child->getNextSibling();
- }
- $output .= "</$node_name>";
- }
- return $output;
-}
-
-package XML::Xerces::DOMEntityReference;
-sub serialize {
- my ($self) = @_;
- my $output;
- for(my $child = $self->getFirstChild() ;
- defined $child;
- $child = $child->getNextSibling())
- {
- $output .= $child->serialize();
- }
- return $output;
-}
-
-package XML::Xerces::DOMCDATASection;
-sub serialize {
- return '<![CDATA[' . $_[0]->getNodeValue . ']]>';
-}
-
-package XML::Xerces::DOMComment;
-sub serialize {
- return '<!--' . $_[0]->getNodeValue . "-->\n";
-}
-
-package XML::Xerces::DOMDocumentType;
-sub serialize {
- my $output;
- $output .= '<!DOCTYPE ' . $_[0]->getNodeName;
-
- my $id;
- if ($id = $_[0]->getPublicId) {
- $output .= qq[ PUBLIC "$id"];
- if ($id = $_[0]->getSystemId) {
- $output .= qq[ "$id"];
- }
- } elsif ($id = $_[0]->getSystemId) {
- $output .= qq[ SYSTEM "$id"];
- }
-
- if ($id = $_[0]->getInternalSubset) {
- $output .= " [$id]";
- }
-
- $output .= ">\n";
- return $output;
-}
-
-package XML::Xerces::DOMEntity;
-sub serialize {
- my $output;
- $output .= '<!ENTITY ' . $_[0]->getNodeName;
-
- my $id;
- if ($id = $_[0]->getPublicId) { $output .= qq[ PUBLIC "$id"]; }
- if ($id = $_[0]->getSystemId) { $output .= qq[ SYSTEM "$id"]; }
- if ($id = $_[0]->getNotationName) { $output .= qq[ NDATA "$id"]; }
-
- $output .= '>';
- return $output;
-}
-
-package XML::Xerces::DOMException;
-sub getMessage {
- return shift->{msg};
-}
-
-sub getCode {
- return shift->{code};
-}
-
-# in previous versions we needed to define this method
-# but it is now obsolete
-package XML::Xerces::DOMElement;
-sub get_text {
- my $self = shift;
- warn "XML::Xerces::DOMElement::get_text is depricated, use getTextContent instead";
- return $self->getTextContent(@_);
-}
-
package XML::Xerces::XMLCatalogResolver;
use strict;
use Carp;
@@ -3391,52 +3190,25 @@
}
-############# Class : XML::Xerces::DOMException ##############
+############# Class : XML::Xerces::SAXException ##############
-package XML::Xerces::DOMException;
+package XML::Xerces::SAXException;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_DOMException(@_);
- bless $self, $pkg if defined($self);
-}
-
sub DESTROY {
return unless $_[0]->isa('HASH');
my $self = tied(%{$_[0]});
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMException($self);
+ XML::Xercesc::delete_SAXException($self);
delete $OWNER{$self};
}
}
-*INDEX_SIZE_ERR = *XML::Xercesc::DOMException_INDEX_SIZE_ERR;
-*DOMSTRING_SIZE_ERR = *XML::Xercesc::DOMException_DOMSTRING_SIZE_ERR;
-*HIERARCHY_REQUEST_ERR = *XML::Xercesc::DOMException_HIERARCHY_REQUEST_ERR;
-*WRONG_DOCUMENT_ERR = *XML::Xercesc::DOMException_WRONG_DOCUMENT_ERR;
-*INVALID_CHARACTER_ERR = *XML::Xercesc::DOMException_INVALID_CHARACTER_ERR;
-*NO_DATA_ALLOWED_ERR = *XML::Xercesc::DOMException_NO_DATA_ALLOWED_ERR;
-*NO_MODIFICATION_ALLOWED_ERR = *XML::Xercesc::DOMException_NO_MODIFICATION_ALLOWED_ERR;
-*NOT_FOUND_ERR = *XML::Xercesc::DOMException_NOT_FOUND_ERR;
-*NOT_SUPPORTED_ERR = *XML::Xercesc::DOMException_NOT_SUPPORTED_ERR;
-*INUSE_ATTRIBUTE_ERR = *XML::Xercesc::DOMException_INUSE_ATTRIBUTE_ERR;
-*INVALID_STATE_ERR = *XML::Xercesc::DOMException_INVALID_STATE_ERR;
-*SYNTAX_ERR = *XML::Xercesc::DOMException_SYNTAX_ERR;
-*INVALID_MODIFICATION_ERR = *XML::Xercesc::DOMException_INVALID_MODIFICATION_ERR;
-*NAMESPACE_ERR = *XML::Xercesc::DOMException_NAMESPACE_ERR;
-*INVALID_ACCESS_ERR = *XML::Xercesc::DOMException_INVALID_ACCESS_ERR;
-*VALIDATION_ERR = *XML::Xercesc::DOMException_VALIDATION_ERR;
-*TYPE_MISMATCH_ERR = *XML::Xercesc::DOMException_TYPE_MISMATCH_ERR;
-*getMessage = *XML::Xercesc::DOMException_getMessage;
-*swig_code_get = *XML::Xercesc::DOMException_code_get;
-*swig_code_set = *XML::Xercesc::DOMException_code_set;
-*swig_msg_get = *XML::Xercesc::DOMException_msg_get;
-*swig_msg_set = *XML::Xercesc::DOMException_msg_set;
+*getMessage = *XML::Xercesc::SAXException_getMessage;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3450,103 +3222,30 @@
}
-############# Class : XML::Xerces::DOMNode ##############
+############# Class : XML::Xerces::SAXNotSupportedException ##############
-package XML::Xerces::DOMNode;
-use overload
- "!=" => sub { $_[0]->__ne__($_[1])},
- "==" => sub { $_[0]->__eq__($_[1])},
- "fallback" => 1;
+package XML::Xerces::SAXNotSupportedException;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
+@ISA = qw( XML::Xerces::SAXException XML::Xerces );
%OWNER = ();
%ITERATORS = ();
+sub new {
+ my $pkg = shift;
+ my $self = XML::Xercesc::new_SAXNotSupportedException(@_);
+ bless $self, $pkg if defined($self);
+}
+
sub DESTROY {
return unless $_[0]->isa('HASH');
my $self = tied(%{$_[0]});
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMNode($self);
+ XML::Xercesc::delete_SAXNotSupportedException($self);
delete $OWNER{$self};
}
}
-*ELEMENT_NODE = *XML::Xercesc::DOMNode_ELEMENT_NODE;
-*ATTRIBUTE_NODE = *XML::Xercesc::DOMNode_ATTRIBUTE_NODE;
-*TEXT_NODE = *XML::Xercesc::DOMNode_TEXT_NODE;
-*CDATA_SECTION_NODE = *XML::Xercesc::DOMNode_CDATA_SECTION_NODE;
-*ENTITY_REFERENCE_NODE = *XML::Xercesc::DOMNode_ENTITY_REFERENCE_NODE;
-*ENTITY_NODE = *XML::Xercesc::DOMNode_ENTITY_NODE;
-*PROCESSING_INSTRUCTION_NODE = *XML::Xercesc::DOMNode_PROCESSING_INSTRUCTION_NODE;
-*COMMENT_NODE = *XML::Xercesc::DOMNode_COMMENT_NODE;
-*DOCUMENT_NODE = *XML::Xercesc::DOMNode_DOCUMENT_NODE;
-*DOCUMENT_TYPE_NODE = *XML::Xercesc::DOMNode_DOCUMENT_TYPE_NODE;
-*DOCUMENT_FRAGMENT_NODE = *XML::Xercesc::DOMNode_DOCUMENT_FRAGMENT_NODE;
-*NOTATION_NODE = *XML::Xercesc::DOMNode_NOTATION_NODE;
-*DOCUMENT_POSITION_DISCONNECTED = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_DISCONNECTED;
-*DOCUMENT_POSITION_PRECEDING = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_PRECEDING;
-*DOCUMENT_POSITION_FOLLOWING = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_FOLLOWING;
-*DOCUMENT_POSITION_CONTAINS = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_CONTAINS;
-*DOCUMENT_POSITION_CONTAINED_BY = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_CONTAINED_BY;
-*DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC;
-*getNodeName = *XML::Xercesc::DOMNode_getNodeName;
-*getNodeValue = *XML::Xercesc::DOMNode_getNodeValue;
-*getNodeType = *XML::Xercesc::DOMNode_getNodeType;
-*getParentNode = *XML::Xercesc::DOMNode_getParentNode;
-sub getChildNodes {
- my $result = XML::Xercesc::DOMNode_getChildNodes (@_);
- unless (defined$result) {
- return () if wantarray;
- return undef;#if *not* wantarray
- }
- return $result->to_list() if wantarray;
- return $result;#if *not* wantarray
-}
-
-*getFirstChild = *XML::Xercesc::DOMNode_getFirstChild;
-*getLastChild = *XML::Xercesc::DOMNode_getLastChild;
-*getPreviousSibling = *XML::Xercesc::DOMNode_getPreviousSibling;
-*getNextSibling = *XML::Xercesc::DOMNode_getNextSibling;
-sub getAttributes {
- my $result = XML::Xercesc::DOMNode_getAttributes (@_);
- unless (defined$result) {
- return () if wantarray;
- return undef;#if *not* wantarray
- }
- return $result->to_hash() if wantarray;
- return $result;#if *not* wantarray
-}
-
-*getOwnerDocument = *XML::Xercesc::DOMNode_getOwnerDocument;
-*cloneNode = *XML::Xercesc::DOMNode_cloneNode;
-*insertBefore = *XML::Xercesc::DOMNode_insertBefore;
-*replaceChild = *XML::Xercesc::DOMNode_replaceChild;
-*removeChild = *XML::Xercesc::DOMNode_removeChild;
-*appendChild = *XML::Xercesc::DOMNode_appendChild;
-*hasChildNodes = *XML::Xercesc::DOMNode_hasChildNodes;
-*setNodeValue = *XML::Xercesc::DOMNode_setNodeValue;
-*normalize = *XML::Xercesc::DOMNode_normalize;
-*isSupported = *XML::Xercesc::DOMNode_isSupported;
-*getNamespaceURI = *XML::Xercesc::DOMNode_getNamespaceURI;
-*getLocalName = *XML::Xercesc::DOMNode_getLocalName;
-*setPrefix = *XML::Xercesc::DOMNode_setPrefix;
-*hasAttributes = *XML::Xercesc::DOMNode_hasAttributes;
-*isSameNode = *XML::Xercesc::DOMNode_isSameNode;
-*isEqualNode = *XML::Xercesc::DOMNode_isEqualNode;
-*setUserData = *XML::Xercesc::DOMNode_setUserData;
-*getUserData = *XML::Xercesc::DOMNode_getUserData;
-*getBaseURI = *XML::Xercesc::DOMNode_getBaseURI;
-*compareDocumentPosition = *XML::Xercesc::DOMNode_compareDocumentPosition;
-*getTextContent = *XML::Xercesc::DOMNode_getTextContent;
-*setTextContent = *XML::Xercesc::DOMNode_setTextContent;
-*lookupPrefix = *XML::Xercesc::DOMNode_lookupPrefix;
-*isDefaultNamespace = *XML::Xercesc::DOMNode_isDefaultNamespace;
-*lookupNamespaceURI = *XML::Xercesc::DOMNode_lookupNamespaceURI;
-*getFeature = *XML::Xercesc::DOMNode_getFeature;
-*release = *XML::Xercesc::DOMNode_release;
-*__eq__ = *XML::Xercesc::DOMNode___eq__;
-*__ne__ = *XML::Xercesc::DOMNode___ne__;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3560,31 +3259,30 @@
}
-############# Class : XML::Xerces::DOMAttr ##############
+############# Class : XML::Xerces::SAXNotRecognizedException ##############
-package XML::Xerces::DOMAttr;
+package XML::Xerces::SAXNotRecognizedException;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
+@ISA = qw( XML::Xerces::SAXException XML::Xerces );
%OWNER = ();
%ITERATORS = ();
+sub new {
+ my $pkg = shift;
+ my $self = XML::Xercesc::new_SAXNotRecognizedException(@_);
+ bless $self, $pkg if defined($self);
+}
+
sub DESTROY {
return unless $_[0]->isa('HASH');
my $self = tied(%{$_[0]});
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMAttr($self);
+ XML::Xercesc::delete_SAXNotRecognizedException($self);
delete $OWNER{$self};
}
}
-*getName = *XML::Xercesc::DOMAttr_getName;
-*getSpecified = *XML::Xercesc::DOMAttr_getSpecified;
-*getValue = *XML::Xercesc::DOMAttr_getValue;
-*setValue = *XML::Xercesc::DOMAttr_setValue;
-*getOwnerElement = *XML::Xercesc::DOMAttr_getOwnerElement;
-*isId = *XML::Xercesc::DOMAttr_isId;
-*getSchemaTypeInfo = *XML::Xercesc::DOMAttr_getSchemaTypeInfo;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3598,11 +3296,11 @@
}
-############# Class : XML::Xerces::DOMElement ##############
+############# Class : XML::Xerces::SAXParseException ##############
-package XML::Xerces::DOMElement;
+package XML::Xerces::SAXParseException;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
+@ISA = qw( XML::Xerces::SAXException XML::Xerces );
%OWNER = ();
%ITERATORS = ();
sub DESTROY {
@@ -3611,49 +3309,15 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMElement($self);
+ XML::Xercesc::delete_SAXParseException($self);
delete $OWNER{$self};
}
}
-*getTagName = *XML::Xercesc::DOMElement_getTagName;
-*getAttribute = *XML::Xercesc::DOMElement_getAttribute;
-*getAttributeNode = *XML::Xercesc::DOMElement_getAttributeNode;
-sub getElementsByTagName {
- my $result = XML::Xercesc::DOMElement_getElementsByTagName (@_);
- unless (defined$result) {
- return () if wantarray;
- return undef;#if *not* wantarray
- }
- return $result->to_list() if wantarray;
- return $result;#if *not* wantarray
-}
-
-*setAttribute = *XML::Xercesc::DOMElement_setAttribute;
-*setAttributeNode = *XML::Xercesc::DOMElement_setAttributeNode;
-*removeAttributeNode = *XML::Xercesc::DOMElement_removeAttributeNode;
-*removeAttribute = *XML::Xercesc::DOMElement_removeAttribute;
-*getAttributeNS = *XML::Xercesc::DOMElement_getAttributeNS;
-*setAttributeNS = *XML::Xercesc::DOMElement_setAttributeNS;
-*removeAttributeNS = *XML::Xercesc::DOMElement_removeAttributeNS;
-*getAttributeNodeNS = *XML::Xercesc::DOMElement_getAttributeNodeNS;
-*setAttributeNodeNS = *XML::Xercesc::DOMElement_setAttributeNodeNS;
-sub getElementsByTagNameNS {
- my $result = XML::Xercesc::DOMElement_getElementsByTagNameNS (@_);
- unless (defined$result) {
- return () if wantarray;
- return undef;#if *not* wantarray
- }
- return $result->to_list() if wantarray;
- return $result;#if *not* wantarray
-}
-
-*hasAttribute = *XML::Xercesc::DOMElement_hasAttribute;
-*hasAttributeNS = *XML::Xercesc::DOMElement_hasAttributeNS;
-*setIdAttribute = *XML::Xercesc::DOMElement_setIdAttribute;
-*setIdAttributeNS = *XML::Xercesc::DOMElement_setIdAttributeNS;
-*setIdAttributeNode = *XML::Xercesc::DOMElement_setIdAttributeNode;
-*getSchemaTypeInfo = *XML::Xercesc::DOMElement_getSchemaTypeInfo;
+*getColumnNumber = *XML::Xercesc::SAXParseException_getColumnNumber;
+*getLineNumber = *XML::Xercesc::SAXParseException_getLineNumber;
+*getPublicId = *XML::Xercesc::SAXParseException_getPublicId;
+*getSystemId = *XML::Xercesc::SAXParseException_getSystemId;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3667,11 +3331,11 @@
}
-############# Class : XML::Xerces::DOMEntity ##############
+############# Class : XML::Xerces::ErrorHandler ##############
-package XML::Xerces::DOMEntity;
+package XML::Xerces::ErrorHandler;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
+@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
sub DESTROY {
@@ -3680,17 +3344,15 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMEntity($self);
+ XML::Xercesc::delete_ErrorHandler($self);
delete $OWNER{$self};
}
}
-*getPublicId = *XML::Xercesc::DOMEntity_getPublicId;
-*getSystemId = *XML::Xercesc::DOMEntity_getSystemId;
-*getNotationName = *XML::Xercesc::DOMEntity_getNotationName;
-*getInputEncoding = *XML::Xercesc::DOMEntity_getInputEncoding;
-*getXmlEncoding = *XML::Xercesc::DOMEntity_getXmlEncoding;
-*getXmlVersion = *XML::Xercesc::DOMEntity_getXmlVersion;
+*warning = *XML::Xercesc::ErrorHandler_warning;
+*error = *XML::Xercesc::ErrorHandler_error;
+*fatalError = *XML::Xercesc::ErrorHandler_fatalError;
+*resetErrors = *XML::Xercesc::ErrorHandler_resetErrors;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3704,11 +3366,11 @@
}
-############# Class : XML::Xerces::DOMDocumentType ##############
+############# Class : XML::Xerces::DTDHandler ##############
-package XML::Xerces::DOMDocumentType;
+package XML::Xerces::DTDHandler;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
+@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
sub DESTROY {
@@ -3717,35 +3379,12 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMDocumentType($self);
+ XML::Xercesc::delete_DTDHandler($self);
delete $OWNER{$self};
}
}
-*getName = *XML::Xercesc::DOMDocumentType_getName;
-sub getEntities {
- my $result = XML::Xercesc::DOMDocumentType_getEntities (@_);
- unless (defined$result) {
- return () if wantarray;
- return undef;#if *not* wantarray
- }
- return $result->to_hash() if wantarray;
- return $result;#if *not* wantarray
-}
-
-sub getNotations {
- my $result = XML::Xercesc::DOMDocumentType_getNotations (@_);
- unless (defined$result) {
- return () if wantarray;
- return undef;#if *not* wantarray
- }
- return $result->to_hash() if wantarray;
- return $result;#if *not* wantarray
-}
-
-*getPublicId = *XML::Xercesc::DOMDocumentType_getPublicId;
-*getSystemId = *XML::Xercesc::DOMDocumentType_getSystemId;
-*getInternalSubset = *XML::Xercesc::DOMDocumentType_getInternalSubset;
+*unparsedEntityDecl = *XML::Xercesc::DTDHandler_unparsedEntityDecl;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3759,11 +3398,11 @@
}
-############# Class : XML::Xerces::DOMCharacterData ##############
+############# Class : XML::Xerces::DocumentHandler ##############
-package XML::Xerces::DOMCharacterData;
+package XML::Xerces::DocumentHandler;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
+@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
sub DESTROY {
@@ -3772,19 +3411,14 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMCharacterData($self);
+ XML::Xercesc::delete_DocumentHandler($self);
delete $OWNER{$self};
}
}
-*getData = *XML::Xercesc::DOMCharacterData_getData;
-*getLength = *XML::Xercesc::DOMCharacterData_getLength;
-*substringData = *XML::Xercesc::DOMCharacterData_substringData;
-*appendData = *XML::Xercesc::DOMCharacterData_appendData;
-*insertData = *XML::Xercesc::DOMCharacterData_insertData;
-*deleteData = *XML::Xercesc::DOMCharacterData_deleteData;
-*replaceData = *XML::Xercesc::DOMCharacterData_replaceData;
-*setData = *XML::Xercesc::DOMCharacterData_setData;
+*characters = *XML::Xercesc::DocumentHandler_characters;
+*processingInstruction = *XML::Xercesc::DocumentHandler_processingInstruction;
+*setDocumentLocator = *XML::Xercesc::DocumentHandler_setDocumentLocator;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3798,11 +3432,11 @@
}
-############# Class : XML::Xerces::DOMComment ##############
+############# Class : XML::Xerces::EntityResolver ##############
-package XML::Xerces::DOMComment;
+package XML::Xerces::EntityResolver;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMCharacterData XML::Xerces );
+@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
sub DESTROY {
@@ -3811,7 +3445,7 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMComment($self);
+ XML::Xercesc::delete_EntityResolver($self);
delete $OWNER{$self};
}
}
@@ -3829,11 +3463,11 @@
}
-############# Class : XML::Xerces::DOMText ##############
+############# Class : XML::Xerces::AttributeList ##############
-package XML::Xerces::DOMText;
+package XML::Xerces::AttributeList;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMCharacterData XML::Xerces );
+@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
sub DESTROY {
@@ -3842,16 +3476,15 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMText($self);
+ XML::Xercesc::delete_AttributeList($self);
delete $OWNER{$self};
}
}
-*splitText = *XML::Xercesc::DOMText_splitText;
-*getIsElementContentWhitespace = *XML::Xercesc::DOMText_getIsElementContentWhitespace;
-*getWholeText = *XML::Xercesc::DOMText_getWholeText;
-*replaceWholeText = *XML::Xercesc::DOMText_replaceWholeText;
-*isIgnorableWhitespace = *XML::Xercesc::DOMText_isIgnorableWhitespace;
+*getLength = *XML::Xercesc::AttributeList_getLength;
+*getName = *XML::Xercesc::AttributeList_getName;
+*getType = *XML::Xercesc::AttributeList_getType;
+*getValue = *XML::Xercesc::AttributeList_getValue;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3865,20 +3498,34 @@
}
-############# Class : XML::Xerces::DOMCDATASection ##############
+############# Class : XML::Xerces::HandlerBase ##############
-package XML::Xerces::DOMCDATASection;
+package XML::Xerces::HandlerBase;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMText XML::Xerces );
+@ISA = qw( XML::Xerces::EntityResolver XML::Xerces::DTDHandler XML::Xerces::DocumentHandler XML::Xerces::ErrorHandler XML::Xerces );
%OWNER = ();
%ITERATORS = ();
+*characters = *XML::Xercesc::HandlerBase_characters;
+*processingInstruction = *XML::Xercesc::HandlerBase_processingInstruction;
+*setDocumentLocator = *XML::Xercesc::HandlerBase_setDocumentLocator;
+*error = *XML::Xercesc::HandlerBase_error;
+*fatalError = *XML::Xercesc::HandlerBase_fatalError;
+*warning = *XML::Xercesc::HandlerBase_warning;
+*resetErrors = *XML::Xercesc::HandlerBase_resetErrors;
+*unparsedEntityDecl = *XML::Xercesc::HandlerBase_unparsedEntityDecl;
+sub new {
+ my $pkg = shift;
+ my $self = XML::Xercesc::new_HandlerBase(@_);
+ bless $self, $pkg if defined($self);
+}
+
sub DESTROY {
return unless $_[0]->isa('HASH');
my $self = tied(%{$_[0]});
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMCDATASection($self);
+ XML::Xercesc::delete_HandlerBase($self);
delete $OWNER{$self};
}
}
@@ -3896,9 +3543,9 @@
}
-############# Class : XML::Xerces::DOMNodeList ##############
+############# Class : XML::Xerces::Locator ##############
-package XML::Xerces::DOMNodeList;
+package XML::Xerces::Locator;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -3909,13 +3556,15 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMNodeList($self);
+ XML::Xercesc::delete_Locator($self);
delete $OWNER{$self};
}
}
-*item = *XML::Xercesc::DOMNodeList_item;
-*getLength = *XML::Xercesc::DOMNodeList_getLength;
+*getPublicId = *XML::Xercesc::Locator_getPublicId;
+*getSystemId = *XML::Xercesc::Locator_getSystemId;
+*getLineNumber = *XML::Xercesc::Locator_getLineNumber;
+*getColumnNumber = *XML::Xercesc::Locator_getColumnNumber;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3929,9 +3578,9 @@
}
-############# Class : XML::Xerces::DOMNamedNodeMap ##############
+############# Class : XML::Xerces::Attributes ##############
-package XML::Xerces::DOMNamedNodeMap;
+package XML::Xerces::Attributes;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -3942,19 +3591,18 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMNamedNodeMap($self);
+ XML::Xercesc::delete_Attributes($self);
delete $OWNER{$self};
}
}
-*setNamedItem = *XML::Xercesc::DOMNamedNodeMap_setNamedItem;
-*item = *XML::Xercesc::DOMNamedNodeMap_item;
-*getNamedItem = *XML::Xercesc::DOMNamedNodeMap_getNamedItem;
-*getLength = *XML::Xercesc::DOMNamedNodeMap_getLength;
-*removeNamedItem = *XML::Xercesc::DOMNamedNodeMap_removeNamedItem;
-*getNamedItemNS = *XML::Xercesc::DOMNamedNodeMap_getNamedItemNS;
-*setNamedItemNS = *XML::Xercesc::DOMNamedNodeMap_setNamedItemNS;
-*removeNamedItemNS = *XML::Xercesc::DOMNamedNodeMap_removeNamedItemNS;
+*getLength = *XML::Xercesc::Attributes_getLength;
+*getURI = *XML::Xercesc::Attributes_getURI;
+*getLocalName = *XML::Xercesc::Attributes_getLocalName;
+*getQName = *XML::Xercesc::Attributes_getQName;
+*getIndex = *XML::Xercesc::Attributes_getIndex;
+*getType = *XML::Xercesc::Attributes_getType;
+*getValue = *XML::Xercesc::Attributes_getValue;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3968,11 +3616,11 @@
}
-############# Class : XML::Xerces::DOMDocumentFragment ##############
+############# Class : XML::Xerces::ContentHandler ##############
-package XML::Xerces::DOMDocumentFragment;
+package XML::Xerces::ContentHandler;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
+@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
sub DESTROY {
@@ -3981,11 +3629,17 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMDocumentFragment($self);
+ XML::Xercesc::delete_ContentHandler($self);
delete $OWNER{$self};
}
}
+*characters = *XML::Xercesc::ContentHandler_characters;
+*processingInstruction = *XML::Xercesc::ContentHandler_processingInstruction;
+*setDocumentLocator = *XML::Xercesc::ContentHandler_setDocumentLocator;
+*startPrefixMapping = *XML::Xercesc::ContentHandler_startPrefixMapping;
+*endPrefixMapping = *XML::Xercesc::ContentHandler_endPrefixMapping;
+*skippedEntity = *XML::Xercesc::ContentHandler_skippedEntity;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -3999,11 +3653,11 @@
}
-############# Class : XML::Xerces::DOMEntityReference ##############
+############# Class : XML::Xerces::LexicalHandler ##############
-package XML::Xerces::DOMEntityReference;
+package XML::Xerces::LexicalHandler;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
+@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
sub DESTROY {
@@ -4012,11 +3666,18 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMEntityReference($self);
+ XML::Xercesc::delete_LexicalHandler($self);
delete $OWNER{$self};
}
}
+*comment = *XML::Xercesc::LexicalHandler_comment;
+*endCDATA = *XML::Xercesc::LexicalHandler_endCDATA;
+*endDTD = *XML::Xercesc::LexicalHandler_endDTD;
+*endEntity = *XML::Xercesc::LexicalHandler_endEntity;
+*startCDATA = *XML::Xercesc::LexicalHandler_startCDATA;
+*startDTD = *XML::Xercesc::LexicalHandler_startDTD;
+*startEntity = *XML::Xercesc::LexicalHandler_startEntity;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -4030,11 +3691,11 @@
}
-############# Class : XML::Xerces::DOMNotation ##############
+############# Class : XML::Xerces::DeclHandler ##############
-package XML::Xerces::DOMNotation;
+package XML::Xerces::DeclHandler;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
+@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
sub DESTROY {
@@ -4043,13 +3704,14 @@
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMNotation($self);
+ XML::Xercesc::delete_DeclHandler($self);
delete $OWNER{$self};
}
}
-*getPublicId = *XML::Xercesc::DOMNotation_getPublicId;
-*getSystemId = *XML::Xercesc::DOMNotation_getSystemId;
+*attributeDecl = *XML::Xercesc::DeclHandler_attributeDecl;
+*internalEntityDecl = *XML::Xercesc::DeclHandler_internalEntityDecl;
+*externalEntityDecl = *XML::Xercesc::DeclHandler_externalEntityDecl;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -4063,2213 +3725,11 @@
}
-############# Class : XML::Xerces::DOMProcessingInstruction ##############
+############# Class : XML::Xerces::DefaultHandler ##############
-package XML::Xerces::DOMProcessingInstruction;
+package XML::Xerces::DefaultHandler;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMProcessingInstruction($self);
- delete $OWNER{$self};
- }
-}
-
-*getTarget = *XML::Xercesc::DOMProcessingInstruction_getTarget;
-*getData = *XML::Xercesc::DOMProcessingInstruction_getData;
-*setData = *XML::Xercesc::DOMProcessingInstruction_setData;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMTypeInfo ##############
-
-package XML::Xerces::DOMTypeInfo;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMTypeInfo($self);
- delete $OWNER{$self};
- }
-}
-
-*DERIVATION_RESTRICTION = *XML::Xercesc::DOMTypeInfo_DERIVATION_RESTRICTION;
-*DERIVATION_EXTENSION = *XML::Xercesc::DOMTypeInfo_DERIVATION_EXTENSION;
-*DERIVATION_UNION = *XML::Xercesc::DOMTypeInfo_DERIVATION_UNION;
-*DERIVATION_LIST = *XML::Xercesc::DOMTypeInfo_DERIVATION_LIST;
-*getTypeName = *XML::Xercesc::DOMTypeInfo_getTypeName;
-*getTypeNamespace = *XML::Xercesc::DOMTypeInfo_getTypeNamespace;
-*isDerivedFrom = *XML::Xercesc::DOMTypeInfo_isDerivedFrom;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMPSVITypeInfo ##############
-
-package XML::Xerces::DOMPSVITypeInfo;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-*PSVI_Validity = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Validity;
-*PSVI_Validitation_Attempted = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Validitation_Attempted;
-*PSVI_Type_Definition_Type = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Type_Definition_Type;
-*PSVI_Type_Definition_Name = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Type_Definition_Name;
-*PSVI_Type_Definition_Namespace = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Type_Definition_Namespace;
-*PSVI_Type_Definition_Anonymous = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Type_Definition_Anonymous;
-*PSVI_Nil = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Nil;
-*PSVI_Member_Type_Definition_Name = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Member_Type_Definition_Name;
-*PSVI_Member_Type_Definition_Namespace = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Member_Type_Definition_Namespace;
-*PSVI_Member_Type_Definition_Anonymous = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Member_Type_Definition_Anonymous;
-*PSVI_Schema_Default = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Schema_Default;
-*PSVI_Schema_Normalized_Value = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Schema_Normalized_Value;
-*PSVI_Schema_Specified = *XML::Xercesc::DOMPSVITypeInfo_PSVI_Schema_Specified;
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMPSVITypeInfo($self);
- delete $OWNER{$self};
- }
-}
-
-*getStringProperty = *XML::Xercesc::DOMPSVITypeInfo_getStringProperty;
-*getNumericProperty = *XML::Xercesc::DOMPSVITypeInfo_getNumericProperty;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMXPathEvaluator ##############
-
-package XML::Xerces::DOMXPathEvaluator;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMXPathEvaluator($self);
- delete $OWNER{$self};
- }
-}
-
-*createExpression = *XML::Xercesc::DOMXPathEvaluator_createExpression;
-*createNSResolver = *XML::Xercesc::DOMXPathEvaluator_createNSResolver;
-*evaluate = *XML::Xercesc::DOMXPathEvaluator_evaluate;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMXPathException ##############
-
-package XML::Xerces::DOMXPathException;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_DOMXPathException(@_);
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMXPathException($self);
- delete $OWNER{$self};
- }
-}
-
-*INVALID_EXPRESSION_ERR = *XML::Xercesc::DOMXPathException_INVALID_EXPRESSION_ERR;
-*TYPE_ERR = *XML::Xercesc::DOMXPathException_TYPE_ERR;
-*swig_code_get = *XML::Xercesc::DOMXPathException_code_get;
-*swig_code_set = *XML::Xercesc::DOMXPathException_code_set;
-*swig_msg_get = *XML::Xercesc::DOMXPathException_msg_get;
-*swig_msg_set = *XML::Xercesc::DOMXPathException_msg_set;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMXPathExpression ##############
-
-package XML::Xerces::DOMXPathExpression;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMXPathExpression($self);
- delete $OWNER{$self};
- }
-}
-
-*evaluate = *XML::Xercesc::DOMXPathExpression_evaluate;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMXPathNamespace ##############
-
-package XML::Xerces::DOMXPathNamespace;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNode XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-*XPATH_NAMESPACE_NODE = *XML::Xercesc::DOMXPathNamespace_XPATH_NAMESPACE_NODE;
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMXPathNamespace($self);
- delete $OWNER{$self};
- }
-}
-
-*getOwnerElement = *XML::Xercesc::DOMXPathNamespace_getOwnerElement;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMXPathNSResolver ##############
-
-package XML::Xerces::DOMXPathNSResolver;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMXPathNSResolver($self);
- delete $OWNER{$self};
- }
-}
-
-*lookupNamespaceURI = *XML::Xercesc::DOMXPathNSResolver_lookupNamespaceURI;
-*lookupPrefix = *XML::Xercesc::DOMXPathNSResolver_lookupPrefix;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMXPathResult ##############
-
-package XML::Xerces::DOMXPathResult;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMXPathResult($self);
- delete $OWNER{$self};
- }
-}
-
-*ANY_TYPE = *XML::Xercesc::DOMXPathResult_ANY_TYPE;
-*NUMBER_TYPE = *XML::Xercesc::DOMXPathResult_NUMBER_TYPE;
-*STRING_TYPE = *XML::Xercesc::DOMXPathResult_STRING_TYPE;
-*BOOLEAN_TYPE = *XML::Xercesc::DOMXPathResult_BOOLEAN_TYPE;
-*UNORDERED_NODE_ITERATOR_TYPE = *XML::Xercesc::DOMXPathResult_UNORDERED_NODE_ITERATOR_TYPE;
-*ORDERED_NODE_ITERATOR_TYPE = *XML::Xercesc::DOMXPathResult_ORDERED_NODE_ITERATOR_TYPE;
-*UNORDERED_NODE_SNAPSHOT_TYPE = *XML::Xercesc::DOMXPathResult_UNORDERED_NODE_SNAPSHOT_TYPE;
-*ORDERED_NODE_SNAPSHOT_TYPE = *XML::Xercesc::DOMXPathResult_ORDERED_NODE_SNAPSHOT_TYPE;
-*ANY_UNORDERED_NODE_TYPE = *XML::Xercesc::DOMXPathResult_ANY_UNORDERED_NODE_TYPE;
-*FIRST_ORDERED_NODE_TYPE = *XML::Xercesc::DOMXPathResult_FIRST_ORDERED_NODE_TYPE;
-*getBooleanValue = *XML::Xercesc::DOMXPathResult_getBooleanValue;
-*getInvalidIteratorState = *XML::Xercesc::DOMXPathResult_getInvalidIteratorState;
-*getNumberValue = *XML::Xercesc::DOMXPathResult_getNumberValue;
-*getResultType = *XML::Xercesc::DOMXPathResult_getResultType;
-*getSingleNodeValue = *XML::Xercesc::DOMXPathResult_getSingleNodeValue;
-*getSnapshotLength = *XML::Xercesc::DOMXPathResult_getSnapshotLength;
-*getStringValue = *XML::Xercesc::DOMXPathResult_getStringValue;
-*iterateNext = *XML::Xercesc::DOMXPathResult_iterateNext;
-*snapshotItem = *XML::Xercesc::DOMXPathResult_snapshotItem;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMDocumentRange ##############
-
-package XML::Xerces::DOMDocumentRange;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMDocumentRange($self);
- delete $OWNER{$self};
- }
-}
-
-*createRange = *XML::Xercesc::DOMDocumentRange_createRange;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMDocumentTraversal ##############
-
-package XML::Xerces::DOMDocumentTraversal;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMDocumentTraversal($self);
- delete $OWNER{$self};
- }
-}
-
-sub createNodeIterator {
- my ($self,$root,$what,$filter,$expand) = @_;
- my $callback = XML::Xerces::PerlNodeFilterCallbackHandler->new($filter);
- $XML::Xerces::REMEMBER{tied(% {$self})}->{__NODE_FILTER} = $callback;
-
- my @args = ($self,$root,$what,$callback,$expand);
- if ($args[0]->isa('XML::Xerces::DOMDocument')) {
-
- }
- return XML::Xercesc::DOMDocumentTraversal_createNodeIterator(@args);
-}
-
-sub createTreeWalker {
- my ($self,$root,$what,$filter,$expand) = @_;
- my $callback = XML::Xerces::PerlNodeFilterCallbackHandler->new($filter);
- $XML::Xerces::REMEMBER{tied(% {$self})}->{__NODE_FILTER} = $callback;
-
- my @args = ($self,$root,$what,$callback,$expand);
- if ($args[0]->isa('XML::Xerces::DOMDocument')) {
-
- }
- return XML::Xercesc::DOMDocumentTraversal_createTreeWalker(@args);
-}
-
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMNodeIterator ##############
-
-package XML::Xerces::DOMNodeIterator;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMNodeIterator($self);
- delete $OWNER{$self};
- }
-}
-
-*getRoot = *XML::Xercesc::DOMNodeIterator_getRoot;
-*getWhatToShow = *XML::Xercesc::DOMNodeIterator_getWhatToShow;
-*getFilter = *XML::Xercesc::DOMNodeIterator_getFilter;
-*getExpandEntityReferences = *XML::Xercesc::DOMNodeIterator_getExpandEntityReferences;
-*nextNode = *XML::Xercesc::DOMNodeIterator_nextNode;
-*previousNode = *XML::Xercesc::DOMNodeIterator_previousNode;
-*detach = *XML::Xercesc::DOMNodeIterator_detach;
-*release = *XML::Xercesc::DOMNodeIterator_release;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMNodeFilter ##############
-
-package XML::Xerces::DOMNodeFilter;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMNodeFilter($self);
- delete $OWNER{$self};
- }
-}
-
-*FILTER_ACCEPT = *XML::Xercesc::DOMNodeFilter_FILTER_ACCEPT;
-*FILTER_REJECT = *XML::Xercesc::DOMNodeFilter_FILTER_REJECT;
-*FILTER_SKIP = *XML::Xercesc::DOMNodeFilter_FILTER_SKIP;
-*SHOW_ALL = *XML::Xercesc::DOMNodeFilter_SHOW_ALL;
-*SHOW_ELEMENT = *XML::Xercesc::DOMNodeFilter_SHOW_ELEMENT;
-*SHOW_ATTRIBUTE = *XML::Xercesc::DOMNodeFilter_SHOW_ATTRIBUTE;
-*SHOW_TEXT = *XML::Xercesc::DOMNodeFilter_SHOW_TEXT;
-*SHOW_CDATA_SECTION = *XML::Xercesc::DOMNodeFilter_SHOW_CDATA_SECTION;
-*SHOW_ENTITY_REFERENCE = *XML::Xercesc::DOMNodeFilter_SHOW_ENTITY_REFERENCE;
-*SHOW_ENTITY = *XML::Xercesc::DOMNodeFilter_SHOW_ENTITY;
-*SHOW_PROCESSING_INSTRUCTION = *XML::Xercesc::DOMNodeFilter_SHOW_PROCESSING_INSTRUCTION;
-*SHOW_COMMENT = *XML::Xercesc::DOMNodeFilter_SHOW_COMMENT;
-*SHOW_DOCUMENT = *XML::Xercesc::DOMNodeFilter_SHOW_DOCUMENT;
-*SHOW_DOCUMENT_TYPE = *XML::Xercesc::DOMNodeFilter_SHOW_DOCUMENT_TYPE;
-*SHOW_DOCUMENT_FRAGMENT = *XML::Xercesc::DOMNodeFilter_SHOW_DOCUMENT_FRAGMENT;
-*SHOW_NOTATION = *XML::Xercesc::DOMNodeFilter_SHOW_NOTATION;
-*acceptNode = *XML::Xercesc::DOMNodeFilter_acceptNode;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMRange ##############
-
-package XML::Xerces::DOMRange;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMRange($self);
- delete $OWNER{$self};
- }
-}
-
-*START_TO_START = *XML::Xercesc::DOMRange_START_TO_START;
-*START_TO_END = *XML::Xercesc::DOMRange_START_TO_END;
-*END_TO_END = *XML::Xercesc::DOMRange_END_TO_END;
-*END_TO_START = *XML::Xercesc::DOMRange_END_TO_START;
-*getStartContainer = *XML::Xercesc::DOMRange_getStartContainer;
-*getStartOffset = *XML::Xercesc::DOMRange_getStartOffset;
-*getEndContainer = *XML::Xercesc::DOMRange_getEndContainer;
-*getEndOffset = *XML::Xercesc::DOMRange_getEndOffset;
-*getCollapsed = *XML::Xercesc::DOMRange_getCollapsed;
-*getCommonAncestorContainer = *XML::Xercesc::DOMRange_getCommonAncestorContainer;
-*setStart = *XML::Xercesc::DOMRange_setStart;
-*setEnd = *XML::Xercesc::DOMRange_setEnd;
-*setStartBefore = *XML::Xercesc::DOMRange_setStartBefore;
-*setStartAfter = *XML::Xercesc::DOMRange_setStartAfter;
-*setEndBefore = *XML::Xercesc::DOMRange_setEndBefore;
-*setEndAfter = *XML::Xercesc::DOMRange_setEndAfter;
-*collapse = *XML::Xercesc::DOMRange_collapse;
-*selectNode = *XML::Xercesc::DOMRange_selectNode;
-*selectNodeContents = *XML::Xercesc::DOMRange_selectNodeContents;
-*compareBoundaryPoints = *XML::Xercesc::DOMRange_compareBoundaryPoints;
-*deleteContents = *XML::Xercesc::DOMRange_deleteContents;
-*extractContents = *XML::Xercesc::DOMRange_extractContents;
-*cloneContents = *XML::Xercesc::DOMRange_cloneContents;
-*insertNode = *XML::Xercesc::DOMRange_insertNode;
-*surroundContents = *XML::Xercesc::DOMRange_surroundContents;
-*cloneRange = *XML::Xercesc::DOMRange_cloneRange;
-*toString = *XML::Xercesc::DOMRange_toString;
-*detach = *XML::Xercesc::DOMRange_detach;
-*release = *XML::Xercesc::DOMRange_release;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMRangeException ##############
-
-package XML::Xerces::DOMRangeException;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMException XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-*BAD_BOUNDARYPOINTS_ERR = *XML::Xercesc::DOMRangeException_BAD_BOUNDARYPOINTS_ERR;
-*INVALID_NODE_TYPE_ERR = *XML::Xercesc::DOMRangeException_INVALID_NODE_TYPE_ERR;
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_DOMRangeException(@_);
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMRangeException($self);
- delete $OWNER{$self};
- }
-}
-
-*swig_code_get = *XML::Xercesc::DOMRangeException_code_get;
-*swig_code_set = *XML::Xercesc::DOMRangeException_code_set;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMTreeWalker ##############
-
-package XML::Xerces::DOMTreeWalker;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMTreeWalker($self);
- delete $OWNER{$self};
- }
-}
-
-*getRoot = *XML::Xercesc::DOMTreeWalker_getRoot;
-*getWhatToShow = *XML::Xercesc::DOMTreeWalker_getWhatToShow;
-*getFilter = *XML::Xercesc::DOMTreeWalker_getFilter;
-*getExpandEntityReferences = *XML::Xercesc::DOMTreeWalker_getExpandEntityReferences;
-*getCurrentNode = *XML::Xercesc::DOMTreeWalker_getCurrentNode;
-*parentNode = *XML::Xercesc::DOMTreeWalker_parentNode;
-*firstChild = *XML::Xercesc::DOMTreeWalker_firstChild;
-*lastChild = *XML::Xercesc::DOMTreeWalker_lastChild;
-*previousSibling = *XML::Xercesc::DOMTreeWalker_previousSibling;
-*nextSibling = *XML::Xercesc::DOMTreeWalker_nextSibling;
-*previousNode = *XML::Xercesc::DOMTreeWalker_previousNode;
-*nextNode = *XML::Xercesc::DOMTreeWalker_nextNode;
-*setCurrentNode = *XML::Xercesc::DOMTreeWalker_setCurrentNode;
-*release = *XML::Xercesc::DOMTreeWalker_release;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMUserDataHandler ##############
-
-package XML::Xerces::DOMUserDataHandler;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMUserDataHandler($self);
- delete $OWNER{$self};
- }
-}
-
-*NODE_CLONED = *XML::Xercesc::DOMUserDataHandler_NODE_CLONED;
-*NODE_IMPORTED = *XML::Xercesc::DOMUserDataHandler_NODE_IMPORTED;
-*NODE_DELETED = *XML::Xercesc::DOMUserDataHandler_NODE_DELETED;
-*NODE_RENAMED = *XML::Xercesc::DOMUserDataHandler_NODE_RENAMED;
-*NODE_ADOPTED = *XML::Xercesc::DOMUserDataHandler_NODE_ADOPTED;
-*handle = *XML::Xercesc::DOMUserDataHandler_handle;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMConfiguration ##############
-
-package XML::Xerces::DOMConfiguration;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub setParameter {
- my ($self,$name,$value) = @_;
-
- if ($name eq $XML::Xerces::XMLUni::fgDOMErrorHandler) {
- $value = XML::Xerces::PerlErrorCallbackHandler->new($_[2]);
- $XML::Xerces::REMEMBER{tied(% {$self})}->{__ERROR_HANDLER} = $value;
- } elsif ($name eq $XML::Xerces::XMLUni::fgXercesEntityResolver) {
- $value = XML::Xerces::PerlEntityResolverHandler->new($_[2]);
- $XML::Xerces::REMEMBER{tied(% {$self})}->{__ENTITY_RESOLVER} = $value;
- }
- return XML::Xercesc::DOMConfiguration_setParameter($self,$name,$value);
-}
-
-*getParameter = *XML::Xercesc::DOMConfiguration_getParameter;
-*canSetParameter = *XML::Xercesc::DOMConfiguration_canSetParameter;
-*getParameterNames = *XML::Xercesc::DOMConfiguration_getParameterNames;
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMConfiguration($self);
- delete $OWNER{$self};
- }
-}
-
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMStringList ##############
-
-package XML::Xerces::DOMStringList;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMStringList($self);
- delete $OWNER{$self};
- }
-}
-
-*item = *XML::Xercesc::DOMStringList_item;
-*getLength = *XML::Xercesc::DOMStringList_getLength;
-*contains = *XML::Xercesc::DOMStringList_contains;
-*release = *XML::Xercesc::DOMStringList_release;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMImplementationLS ##############
-
-package XML::Xerces::DOMImplementationLS;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMImplementationLS($self);
- delete $OWNER{$self};
- }
-}
-
-*MODE_SYNCHRONOUS = *XML::Xercesc::DOMImplementationLS_MODE_SYNCHRONOUS;
-*MODE_ASYNCHRONOUS = *XML::Xercesc::DOMImplementationLS_MODE_ASYNCHRONOUS;
-*createLSParser = *XML::Xercesc::DOMImplementationLS_createLSParser;
-*createLSSerializer = *XML::Xercesc::DOMImplementationLS_createLSSerializer;
-*createLSInput = *XML::Xercesc::DOMImplementationLS_createLSInput;
-*createLSOutput = *XML::Xercesc::DOMImplementationLS_createLSOutput;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMImplementation ##############
-
-package XML::Xerces::DOMImplementation;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMImplementationLS XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMImplementation($self);
- delete $OWNER{$self};
- }
-}
-
-*hasFeature = *XML::Xercesc::DOMImplementation_hasFeature;
-*createDocumentType = *XML::Xercesc::DOMImplementation_createDocumentType;
-*getFeature = *XML::Xercesc::DOMImplementation_getFeature;
-sub createDocument {
- if (UNIVERSAL::isa($_[3],"XML::Xerces::DOMDocumentType")) {
- $_[3]->DISOWN();
- }
-
- my $return = XML::Xercesc::DOMImplementation_createDocument(@_);
-
- return $return;
-}
-
-*getImplementation = *XML::Xercesc::DOMImplementation_getImplementation;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMImplementationList ##############
-
-package XML::Xerces::DOMImplementationList;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMImplementationList($self);
- delete $OWNER{$self};
- }
-}
-
-*item = *XML::Xercesc::DOMImplementationList_item;
-*getLength = *XML::Xercesc::DOMImplementationList_getLength;
-*release = *XML::Xercesc::DOMImplementationList_release;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMImplementationSource ##############
-
-package XML::Xerces::DOMImplementationSource;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMImplementationSource($self);
- delete $OWNER{$self};
- }
-}
-
-*getDOMImplementation = *XML::Xercesc::DOMImplementationSource_getDOMImplementation;
-*getDOMImplementationList = *XML::Xercesc::DOMImplementationSource_getDOMImplementationList;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMImplementationRegistry ##############
-
-package XML::Xerces::DOMImplementationRegistry;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-*getDOMImplementation = *XML::Xercesc::DOMImplementationRegistry_getDOMImplementation;
-*getDOMImplementationList = *XML::Xercesc::DOMImplementationRegistry_getDOMImplementationList;
-*addSource = *XML::Xercesc::DOMImplementationRegistry_addSource;
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMImplementationRegistry($self);
- delete $OWNER{$self};
- }
-}
-
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMError ##############
-
-package XML::Xerces::DOMError;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMError($self);
- delete $OWNER{$self};
- }
-}
-
-*DOM_SEVERITY_WARNING = *XML::Xercesc::DOMError_DOM_SEVERITY_WARNING;
-*DOM_SEVERITY_ERROR = *XML::Xercesc::DOMError_DOM_SEVERITY_ERROR;
-*DOM_SEVERITY_FATAL_ERROR = *XML::Xercesc::DOMError_DOM_SEVERITY_FATAL_ERROR;
-*getSeverity = *XML::Xercesc::DOMError_getSeverity;
-*getMessage = *XML::Xercesc::DOMError_getMessage;
-*getLocation = *XML::Xercesc::DOMError_getLocation;
-*getRelatedException = *XML::Xercesc::DOMError_getRelatedException;
-*getType = *XML::Xercesc::DOMError_getType;
-*getRelatedData = *XML::Xercesc::DOMError_getRelatedData;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMErrorHandler ##############
-
-package XML::Xerces::DOMErrorHandler;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMErrorHandler($self);
- delete $OWNER{$self};
- }
-}
-
-*handleError = *XML::Xercesc::DOMErrorHandler_handleError;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMDocument ##############
-
-package XML::Xerces::DOMDocument;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMDocumentRange XML::Xerces::DOMXPathEvaluator XML::Xerces::DOMDocumentTraversal XML::Xerces::DOMNode XML::Xerces );
-%OWNER = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
-
- if ($self->can('cleanup')) {
- $_[0]->cleanup();
- }
-
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMDocument($self);
- delete $OWNER{$self};
- }
-}
-
-*createElement = *XML::Xercesc::DOMDocument_createElement;
-*createDocumentFragment = *XML::Xercesc::DOMDocument_createDocumentFragment;
-*createTextNode = *XML::Xercesc::DOMDocument_createTextNode;
-*createComment = *XML::Xercesc::DOMDocument_createComment;
-*createCDATASection = *XML::Xercesc::DOMDocument_createCDATASection;
-*createProcessingInstruction = *XML::Xercesc::DOMDocument_createProcessingInstruction;
-*createAttribute = *XML::Xercesc::DOMDocument_createAttribute;
-*createEntityReference = *XML::Xercesc::DOMDocument_createEntityReference;
-*getDoctype = *XML::Xercesc::DOMDocument_getDoctype;
-*getImplementation = *XML::Xercesc::DOMDocument_getImplementation;
-*getDocumentElement = *XML::Xercesc::DOMDocument_getDocumentElement;
-sub getElementsByTagName {
- my $result = XML::Xercesc::DOMDocument_getElementsByTagName (@_);
- unless (defined$result) {
- return () if wantarray;
- return undef;#if *not* wantarray
- }
- return $result->to_list() if wantarray;
- return $result;#if *not* wantarray
-}
-
-*importNode = *XML::Xercesc::DOMDocument_importNode;
-*createAttributeNS = *XML::Xercesc::DOMDocument_createAttributeNS;
-sub getElementsByTagNameNS {
- my $result = XML::Xercesc::DOMDocument_getElementsByTagNameNS (@_);
- unless (defined$result) {
- return () if wantarray;
- return undef;#if *not* wantarray
- }
- return $result->to_list() if wantarray;
- return $result;#if *not* wantarray
-}
-
-*getElementById = *XML::Xercesc::DOMDocument_getElementById;
-*getInputEncoding = *XML::Xercesc::DOMDocument_getInputEncoding;
-*getXmlEncoding = *XML::Xercesc::DOMDocument_getXmlEncoding;
-*getXmlStandalone = *XML::Xercesc::DOMDocument_getXmlStandalone;
-*setXmlStandalone = *XML::Xercesc::DOMDocument_setXmlStandalone;
-*getXmlVersion = *XML::Xercesc::DOMDocument_getXmlVersion;
-*setXmlVersion = *XML::Xercesc::DOMDocument_setXmlVersion;
-*getDocumentURI = *XML::Xercesc::DOMDocument_getDocumentURI;
-*setDocumentURI = *XML::Xercesc::DOMDocument_setDocumentURI;
-*getStrictErrorChecking = *XML::Xercesc::DOMDocument_getStrictErrorChecking;
-*setStrictErrorChecking = *XML::Xercesc::DOMDocument_setStrictErrorChecking;
-*renameNode = *XML::Xercesc::DOMDocument_renameNode;
-*adoptNode = *XML::Xercesc::DOMDocument_adoptNode;
-*normalizeDocument = *XML::Xercesc::DOMDocument_normalizeDocument;
-*getDOMConfig = *XML::Xercesc::DOMDocument_getDOMConfig;
-*createEntity = *XML::Xercesc::DOMDocument_createEntity;
-*createDocumentType = *XML::Xercesc::DOMDocument_createDocumentType;
-*createNotation = *XML::Xercesc::DOMDocument_createNotation;
-*createElementNS = *XML::Xercesc::DOMDocument_createElementNS;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMLocator ##############
-
-package XML::Xerces::DOMLocator;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMLocator($self);
- delete $OWNER{$self};
- }
-}
-
-*getLineNumber = *XML::Xercesc::DOMLocator_getLineNumber;
-*getColumnNumber = *XML::Xercesc::DOMLocator_getColumnNumber;
-*getByteOffset = *XML::Xercesc::DOMLocator_getByteOffset;
-*getUtf16Offset = *XML::Xercesc::DOMLocator_getUtf16Offset;
-*getRelatedNode = *XML::Xercesc::DOMLocator_getRelatedNode;
-*getURI = *XML::Xercesc::DOMLocator_getURI;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMLSResourceResolver ##############
-
-package XML::Xerces::DOMLSResourceResolver;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMLSResourceResolver($self);
- delete $OWNER{$self};
- }
-}
-
-*resolveResource = *XML::Xercesc::DOMLSResourceResolver_resolveResource;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMLSInput ##############
-
-package XML::Xerces::DOMLSInput;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMLSInput($self);
- delete $OWNER{$self};
- }
-}
-
-*getStringData = *XML::Xercesc::DOMLSInput_getStringData;
-*getByteStream = *XML::Xercesc::DOMLSInput_getByteStream;
-*getEncoding = *XML::Xercesc::DOMLSInput_getEncoding;
-*getPublicId = *XML::Xercesc::DOMLSInput_getPublicId;
-*getSystemId = *XML::Xercesc::DOMLSInput_getSystemId;
-*getBaseURI = *XML::Xercesc::DOMLSInput_getBaseURI;
-*setStringData = *XML::Xercesc::DOMLSInput_setStringData;
-*setByteStream = *XML::Xercesc::DOMLSInput_setByteStream;
-*setEncoding = *XML::Xercesc::DOMLSInput_setEncoding;
-*setPublicId = *XML::Xercesc::DOMLSInput_setPublicId;
-*setSystemId = *XML::Xercesc::DOMLSInput_setSystemId;
-*setBaseURI = *XML::Xercesc::DOMLSInput_setBaseURI;
-*setIssueFatalErrorIfNotFound = *XML::Xercesc::DOMLSInput_setIssueFatalErrorIfNotFound;
-*getIssueFatalErrorIfNotFound = *XML::Xercesc::DOMLSInput_getIssueFatalErrorIfNotFound;
-*release = *XML::Xercesc::DOMLSInput_release;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::Wrapper4InputSource ##############
-
-package XML::Xerces::Wrapper4InputSource;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMLSInput XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub new {
- my $pkg = shift;
- # we never handle the memory
- # so we tell Perl to forget about the InputSource
- $_[0]->DISOWN();
-
- my $self = XML::Xercesc::new_Wrapper4InputSource(@_);
-
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_Wrapper4InputSource($self);
- delete $OWNER{$self};
- }
-}
-
-*getStringData = *XML::Xercesc::Wrapper4InputSource_getStringData;
-*getByteStream = *XML::Xercesc::Wrapper4InputSource_getByteStream;
-*getEncoding = *XML::Xercesc::Wrapper4InputSource_getEncoding;
-*getPublicId = *XML::Xercesc::Wrapper4InputSource_getPublicId;
-*getSystemId = *XML::Xercesc::Wrapper4InputSource_getSystemId;
-*getBaseURI = *XML::Xercesc::Wrapper4InputSource_getBaseURI;
-*getIssueFatalErrorIfNotFound = *XML::Xercesc::Wrapper4InputSource_getIssueFatalErrorIfNotFound;
-*setStringData = *XML::Xercesc::Wrapper4InputSource_setStringData;
-*setByteStream = *XML::Xercesc::Wrapper4InputSource_setByteStream;
-*setEncoding = *XML::Xercesc::Wrapper4InputSource_setEncoding;
-*setPublicId = *XML::Xercesc::Wrapper4InputSource_setPublicId;
-*setSystemId = *XML::Xercesc::Wrapper4InputSource_setSystemId;
-*setBaseURI = *XML::Xercesc::Wrapper4InputSource_setBaseURI;
-*setIssueFatalErrorIfNotFound = *XML::Xercesc::Wrapper4InputSource_setIssueFatalErrorIfNotFound;
-*release = *XML::Xercesc::Wrapper4InputSource_release;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::Wrapper4DOMLSInput ##############
-
-package XML::Xerces::Wrapper4DOMLSInput;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::InputSource XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_Wrapper4DOMLSInput(@_);
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_Wrapper4DOMLSInput($self);
- delete $OWNER{$self};
- }
-}
-
-*makeStream = *XML::Xercesc::Wrapper4DOMLSInput_makeStream;
-*getEncoding = *XML::Xercesc::Wrapper4DOMLSInput_getEncoding;
-*getPublicId = *XML::Xercesc::Wrapper4DOMLSInput_getPublicId;
-*getSystemId = *XML::Xercesc::Wrapper4DOMLSInput_getSystemId;
-*getIssueFatalErrorIfNotFound = *XML::Xercesc::Wrapper4DOMLSInput_getIssueFatalErrorIfNotFound;
-*setEncoding = *XML::Xercesc::Wrapper4DOMLSInput_setEncoding;
-*setPublicId = *XML::Xercesc::Wrapper4DOMLSInput_setPublicId;
-*setSystemId = *XML::Xercesc::Wrapper4DOMLSInput_setSystemId;
-*setIssueFatalErrorIfNotFound = *XML::Xercesc::Wrapper4DOMLSInput_setIssueFatalErrorIfNotFound;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMLSParser ##############
-
-package XML::Xerces::DOMLSParser;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMLSParser($self);
- delete $OWNER{$self};
- }
-}
-
-*ACTION_APPEND_AS_CHILDREN = *XML::Xercesc::DOMLSParser_ACTION_APPEND_AS_CHILDREN;
-*ACTION_REPLACE_CHILDREN = *XML::Xercesc::DOMLSParser_ACTION_REPLACE_CHILDREN;
-*ACTION_INSERT_BEFORE = *XML::Xercesc::DOMLSParser_ACTION_INSERT_BEFORE;
-*ACTION_INSERT_AFTER = *XML::Xercesc::DOMLSParser_ACTION_INSERT_AFTER;
-*ACTION_REPLACE = *XML::Xercesc::DOMLSParser_ACTION_REPLACE;
-*getDomConfig = *XML::Xercesc::DOMLSParser_getDomConfig;
-*getAsync = *XML::Xercesc::DOMLSParser_getAsync;
-*getBusy = *XML::Xercesc::DOMLSParser_getBusy;
-*setFilter = *XML::Xercesc::DOMLSParser_setFilter;
-*parse = *XML::Xercesc::DOMLSParser_parse;
-*parseURI = *XML::Xercesc::DOMLSParser_parseURI;
-*parseWithContext = *XML::Xercesc::DOMLSParser_parseWithContext;
-*abort = *XML::Xercesc::DOMLSParser_abort;
-*release = *XML::Xercesc::DOMLSParser_release;
-*resetDocumentPool = *XML::Xercesc::DOMLSParser_resetDocumentPool;
-*loadGrammar = *XML::Xercesc::DOMLSParser_loadGrammar;
-*getGrammar = *XML::Xercesc::DOMLSParser_getGrammar;
-*getRootGrammar = *XML::Xercesc::DOMLSParser_getRootGrammar;
-*getURIText = *XML::Xercesc::DOMLSParser_getURIText;
-*resetCachedGrammarPool = *XML::Xercesc::DOMLSParser_resetCachedGrammarPool;
-*getSrcOffset = *XML::Xercesc::DOMLSParser_getSrcOffset;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMLSOutput ##############
-
-package XML::Xerces::DOMLSOutput;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMLSOutput($self);
- delete $OWNER{$self};
- }
-}
-
-*getByteStream = *XML::Xercesc::DOMLSOutput_getByteStream;
-*getEncoding = *XML::Xercesc::DOMLSOutput_getEncoding;
-*getSystemId = *XML::Xercesc::DOMLSOutput_getSystemId;
-*setByteStream = *XML::Xercesc::DOMLSOutput_setByteStream;
-*setEncoding = *XML::Xercesc::DOMLSOutput_setEncoding;
-*setSystemId = *XML::Xercesc::DOMLSOutput_setSystemId;
-*release = *XML::Xercesc::DOMLSOutput_release;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::StdOutFormatTarget ##############
-
-package XML::Xerces::StdOutFormatTarget;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_StdOutFormatTarget(@_);
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_StdOutFormatTarget($self);
- delete $OWNER{$self};
- }
-}
-
-*writeChars = *XML::Xercesc::StdOutFormatTarget_writeChars;
-*flush = *XML::Xercesc::StdOutFormatTarget_flush;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::LocalFileFormatTarget ##############
-
-package XML::Xerces::LocalFileFormatTarget;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_LocalFileFormatTarget(@_);
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_LocalFileFormatTarget($self);
- delete $OWNER{$self};
- }
-}
-
-*writeChars = *XML::Xercesc::LocalFileFormatTarget_writeChars;
-*flush = *XML::Xercesc::LocalFileFormatTarget_flush;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::MemBufFormatTarget ##############
-
-package XML::Xerces::MemBufFormatTarget;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_MemBufFormatTarget(@_);
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_MemBufFormatTarget($self);
- delete $OWNER{$self};
- }
-}
-
-*writeChars = *XML::Xercesc::MemBufFormatTarget_writeChars;
-*getRawBuffer = *XML::Xercesc::MemBufFormatTarget_getRawBuffer;
-*getLen = *XML::Xercesc::MemBufFormatTarget_getLen;
-*reset = *XML::Xercesc::MemBufFormatTarget_reset;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMLSException ##############
-
-package XML::Xerces::DOMLSException;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMException XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-*PARSE_ERR = *XML::Xercesc::DOMLSException_PARSE_ERR;
-*SERIALIZE_ERR = *XML::Xercesc::DOMLSException_SERIALIZE_ERR;
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_DOMLSException(@_);
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMLSException($self);
- delete $OWNER{$self};
- }
-}
-
-*getMessage = *XML::Xercesc::DOMLSException_getMessage;
-*swig_code_get = *XML::Xercesc::DOMLSException_code_get;
-*swig_code_set = *XML::Xercesc::DOMLSException_code_set;
-*swig_msg_get = *XML::Xercesc::DOMLSException_msg_get;
-*swig_msg_set = *XML::Xercesc::DOMLSException_msg_set;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMLSSerializer ##############
-
-package XML::Xerces::DOMLSSerializer;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMLSSerializer($self);
- delete $OWNER{$self};
- }
-}
-
-*getDomConfig = *XML::Xercesc::DOMLSSerializer_getDomConfig;
-*setNewLine = *XML::Xercesc::DOMLSSerializer_setNewLine;
-*setFilter = *XML::Xercesc::DOMLSSerializer_setFilter;
-*getNewLine = *XML::Xercesc::DOMLSSerializer_getNewLine;
-*write = *XML::Xercesc::DOMLSSerializer_write;
-*writeToURI = *XML::Xercesc::DOMLSSerializer_writeToURI;
-*writeToString = *XML::Xercesc::DOMLSSerializer_writeToString;
-*release = *XML::Xercesc::DOMLSSerializer_release;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DOMLSSerializerFilter ##############
-
-package XML::Xerces::DOMLSSerializerFilter;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::DOMNodeFilter XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMLSSerializerFilter($self);
- delete $OWNER{$self};
- }
-}
-
-*acceptNode = *XML::Xercesc::DOMLSSerializerFilter_acceptNode;
-*getWhatToShow = *XML::Xercesc::DOMLSSerializerFilter_getWhatToShow;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::SAXException ##############
-
-package XML::Xerces::SAXException;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_SAXException($self);
- delete $OWNER{$self};
- }
-}
-
-*getMessage = *XML::Xercesc::SAXException_getMessage;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::SAXNotSupportedException ##############
-
-package XML::Xerces::SAXNotSupportedException;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::SAXException XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_SAXNotSupportedException(@_);
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_SAXNotSupportedException($self);
- delete $OWNER{$self};
- }
-}
-
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::SAXNotRecognizedException ##############
-
-package XML::Xerces::SAXNotRecognizedException;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::SAXException XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub new {
- my $pkg = shift;
- my $self = XML::Xercesc::new_SAXNotRecognizedException(@_);
- bless $self, $pkg if defined($self);
-}
-
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_SAXNotRecognizedException($self);
- delete $OWNER{$self};
- }
-}
-
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::SAXParseException ##############
-
-package XML::Xerces::SAXParseException;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::SAXException XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_SAXParseException($self);
- delete $OWNER{$self};
- }
-}
-
-*getColumnNumber = *XML::Xercesc::SAXParseException_getColumnNumber;
-*getLineNumber = *XML::Xercesc::SAXParseException_getLineNumber;
-*getPublicId = *XML::Xercesc::SAXParseException_getPublicId;
-*getSystemId = *XML::Xercesc::SAXParseException_getSystemId;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::ErrorHandler ##############
-
-package XML::Xerces::ErrorHandler;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_ErrorHandler($self);
- delete $OWNER{$self};
- }
-}
-
-*warning = *XML::Xercesc::ErrorHandler_warning;
-*error = *XML::Xercesc::ErrorHandler_error;
-*fatalError = *XML::Xercesc::ErrorHandler_fatalError;
-*resetErrors = *XML::Xercesc::ErrorHandler_resetErrors;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DTDHandler ##############
-
-package XML::Xerces::DTDHandler;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DTDHandler($self);
- delete $OWNER{$self};
- }
-}
-
-*unparsedEntityDecl = *XML::Xercesc::DTDHandler_unparsedEntityDecl;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::DocumentHandler ##############
-
-package XML::Xerces::DocumentHandler;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DocumentHandler($self);
- delete $OWNER{$self};
- }
-}
-
-*characters = *XML::Xercesc::DocumentHandler_characters;
-*processingInstruction = *XML::Xercesc::DocumentHandler_processingInstruction;
-*setDocumentLocator = *XML::Xercesc::DocumentHandler_setDocumentLocator;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::EntityResolver ##############
-
-package XML::Xerces::EntityResolver;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_EntityResolver($self);
- delete $OWNER{$self};
- }
-}
-
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::AttributeList ##############
-
-package XML::Xerces::AttributeList;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_AttributeList($self);
- delete $OWNER{$self};
- }
-}
-
-*getLength = *XML::Xercesc::AttributeList_getLength;
-*getName = *XML::Xercesc::AttributeList_getName;
-*getType = *XML::Xercesc::AttributeList_getType;
-*getValue = *XML::Xercesc::AttributeList_getValue;
-sub DISOWN {
- my $self = shift;
- my $ptr = tied(%$self);
- delete $OWNER{$ptr};
-}
-
-sub ACQUIRE {
- my $self = shift;
- my $ptr = tied(%$self);
- $OWNER{$ptr} = 1;
-}
-
-
-############# Class : XML::Xerces::HandlerBase ##############
-
-package XML::Xerces::HandlerBase;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-@ISA = qw( XML::Xerces::EntityResolver XML::Xerces::DTDHandler XML::Xerces::DocumentHandler XML::Xerces::ErrorHandler XML::Xerces );
-%OWNER = ();
-%ITERATORS = ();
[... 468 lines stripped ...]
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@xerces.apache.org
For additional commands, e-mail: commits-help@xerces.apache.org