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/03/25 01:50:14 UTC
cvs commit: xml-xerces/perl/DOMParse DOMParse.pm
jasons 02/03/24 16:50:14
Modified: perl/DOMParse DOMParse.pm
Log:
* DOMParse/DOMParse.pm (Repository):
updated for IDOM
Revision Changes Path
1.7 +12 -12 xml-xerces/perl/DOMParse/DOMParse.pm
Index: DOMParse.pm
===================================================================
RCS file: /home/cvs/xml-xerces/perl/DOMParse/DOMParse.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- DOMParse.pm 6 Sep 2001 04:38:37 -0000 1.6
+++ DOMParse.pm 25 Mar 2002 00:50:14 -0000 1.7
@@ -131,7 +131,7 @@
sub parse_child_nodes {
my ($child, $process_node, $data) = @_;
- while ( !$child->isNull() ) {
+ while ( defined $child ) {
my $nextchild = $child->getNextSibling ();
XML::Xerces::DOMParse::parse_nodes ($child, $process_node, $data);
$child = $nextchild;
@@ -142,7 +142,7 @@
my ($node) = @_;
my $parent = $node;
- while ( !$parent->isNull() ) {
+ while ( defined $parent ) {
$parent = $node->getParentNode ();
}
@@ -153,7 +153,7 @@
my ($node) = @_;
my $d = -1;
- while ( !$node->isNull() ) {
+ while ( defined $node ) {
$d++;
$node = $node->getParentNode ();
}
@@ -164,7 +164,7 @@
sub insert_before {
my ($ref, $new_node) = @_;
my $parent = $ref->getParentNode ();
- if ( !$parent->isNull() ) {
+ if ( defined $parent ) {
$parent->insertBefore ($new_node, $ref);
}
}
@@ -173,9 +173,9 @@
my ($ref, $new_node) = @_;
my $next = $ref->getNextSibling ();
- if ( $next->isNull() ) {
+ if ( !defined $next ) {
my $parent = $ref->getParentNode ();
- if ( !$parent->isNull() ) {
+ if ( defined $parent ) {
$parent->appendChild ($new_node);
}
} else {
@@ -187,7 +187,7 @@
my ($node) = @_;
my $parent = $node->getParentNode ();
- if ( !$parent->isNull() ) {
+ if ( defined $parent ) {
$parent->removeChild ($node);
}
}
@@ -264,10 +264,10 @@
sub print_document_node {
my ($fh, $node) = @_;
- my $decl_node = $node->getFirstChild();
- unless($decl_node->getNodeType() == $XML::Xerces::DOM_Node::XML_DECL_NODE) {
- die "$0: couldn't find an XMLDecl node, try \$parser->setToCreateXMLDeclTypeNode(1)";
- }
+# my $decl_node = $node->getFirstChild();
+# unless($decl_node->getNodeType() == $XML::Xerces::DOM_Node::XML_DECL_NODE) {
+# die "$0: couldn't find an XMLDecl node, try \$parser->setToCreateXMLDeclTypeNode(1)";
+# }
return 1; # children to parse
}
@@ -442,7 +442,7 @@
my $formatText = XML::Xerces::DOMParse::create_format_text ($doc, $level-1);
XML::Xerces::DOMParse::insert_before ($node, $formatText);
- if ( $node->getNextSibling()->isNull() ) {
+ if ( !defined $node->getNextSibling() ) {
my $formatText = XML::Xerces::DOMParse::create_format_text ($doc, $level-2);
XML::Xerces::DOMParse::insert_after ($node, $formatText);
}
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org