CharacterEncoderImplementations__SingleByteEncoder.st
changeset 11997 b4a8b0240492
parent 8811 b2a78fe1d44f
child 12433 b8654ecbc50d
--- 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 $'
 ! !