--- a/MiniLogger.st Thu Oct 09 10:47:11 2014 +0200
+++ b/MiniLogger.st Thu Oct 09 11:49:20 2014 +0200
@@ -597,6 +597,15 @@
log: message severity: severity facility: facility originator: originator attachment: attachment on:aStream
"Pricipal logging method. This mimics VM __stxLog__()"
+ | messageProperlyEncoded |
+
+ messageProperlyEncoded := message.
+ "/ If the message is Unicode 16/32 string and stream is external,
+ "/ we have to recode the message using locale-specific encoding
+ (message isWideString and:[ aStream isExternalStream ]) ifTrue:[
+ messageProperlyEncoded := OperatingSystem encodePath: message.
+ ].
+
aStream
nextPutAll: facility ? 'STX';
space;
@@ -609,7 +618,7 @@
Timestamp now printOn:aStream format:'%(year)-%(mon)-%(day) %h:%m:%s.%i'.
aStream nextPut:$).
aStream space.
- aStream nextPutAll: message.
+ aStream nextPutAll: messageProperlyEncoded.
aStream cr.
"
@@ -617,7 +626,7 @@
"
"Created: / 14-09-2011 / 21:18:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 22-09-2014 / 11:57:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 09-10-2014 / 10:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MiniLogger::Severity methodsFor:'accessing'!
@@ -652,11 +661,11 @@
!MiniLogger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.9 2014-10-09 08:47:11 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.10 2014-10-09 09:49:20 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.9 2014-10-09 08:47:11 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.10 2014-10-09 09:49:20 vrany Exp $'
!
version_HG
@@ -665,7 +674,7 @@
!
version_SVN
- ^ '$Id: MiniLogger.st,v 1.9 2014-10-09 08:47:11 vrany Exp $'
+ ^ '$Id: MiniLogger.st,v 1.10 2014-10-09 09:49:20 vrany Exp $'
! !