jasons 2002/10/19 16:01:12
Modified: perl/samples DOMCreate.pl DOMPrint.pl
Log:
* samples/DOMPrint.pl (Repository):
* samples/DOMCreate.pl (Repository):
now uses DOMWriter
Revision Changes Path
1.6 +19 -31 xml-xerces/perl/samples/DOMCreate.pl
Index: DOMCreate.pl
===================================================================
RCS file: /home/cvs/xml-xerces/perl/samples/DOMCreate.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- DOMCreate.pl 25 Mar 2002 00:48:57 -0000 1.5
+++ DOMCreate.pl 19 Oct 2002 23:01:12 -0000 1.6
@@ -65,46 +65,48 @@
use strict;
+use blib;
use XML::Xerces;
-use XML::Xerces::DOMParse;
#
# create a document
#
-my $impl = XML::Xerces::DOM_DOMImplementation::getImplementation();
+my $impl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS');
my $dt = eval{$impl->createDocumentType('contributors', '', 'contributors.dtd')};
-error($@) if $@;
+XML::Xerces::error($@) if $@;
my $doc = eval{$impl->createDocument('contributors', 'contributors',$dt)};
-error($@) if $@;
+XML::Xerces::error($@) if $@;
my $root = $doc->getDocumentElement();
$root->appendChild(CreatePerson(
- $doc,
- 'Mike Pogue',
- 'manager',
+ $doc,
+ 'Mike Pogue',
+ 'manager',
'[EMAIL PROTECTED]'
));
$root->appendChild(CreatePerson(
- $doc,
- 'Tom Watson',
- 'developer',
+ $doc,
+ 'Tom Watson',
+ 'developer',
'[EMAIL PROTECTED]'
));
$root->appendChild(CreatePerson(
- $doc,
- 'Susan Hardenbrook',
- 'tech writer',
+ $doc,
+ 'Susan Hardenbrook',
+ 'tech writer',
'[EMAIL PROTECTED]'
));
-
-$XML::Xerces::DOMParse::INDENT = " ";
-XML::Xerces::DOMParse::format ($doc);
-XML::Xerces::DOMParse::print (\*STDOUT, $doc);
+my $writer = $impl->createDOMWriter();
+if ($writer->canSetFeature('format-pretty-print',1)) {
+ $writer->setFeature('format-pretty-print',1);
+}
+my $target = XML::Xerces::StdOutFormatTarget->new();
+$writer->writeNode($target,$doc);
#################################################################
@@ -140,20 +142,6 @@
$person->appendChild ($emailNode);
}
-
-sub error {
- my $error = shift;
- print STDERR "Error in eval: ";
- if (ref $error) {
- print STDERR "msg: ", $error->getMessage();
- if (ref $error eq 'XML::Xerces::DOM_DOMException') {
- print STDERR "\n\tcode: ", $error->{code};
- }
- print STDERR "\n";
- } else {
- print STDERR $error;
- }
-}
__END__
1.11 +8 -8 xml-xerces/perl/samples/DOMPrint.pl
Index: DOMPrint.pl
===================================================================
RCS file: /home/cvs/xml-xerces/perl/samples/DOMPrint.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- DOMPrint.pl 27 Aug 2002 19:33:19 -0000 1.10
+++ DOMPrint.pl 19 Oct 2002 23:01:12 -0000 1.11
@@ -132,11 +132,11 @@
my $doc = $parser->getDocument();
-XML::Xerces::DOMParse::unformat ($doc);
-XML::Xerces::DOMParse::format ($doc);
-XML::Xerces::DOMParse::print (\*STDOUT, $doc);
-exit(0);
-
-__END__
-print STDOUT $doc->serialize();
+my $impl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS');
+my $writer = $impl->createDOMWriter();
+if ($writer->canSetFeature('format-pretty-print',1)) {
+ $writer->setFeature('format-pretty-print',1);
+}
+my $target = XML::Xerces::StdOutFormatTarget->new();
+$writer->writeNode($target,$doc);
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
