--- a/CharacterEncoderImplementations__SingleByteEncoder.st Tue Sep 22 11:08:09 2009 +0200
+++ b/CharacterEncoderImplementations__SingleByteEncoder.st Tue Sep 22 11:08:34 2009 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -62,8 +61,41 @@
^ String uninitializedNew:size
! !
+!SingleByteEncoder methodsFor:'queries'!
+
+characterSize:codePoint
+
+ ^1
+
+ "Created: / 15-06-2005 / 15:11:24 / janfrog"
+! !
+
+!SingleByteEncoder methodsFor:'stream support'!
+
+readNext:charactersToRead charactersFrom:stream
+
+ ^self decodeString:(stream next:charactersToRead)
+
+ "Created: / 16-06-2005 / 11:45:52 / masca"
+!
+
+readNextCharacterFrom:aStream
+
+ | c |
+
+ c := aStream next
+
+ ^ c isNil
+ ifTrue: [nil]
+ ifFalse: [(self decode:c asInteger) asCharacter]
+
+ "Created: / 14-06-2005 / 17:03:21 / janfrog"
+ "Modified: / 15-06-2005 / 15:27:49 / janfrog"
+ "Modified: / 20-06-2005 / 13:13:52 / masca"
+! !
+
!SingleByteEncoder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__SingleByteEncoder.st,v 1.5 2005-03-31 18:13:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__SingleByteEncoder.st,v 1.6 2009-09-22 09:08:34 fm Exp $'
! !