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 2002/04/25 08:30:13 UTC
cvs commit: xml-xerces/perl ChangeLog Xerces.pm
jasons 02/04/24 23:30:12
Modified: perl ChangeLog Xerces.pm
Log:
usual
Revision Changes Path
1.46 +6 -0 xml-xerces/perl/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/xml-xerces/perl/ChangeLog,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- ChangeLog 25 Apr 2002 06:08:12 -0000 1.45
+++ ChangeLog 25 Apr 2002 06:30:12 -0000 1.46
@@ -1,5 +1,11 @@
2002-04-25 Jason E. Stewart <ja...@openinformatics.com>
+ * Makefile.PL (Repository):
+ Fixed dependancy on Xerces-extra.pm
+
+ * Xerces-extra.pm (Repository):
+ needed to keep quote_content() in DOM_Node package
+
* README (Repository):
Added info on error()
minor re-wording
1.15 +19 -20 xml-xerces/perl/Xerces.pm
Index: Xerces.pm
===================================================================
RCS file: /home/cvs/xml-xerces/perl/Xerces.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- Xerces.pm 25 Apr 2002 06:08:13 -0000 1.14
+++ Xerces.pm 25 Apr 2002 06:30:12 -0000 1.15
@@ -11,7 +11,7 @@
INIT {
# NOTICE: We are automatically calling XMLPlatformUtils::Initialize()
- # when the module is loaded. Do not call it on your own.
+ # when the module is loaded. Don't bother calling it on your own.
#
#
XML::Xerces::XMLPlatformUtils::Initialize();
@@ -19,7 +19,7 @@
END {
# NOTICE: We are automatically calling XMLPlatformUtils::Terminate()
- # when the module is unloaded. Do not call it on your own.
+ # when the module is unloaded. Don't bother calling it on your own.
#
#
XML::Xerces::XMLPlatformUtils::Terminate();
@@ -202,18 +202,6 @@
return %hash;
}
-package XML::Xerces::DOM_Entity;
-use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
-sub to_hash {
- my $self = shift;
- if ($self->hasChildNodes) {
- return ($self->getNodeName(),
- $self->getFirstChild->getNodeValue());
- } else {
- return ($self->getNodeName(), '');
- }
-}
-
package XML::Xerces::AttributeList;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
sub to_hash {
@@ -233,18 +221,17 @@
my @list;
for (my $i=0;$i<$self->getLength();$i++) {
my $node = $self->item($i);
- if ($node->getNodeType == $XML::Xerces::DOM_Node::ENTITY_NODE) {
- push(@list, $node->to_hash());
- } else {
- push(@list, $node->getNodeName());
- push(@list,$node->getNodeValue());
- }
+ push(@list, $node->to_hash());
}
return @list;
}
package XML::Xerces::DOM_Node;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
+sub to_hash {
+ my $self = shift;
+ return ($self->getNodeName,$self->getNodeValue);
+}
sub quote_content {
my ($self,$node_value) = @_;
@@ -256,6 +243,18 @@
$node_value =~ s/\'/'/g;
return $node_value;
+}
+
+package XML::Xerces::DOM_Entity;
+use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
+sub to_hash {
+ my $self = shift;
+ if ($self->hasChildNodes) {
+ return ($self->getNodeName(),
+ $self->getFirstChild->getNodeValue());
+ } else {
+ return ($self->getNodeName(), '');
+ }
}
package XML::Xerces::DOM_Text;
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org