changed: #report:stream: - use XMLUTF8 encoder, if possible
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sat, 30 Jun 2012 22:34:17 +0200
changeset 89 b21b16d6c4f8
parent 88 56c85ef68928
child 90 995880ed753c
changed: #report:stream: - use XMLUTF8 encoder, if possible
reports/Builder__ReportFormat.st
--- a/reports/Builder__ReportFormat.st	Fri May 04 19:55:55 2012 +0200
+++ b/reports/Builder__ReportFormat.st	Sat Jun 30 22:34:17 2012 +0200
@@ -84,7 +84,16 @@
     (aStream isKindOf: EncodedStream) ifTrue:[
         stream := aStream.
     ] ifFalse:[
-        stream := EncodedStream stream: aStream encoder: CharacterEncoder encoderForUTF8
+        | encoder |
+        "Kludge since ISO10646_to_XMLUTF8 encoder may not be present"
+
+        CharacterEncoderImplementations::ISO10646_to_XMLUTF8 notNil ifTrue:[
+            CharacterEncoderImplementations::ISO10646_to_XMLUTF8 autoload.
+            encoder := CharacterEncoderImplementations::ISO10646_to_XMLUTF8 new.
+        ] ifFalse:[
+            encoder := CharacterEncoder encoderForUTF8.
+        ].
+        stream := EncodedStream stream: aStream encoder: encoder
     ]
 
     "Created: / 03-08-2011 / 18:54:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"