Thanks for your help.
I figure, with all the peaces of code you sent, to do exactly what I want to do for now.
But I want just let you know a strange behavior that you may want to have a look at while you are fixing some other problems
if I run the following code:
my $impl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS');
my $writer = $impl->createDOMWriter();
if ($writer->canSetFeature('format-pretty-print',1)) {
$writer->setFeature('format-pretty-print',1);
}
$writer->setEncoding('ISO-8859-1');
my $target = XML::Xerces::StdOutFormatTarget->new();
$writer->writeNode($target,$doc);It work properly and I have for first line:
<?xml version="1.0" encoding="ISO-8859-1" standalone="no" ?>
But then if I replace the 2 last lines and that I use instead the function writeToString:
my $str = $writer->writeToString($doc);
print STDERR "$str\n";
then the first line is:
<?xml version="1.0" encoding="UTF-16" standalone="no" ?>
where the eoncoding is not right. I found that pretty strange. I hope that help you.
Thanks again
Christian
PS: Let me know when your new version is available and I will let me know my feedbak.
Jason E. Stewart wrote:
Christian Orsatti <[EMAIL PROTECTED]> writes:
Sorry to bother you again.
No bother - this is the place for questions - and besides things have been far too quiet around here lately.
I am trying to create from sratch an XML file. Base on the Xerces
perl exemple (whichi seems to be old and not really running) and
Xerces C++ ducumentation
Yes, some examples are out of date, my appologies. The tests located in the t/ directory should *always* be up-to-date, however.
$serializer->setFeature("$XML::Xerces::fgDOMWRTFormatPrettyPrint", 1);
This line give me an error:
XML::Xerces::DOMException=HASH(0x8469214)
If it can throw an exception, you probably want to wrap it with an eval (like the other calls) and call error() if $@ is set. That will tell you why you can't set pretty print.
Also, the symbol is:
$XML::Xerces::XMLUni::fgDOMWRTFormatPrettyPrint
not:
$XML::Xerces::fgDOMWRTFormatPrettyPrint
So:
eval {$serializer->setFeature($XML::Xerces::XMLUni::fgDOMWRTFormatPrettyPrint, 1)}; XML::Xerces::error($@) if $@
Produces:
Error in eval: Type error in argument 2 of $name, Expected
perl-string.
if we look why:
DB<12> p $XML::Xerces::XMLUni::fgDOMWRTFormatPrettyPrint
_p_XMLCh=SCALAR(0x1069f9bc)
Aha! The unicode constants are being exported as UTF-16 characters and *not* as Perl strings like they should. That _p_FOO garbage is simply SWIG's default wrapping of types it does not understand (SWIG is the tool I use to create the Perl layer on top of the C++ layer).
So you won't be able to use the fgFOO constants until I fix that (the
same is true for the ISO-8859-1 problem you are having. In the
meantime, you simply use Perl strings.
Anytime the Xerces-C API tells you to use a UTF-16 string (an XMLCh*, you can simply use a perl string - the XML::Xerces code will automatically convert it for you).
Looking at samples/DOMPrint.pl:
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);
we can use the string 'format-pretty-print' instead.
Here I would like to write to a file directly but I haven't found the
equivanlent in Perl of the LocalFileFormatTarget C++ class to use in
writeNode() function.
Oops! Looks like I missed this declaration. I've added it now, so it
will be in the next release (which I can make in a day or two after
I've fixed the string constant problems). In the meantime, using the
MemBuf target and simply calling Perl's print function works just as
well.
But I can write my string to a file with Perl features. By my string is all on one line:
How can I format it with Xerces Perl in order to have an indented XML
(has if is was written through emacs for example) ?
setting pretty-print does that fairly well.
Is there better way to do what I want than the code I did ?
check samples/DOMPrint.pl or t/DOMWriter.t neither are very advanced, but they are correct and functional. I'm happy to take better examples from anyone who has them.
$serializer->$serializer->setEncoding("$XML::Xerces::XMLUni::fgISO88591EncodingString");
Yes, this constant is broken as well. It will be fixed in the next
release. For now, just using the perl string 'ISO-8859-1' will work.
my $dt = eval{$impl->createDocumentType('PhysicalEntity', 'no', 'PhysicalEntity.dtd')};
($@) and die ($@);
my $doc = eval{$impl->createDocument('', 'PhysicalEntity',$dt)}; ($@) and die ($@);
$doc->setEncoding("\*XML::Xerces::XMLUni::fgISO88591EncodingString");
You can do either $doc->setEncoding or $serializer->setEncoding whichever you prefer.
Thanks again for the feedback, jas.
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
