diff -r 3f018d0b8d45 -r b4a8b0240492 CharacterEncoderImplementations__SingleByteEncoder.st --- 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 $' ! !