--- a/CharacterEncoderImplementations__TwoByteEncoder.st Wed Nov 04 01:46:50 2009 +0100
+++ b/CharacterEncoderImplementations__TwoByteEncoder.st Wed Nov 04 01:47:35 2009 +0100
@@ -61,8 +61,27 @@
"Created: / 15-06-2005 / 15:12:01 / janfrog"
! !
+!TwoByteEncoder methodsFor:'stream support'!
+
+readNextCharacterFrom:aStream
+ | c |
+
+ c := aStream nextUnsignedShortMSB:false.
+ ^ c isNil
+ ifTrue: [nil]
+ ifFalse: [(self decode:c) asCharacter]
+!
+
+readNextInputCharacterFrom:aStream
+ ^ aStream nextUnsignedShortMSB:false
+! !
+
!TwoByteEncoder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__TwoByteEncoder.st,v 1.5 2009-09-22 09:07:39 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__TwoByteEncoder.st,v 1.6 2009-11-04 00:47:35 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__TwoByteEncoder.st,v 1.6 2009-11-04 00:47:35 cg Exp $'
! !