jasons 2002/12/09 11:43:48
Modified: perl .cvsignore ChangeLog Changes Xerces.C Xerces.pm
Log:
usual
Revision Changes Path
1.16 +4 -0 xml-xerces/perl/.cvsignore
Index: .cvsignore
===================================================================
RCS file: /home/cvs/xml-xerces/perl/.cvsignore,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- .cvsignore 19 Oct 2002 23:13:28 -0000 1.15
+++ .cvsignore 9 Dec 2002 19:43:43 -0000 1.16
@@ -28,6 +28,10 @@
XML-Xerces-1.7.0_0.tar.gz
XML-Xerces-1.7.0_0.tar.gz.asc
XML-Xerces-2.0.0-0.tar.gz
+XML-Xerces-2.0.0-1.tar.gz
+XML-Xerces-2.0.0-1.tar.gz.asc
+XML-Xerces-2.1.0-0.tar.gz
+XML-Xerces-2.1.0-0.tar.gz.asc
Xerces.bs
archives
blib
1.51 +22 -0 xml-xerces/perl/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/xml-xerces/perl/ChangeLog,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -r1.50 -r1.51
--- ChangeLog 13 Nov 2002 06:46:01 -0000 1.50
+++ ChangeLog 9 Dec 2002 19:43:43 -0000 1.51
@@ -1,3 +1,25 @@
+2002-12-09 Jason E. Stewart <[EMAIL PROTECTED]>
+
+ * t (Repository):
+ all tests use Test::More
+
+ * samples/catalog.xml (Repository):
+ added personal.xsd
+
+ * hints/linux.pl (Repository):
+ forced _GNU_SOURCE
+
+ * Handler/PerlContentCallbackHandler.hpp (Repository):
+ added predefine for ContentHandler
+
+ * README (Repository):
+ updated the build requirements
+
+ * Xerces.i (Repository):
+ added GCCDefs.hpp and XercesDefs.hpp which enabled removing the
+ EXPORT macros
+ added the DOMNode == and != operators
+
2002-11-12 Jason E. Stewart <[EMAIL PROTECTED]>
* Makefile.PL (Repository):
1.21 +11 -0 xml-xerces/perl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/xml-xerces/perl/Changes,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- Changes 25 Apr 2002 04:18:59 -0000 1.20
+++ Changes 9 Dec 2002 19:43:43 -0000 1.21
@@ -1,5 +1,16 @@
Revision history for Perl extension Genex.
+2.0.0-2 Mon Dec 9 12:31:38 MST 2002
+ - made all tests use Test::More
+ - fixed entity resolution in Schema.t test
+ - fixed other minor bugs in other tests
+
+2.0.0-1 Sun Dec 8 23:02:42 MST 2002
+ - First public release that supports Xerces-C-2.0.0
+ - Removed support for XMLScanner
+ - Removed DOMParse support, instead DOMWriter from DOM Level 3
+ is used
+
1.7.0-1 Wed Apr 24 22:07:13 MDT 2002
- Second release that supports Xerces-C-1.7.0
- Added support for DOM_NodeIterator and DOM_TreeWalker
1.18 +181 -37 xml-xerces/perl/Xerces.C
Index: Xerces.C
===================================================================
RCS file: /home/cvs/xml-xerces/perl/Xerces.C,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- Xerces.C 13 Nov 2002 06:47:21 -0000 1.17
+++ Xerces.C 9 Dec 2002 19:43:43 -0000 1.18
@@ -889,6 +889,12 @@
return NULL;
}
+bool DOMNode_operator_ee___(DOMNode *self,DOMNode const *other){
+ return self->isSameNode(other);
+ }
+bool DOMNode_operator_Ne___(DOMNode *self,DOMNode const *other){
+ return !self->isSameNode(other);
+ }
DOMNode *DOMDocument_toDOMNode(DOMDocument *self){
return (DOMNode*) self;
}
@@ -1405,13 +1411,6 @@
return 1;
}
-SWIGCLASS_STATIC int _wrap_val_XMLUni_fgUTF16EncodingString5(pTHX_ SV *sv, MAGIC
*mg) {
- MAGIC_PPERL
- mg = mg;
- sv_setiv(SvRV(sv),(IV) XMLUni::fgUTF16EncodingString5);
- return 1;
-}
-
SWIGCLASS_STATIC int _wrap_val_XMLUni_fgUTF16BEncodingString(pTHX_ SV *sv, MAGIC
*mg) {
MAGIC_PPERL
mg = mg;
@@ -5866,6 +5865,47 @@
croak(_swigerr);
}
+XS(_wrap_QName_getURI) {
+ char _swigmsg[SWIG_MAX_ERRMSG] = "";
+ const char *_swigerr = _swigmsg;
+ {
+ QName *arg1 = (QName *) 0 ;
+ unsigned int result;
+ int argvi = 0;
+ dXSARGS;
+
+ if ((items < 1) || (items > 1)) {
+ SWIG_croak("Usage: QName_getURI(self);");
+ }
+ {
+ if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_QName,0) < 0) {
+ SWIG_croak("Type error in argument 1 of QName_getURI. Expected
_p_QName");
+ }
+ }
+ {
+ try {
+ result = (unsigned int)(arg1)->getURI();
+
+ }
+ catch (const XMLException& e)
+ {
+ makeXMLException(e);
+ }
+ catch (...)
+ {
+ XMLPlatformUtils::Terminate();
+ croak("%s", "Handling Unknown exception");
+ }
+ }
+ ST(argvi) = sv_newmortal();
+ sv_setuv(ST(argvi++), (UV) result);
+ XSRETURN(argvi);
+ fail:
+ (void) _swigerr;
+ }
+ croak(_swigerr);
+}
+
XS(_wrap_QName_getRawName) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
@@ -7810,7 +7850,7 @@
dXSARGS;
if ((items < 2) || (items > 2)) {
- SWIG_croak("Usage: XMLValidator_checkRootElement(self,unsigned int
const);");
+ SWIG_croak("Usage: XMLValidator_checkRootElement(self,elemId);");
}
{
if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_XMLValidator,0)
< 0) {
@@ -8616,8 +8656,8 @@
XSRETURN(1);
}
}
- arg4 = (XMLSSize_t) SvUV(ST(3));
- arg5 = (XMLSSize_t) SvUV(ST(4));
+ arg4 = (XMLSSize_t) SvIV(ST(3));
+ arg5 = (XMLSSize_t) SvIV(ST(4));
{
try {
result = (SAXParseException *)new SAXParseException((XMLCh const
*)arg1,(XMLCh const *)arg2,(XMLCh const *)arg3,arg4,arg5);
@@ -8893,7 +8933,7 @@
}
}
ST(argvi) = sv_newmortal();
- sv_setuv(ST(argvi++), (UV) result);
+ sv_setiv(ST(argvi++), (IV) result);
XSRETURN(argvi);
fail:
(void) _swigerr;
@@ -8934,7 +8974,7 @@
}
}
ST(argvi) = sv_newmortal();
- sv_setuv(ST(argvi++), (UV) result);
+ sv_setiv(ST(argvi++), (IV) result);
XSRETURN(argvi);
fail:
(void) _swigerr;
@@ -11601,7 +11641,7 @@
}
}
ST(argvi) = sv_newmortal();
- sv_setuv(ST(argvi++), (UV) result);
+ sv_setiv(ST(argvi++), (IV) result);
XSRETURN(argvi);
fail:
(void) _swigerr;
@@ -11642,7 +11682,7 @@
}
}
ST(argvi) = sv_newmortal();
- sv_setuv(ST(argvi++), (UV) result);
+ sv_setiv(ST(argvi++), (IV) result);
XSRETURN(argvi);
fail:
(void) _swigerr;
@@ -17685,7 +17725,7 @@
dXSARGS;
if ((items < 0) || (items > 1)) {
- SWIG_croak("Usage: new_MemBufFormatTarget(initCapacity);");
+ SWIG_croak("Usage: new_MemBufFormatTarget(capacity);");
}
if (items > 0) {
arg1 = (int) SvIV(ST(0));
@@ -18144,7 +18184,7 @@
}
{
try {
- result = (bool)((XMLScanner const
*)arg1)->getLastExtLocation(arg2,arg3,arg4,arg5,*arg6,*arg7);
+ result =
(bool)(arg1)->getLastExtLocation(arg2,arg3,arg4,arg5,*arg6,*arg7);
}
catch (const XMLException& e)
@@ -20968,8 +21008,8 @@
XSRETURN(1);
}
}
- arg8 = (XMLSSize_t) SvUV(ST(7));
- arg9 = (XMLSSize_t) SvUV(ST(8));
+ arg8 = (XMLSSize_t) SvIV(ST(7));
+ arg9 = (XMLSSize_t) SvIV(ST(8));
{
try {
(arg1)->error(arg2,(XMLCh const *)arg3,(XMLErrorReporter::ErrTypes
)arg4,(XMLCh const *)arg5,(XMLCh const *)arg6,(XMLCh const *)arg7,arg8,arg9);
@@ -26100,8 +26140,8 @@
XSRETURN(1);
}
}
- arg8 = (XMLSSize_t) SvUV(ST(7));
- arg9 = (XMLSSize_t) SvUV(ST(8));
+ arg8 = (XMLSSize_t) SvIV(ST(7));
+ arg9 = (XMLSSize_t) SvIV(ST(8));
{
try {
(arg1)->error(arg2,(XMLCh const *)arg3,(XMLErrorReporter::ErrTypes
)arg4,(XMLCh const *)arg5,(XMLCh const *)arg6,(XMLCh const *)arg7,arg8,arg9);
@@ -28754,8 +28794,8 @@
XSRETURN(1);
}
}
- arg8 = (XMLSSize_t) SvUV(ST(7));
- arg9 = (XMLSSize_t) SvUV(ST(8));
+ arg8 = (XMLSSize_t) SvIV(ST(7));
+ arg9 = (XMLSSize_t) SvIV(ST(8));
{
try {
(arg1)->error(arg2,(XMLCh const *)arg3,(XMLErrorReporter::ErrTypes
)arg4,(XMLCh const *)arg5,(XMLCh const *)arg6,(XMLCh const *)arg7,arg8,arg9);
@@ -35433,7 +35473,7 @@
arg3 = (bool) SvIV(ST(2));
{
try {
- result = (XMLCh *)((DOMNode const
*)arg1)->lookupNamespacePrefix((XMLCh const *)arg2,arg3);
+ result = (XMLCh *)(arg1)->lookupNamespacePrefix((XMLCh const
*)arg2,arg3);
}
catch (const XMLException& e)
@@ -35495,7 +35535,7 @@
}
{
try {
- result = (bool)((DOMNode const *)arg1)->isDefaultNamespace((XMLCh
const *)arg2);
+ result = (bool)(arg1)->isDefaultNamespace((XMLCh const *)arg2);
}
catch (const XMLException& e)
@@ -35555,7 +35595,7 @@
}
{
try {
- result = (XMLCh *)((DOMNode const
*)arg1)->lookupNamespaceURI((XMLCh const *)arg2);
+ result = (XMLCh *)(arg1)->lookupNamespaceURI((XMLCh const *)arg2);
}
catch (const XMLException& e)
@@ -35695,6 +35735,108 @@
croak(_swigerr);
}
+XS(_wrap_DOMNode_operator_equal_to) {
+ char _swigmsg[SWIG_MAX_ERRMSG] = "";
+ const char *_swigerr = _swigmsg;
+ {
+ DOMNode *arg1 = (DOMNode *) 0 ;
+ DOMNode *arg2 = (DOMNode *) 0 ;
+ bool result;
+ int argvi = 0;
+ dXSARGS;
+
+ if ((items < 2) || (items > 2)) {
+ SWIG_croak("Usage: DOMNode_operator_equal_to(self,other);");
+ }
+ {
+ if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_DOMNode,0) < 0) {
+ SWIG_croak("Type error in argument 1 of DOMNode_operator_equal_to.
Expected _p_DOMNode");
+ }
+ }
+ {
+ if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_DOMNode,0) < 0) {
+ SWIG_croak("Type error in argument 2 of DOMNode_operator_equal_to.
Expected _p_DOMNode");
+ }
+ }
+ {
+ try {
+ result = (bool)DOMNode_operator_ee___(arg1,(DOMNode const *)arg2);
+
+ }
+ catch (const XMLException& e)
+ {
+ makeXMLException(e);
+ }
+ catch (const DOMException& e)
+ {
+ makeDOMException(e);
+ }
+ catch (...)
+ {
+ XMLPlatformUtils::Terminate();
+ croak("%s", "Handling Unknown exception");
+ }
+ }
+ ST(argvi) = sv_newmortal();
+ sv_setiv(ST(argvi++), (IV) result);
+ XSRETURN(argvi);
+ fail:
+ (void) _swigerr;
+ }
+ croak(_swigerr);
+}
+
+XS(_wrap_DOMNode_operator_not_equal_to) {
+ char _swigmsg[SWIG_MAX_ERRMSG] = "";
+ const char *_swigerr = _swigmsg;
+ {
+ DOMNode *arg1 = (DOMNode *) 0 ;
+ DOMNode *arg2 = (DOMNode *) 0 ;
+ bool result;
+ int argvi = 0;
+ dXSARGS;
+
+ if ((items < 2) || (items > 2)) {
+ SWIG_croak("Usage: DOMNode_operator_not_equal_to(self,other);");
+ }
+ {
+ if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_DOMNode,0) < 0) {
+ SWIG_croak("Type error in argument 1 of
DOMNode_operator_not_equal_to. Expected _p_DOMNode");
+ }
+ }
+ {
+ if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_DOMNode,0) < 0) {
+ SWIG_croak("Type error in argument 2 of
DOMNode_operator_not_equal_to. Expected _p_DOMNode");
+ }
+ }
+ {
+ try {
+ result = (bool)DOMNode_operator_Ne___(arg1,(DOMNode const *)arg2);
+
+ }
+ catch (const XMLException& e)
+ {
+ makeXMLException(e);
+ }
+ catch (const DOMException& e)
+ {
+ makeDOMException(e);
+ }
+ catch (...)
+ {
+ XMLPlatformUtils::Terminate();
+ croak("%s", "Handling Unknown exception");
+ }
+ }
+ ST(argvi) = sv_newmortal();
+ sv_setiv(ST(argvi++), (IV) result);
+ XSRETURN(argvi);
+ fail:
+ (void) _swigerr;
+ }
+ croak(_swigerr);
+}
+
XS(_wrap_delete_DOMAttr) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
@@ -39157,8 +39299,8 @@
XSRETURN(1);
}
}
- arg4 = (XMLSSize_t) SvUV(ST(3));
- arg5 = (XMLSSize_t) SvUV(ST(4));
+ arg4 = (XMLSSize_t) SvIV(ST(3));
+ arg5 = (XMLSSize_t) SvIV(ST(4));
{
try {
result = (DOMElement *)(arg1)->createElementNS((XMLCh const
*)arg2,(XMLCh const *)arg3,arg4,arg5);
@@ -42619,7 +42761,7 @@
arg2 = (XMLSize_t) SvUV(ST(1));
{
try {
- result = (DOMNode *)((DOMNodeList const *)arg1)->item(arg2);
+ result = (DOMNode *)(arg1)->item(arg2);
}
catch (const XMLException& e)
@@ -42667,7 +42809,7 @@
}
{
try {
- result = (XMLSize_t)((DOMNodeList const *)arg1)->getLength();
+ result = (XMLSize_t)(arg1)->getLength();
}
catch (const XMLException& e)
@@ -45651,7 +45793,7 @@
}
}
ST(argvi) = sv_newmortal();
- sv_setuv(ST(argvi++), (UV) result);
+ sv_setiv(ST(argvi++), (IV) result);
XSRETURN(argvi);
fail:
(void) _swigerr;
@@ -45696,7 +45838,7 @@
}
}
ST(argvi) = sv_newmortal();
- sv_setuv(ST(argvi++), (UV) result);
+ sv_setiv(ST(argvi++), (IV) result);
XSRETURN(argvi);
fail:
(void) _swigerr;
@@ -45741,7 +45883,7 @@
}
}
ST(argvi) = sv_newmortal();
- sv_setuv(ST(argvi++), (UV) result);
+ sv_setiv(ST(argvi++), (IV) result);
XSRETURN(argvi);
fail:
(void) _swigerr;
@@ -45861,7 +46003,7 @@
SWIG_croak("Type error in argument 1 of DOMLocator_setLineNumber.
Expected _p_DOMLocator");
}
}
- arg2 = (XMLSSize_t) SvUV(ST(1));
+ arg2 = (XMLSSize_t) SvIV(ST(1));
{
try {
(arg1)->setLineNumber(arg2);
@@ -45906,7 +46048,7 @@
SWIG_croak("Type error in argument 1 of DOMLocator_setColumnNumber.
Expected _p_DOMLocator");
}
}
- arg2 = (XMLSSize_t) SvUV(ST(1));
+ arg2 = (XMLSSize_t) SvIV(ST(1));
{
try {
(arg1)->setColumnNumber(arg2);
@@ -45951,7 +46093,7 @@
SWIG_croak("Type error in argument 1 of DOMLocator_setOffset.
Expected _p_DOMLocator");
}
}
- arg2 = (XMLSSize_t) SvUV(ST(1));
+ arg2 = (XMLSSize_t) SvIV(ST(1));
{
try {
(arg1)->setOffset(arg2);
@@ -48797,7 +48939,7 @@
static swig_type_info _swigt__p_DOMDocument[] = {{"XML::Xerces::DOMDocument", 0,
"DOMDocument *", 0},{"XML::Xerces::DOMDocument"},{0}};
static swig_type_info _swigt__p_DOMNodeIterator[] =
{{"XML::Xerces::DOMNodeIterator", 0, "DOMNodeIterator *",
0},{"XML::Xerces::DOMNodeIterator"},{0}};
static swig_type_info _swigt__p_DOMImplementation[] =
{{"XML::Xerces::DOMImplementation", 0, "DOMImplementation *",
0},{"XML::Xerces::DOMImplementation"},{0}};
-static swig_type_info _swigt__p_XMLCh[] = {{"_p_XMLCh", 0, "XMLCh *",
0},{"_p_XMLCh"},{0}};
+static swig_type_info _swigt__p_XMLCh[] = {{"_p_XMLCh", 0, "XMLCh const []",
0},{"_p_XMLCh"},{0}};
static swig_type_info _swigt__p_DOMImplementationRegistry[] =
{{"XML::Xerces::DOMImplementationRegistry", 0, "DOMImplementationRegistry *",
0},{"XML::Xerces::DOMImplementationRegistry"},{0}};
static swig_type_info _swigt__p_XMLFormatter[] = {{"XML::Xerces::XMLFormatter", 0,
"XMLFormatter *", 0},{"XML::Xerces::XMLFormatter"},{0}};
static swig_type_info _swigt__p_XMLAttr[] = {{"_p_XMLAttr", 0, "XMLAttr *",
0},{"_p_XMLAttr"},{0}};
@@ -49582,7 +49724,6 @@
{ "XML::Xercesc::XMLUni_fgUTF16EncodingString2", MAGIC_CLASS
swig_magic_readonly, MAGIC_CLASS
_wrap_val_XMLUni_fgUTF16EncodingString2,&SWIGTYPE_p_XMLCh },
{ "XML::Xercesc::XMLUni_fgUTF16EncodingString3", MAGIC_CLASS
swig_magic_readonly, MAGIC_CLASS
_wrap_val_XMLUni_fgUTF16EncodingString3,&SWIGTYPE_p_XMLCh },
{ "XML::Xercesc::XMLUni_fgUTF16EncodingString4", MAGIC_CLASS
swig_magic_readonly, MAGIC_CLASS
_wrap_val_XMLUni_fgUTF16EncodingString4,&SWIGTYPE_p_XMLCh },
- { "XML::Xercesc::XMLUni_fgUTF16EncodingString5", MAGIC_CLASS
swig_magic_readonly, MAGIC_CLASS
_wrap_val_XMLUni_fgUTF16EncodingString5,&SWIGTYPE_p_XMLCh },
{ "XML::Xercesc::XMLUni_fgUTF16BEncodingString", MAGIC_CLASS
swig_magic_readonly, MAGIC_CLASS
_wrap_val_XMLUni_fgUTF16BEncodingString,&SWIGTYPE_p_XMLCh },
{ "XML::Xercesc::XMLUni_fgUTF16BEncodingString2", MAGIC_CLASS
swig_magic_readonly, MAGIC_CLASS
_wrap_val_XMLUni_fgUTF16BEncodingString2,&SWIGTYPE_p_XMLCh },
{ "XML::Xercesc::XMLUni_fgUTF16LEncodingString", MAGIC_CLASS
swig_magic_readonly, MAGIC_CLASS
_wrap_val_XMLUni_fgUTF16LEncodingString,&SWIGTYPE_p_XMLCh },
@@ -49753,6 +49894,7 @@
{"XML::Xercesc::delete_QName", _wrap_delete_QName},
{"XML::Xercesc::QName_getPrefix", _wrap_QName_getPrefix},
{"XML::Xercesc::QName_getLocalPart", _wrap_QName_getLocalPart},
+{"XML::Xercesc::QName_getURI", _wrap_QName_getURI},
{"XML::Xercesc::QName_getRawName", _wrap_QName_getRawName},
{"XML::Xercesc::QName_setName", _wrap_QName_setName},
{"XML::Xercesc::QName_setPrefix", _wrap_QName_setPrefix},
@@ -50278,6 +50420,8 @@
{"XML::Xercesc::DOMNode_lookupNamespaceURI", _wrap_DOMNode_lookupNamespaceURI},
{"XML::Xercesc::DOMNode_getInterface", _wrap_DOMNode_getInterface},
{"XML::Xercesc::DOMNode_release", _wrap_DOMNode_release},
+{"XML::Xercesc::DOMNode_operator_equal_to", _wrap_DOMNode_operator_equal_to},
+{"XML::Xercesc::DOMNode_operator_not_equal_to",
_wrap_DOMNode_operator_not_equal_to},
{"XML::Xercesc::delete_DOMAttr", _wrap_delete_DOMAttr},
{"XML::Xercesc::DOMAttr_getName", _wrap_DOMAttr_getName},
{"XML::Xercesc::DOMAttr_getSpecified", _wrap_DOMAttr_getSpecified},
1.19 +27 -2 xml-xerces/perl/Xerces.pm
Index: Xerces.pm
===================================================================
RCS file: /home/cvs/xml-xerces/perl/Xerces.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- Xerces.pm 13 Nov 2002 06:47:23 -0000 1.18
+++ Xerces.pm 9 Dec 2002 19:43:47 -0000 1.19
@@ -645,6 +645,7 @@
*getPrefix = *XML::Xercesc::QName_getPrefix;
*getLocalPart = *XML::Xercesc::QName_getLocalPart;
+*getURI = *XML::Xercesc::QName_getURI;
*getRawName = *XML::Xercesc::QName_getRawName;
*setName = *XML::Xercesc::QName_setName;
*setPrefix = *XML::Xercesc::QName_setPrefix;
@@ -2105,7 +2106,6 @@
*fgUTF16EncodingString2 = *XML::Xercesc::XMLUni_fgUTF16EncodingString2;
*fgUTF16EncodingString3 = *XML::Xercesc::XMLUni_fgUTF16EncodingString3;
*fgUTF16EncodingString4 = *XML::Xercesc::XMLUni_fgUTF16EncodingString4;
-*fgUTF16EncodingString5 = *XML::Xercesc::XMLUni_fgUTF16EncodingString5;
*fgUTF16BEncodingString = *XML::Xercesc::XMLUni_fgUTF16BEncodingString;
*fgUTF16BEncodingString2 = *XML::Xercesc::XMLUni_fgUTF16BEncodingString2;
*fgUTF16LEncodingString = *XML::Xercesc::XMLUni_fgUTF16LEncodingString;
@@ -3611,6 +3611,10 @@
package XML::Xerces::DOMNode;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
+use overload
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
+ "!=" => sub { $_[0]->operator_not_equal_to($_[1])},
+ "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -4058,6 +4062,28 @@
tie %resulthash, ref($result), $result;
return bless \%resulthash, ref($result);
}
+sub operator_equal_to {
+ my @args = @_;
+ if ($args[0]->isa('XML::Xerces::DOMDocument')) {
+ $args[0] = $args[0]->toDOMNode();
+ }
+ my $result = XML::Xercesc::DOMNode_operator_equal_to(@args);
+ return $result unless UNIVERSAL::isa($result,'XML::Xerces');
+ my %resulthash;
+ tie %resulthash, ref($result), $result;
+ return bless \%resulthash, ref($result);
+}
+sub operator_not_equal_to {
+ my @args = @_;
+ if ($args[0]->isa('XML::Xerces::DOMDocument')) {
+ $args[0] = $args[0]->toDOMNode();
+ }
+ my $result = XML::Xercesc::DOMNode_operator_not_equal_to(@args);
+ return $result unless UNIVERSAL::isa($result,'XML::Xerces');
+ my %resulthash;
+ tie %resulthash, ref($result), $result;
+ return bless \%resulthash, ref($result);
+}
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
@@ -5542,7 +5568,6 @@
*XMLUni_fgUTF16EncodingString2 = *XML::Xercesc::XMLUni_fgUTF16EncodingString2;
*XMLUni_fgUTF16EncodingString3 = *XML::Xercesc::XMLUni_fgUTF16EncodingString3;
*XMLUni_fgUTF16EncodingString4 = *XML::Xercesc::XMLUni_fgUTF16EncodingString4;
-*XMLUni_fgUTF16EncodingString5 = *XML::Xercesc::XMLUni_fgUTF16EncodingString5;
*XMLUni_fgUTF16BEncodingString = *XML::Xercesc::XMLUni_fgUTF16BEncodingString;
*XMLUni_fgUTF16BEncodingString2 = *XML::Xercesc::XMLUni_fgUTF16BEncodingString2;
*XMLUni_fgUTF16LEncodingString = *XML::Xercesc::XMLUni_fgUTF16LEncodingString;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
