The Trunk: Multilingual-ar.109.mcz

Andreas Raab uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-ar.109.mcz

==================== Summary ====================

Name: Multilingual-ar.109
Author: ar
Time: 25 March 2010, 8:50:20.81 pm
UUID: 57df4694-dc52-d44b-9e09-295026a07e63
Ancestors: Multilingual-nice.108, Multilingual-ul.105

Merging Multilingual-ul.105

- implement MultiByteFileStream >> #back (for #backChunk)

=============== Diff against Multilingual-nice.108 ===============

Item was added:
+ ----- Method: ByteTextConverter>>backFromStream: (in category 'conversion') -----
+ backFromStream: aStream
+
+ aStream position = 0 ifTrue: [ ^nil ].
+ aStream isBinary ifTrue: [ ^aStream basicBack ].
+ ^self toSqueak: aStream basicBack!

Item was added:
+ ----- Method: MultiByteFileStream>>basicBack (in category 'private basic') -----
+ basicBack
+
+ self position = 0 ifTrue: [ self errorCantGoBack ].
+ self skip: -1.
+ ^self basicPeek
+ !

Item was added:
+ ----- Method: TextConverter>>backFromStream: (in category 'conversion') -----
+ backFromStream: aStream
+
+ self subclassResponsibility
+ !

Item was added:
+ ----- Method: MultiByteFileStream>>back (in category 'public') -----
+ back
+
+ ^converter backFromStream: self!

Item was added:
+ ----- Method: UTF8TextConverter>>backFromStream: (in category 'conversion') -----
+ backFromStream: aStream
+
+ aStream position = 0 ifTrue: [ ^nil ].
+ aStream isBinary ifTrue: [ ^aStream basicBack ].
+ [ aStream position = 0 or: [
+ (aStream basicBack asciiValue bitXor: 128) >= 64 ] ] whileFalse.
+ ^aStream peek!