[squeak-dev] The Inbox: Multilingual-ul.105.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 22 08:05:37 UTC 2010


A new version of Multilingual was added to project The Inbox:
http://source.squeak.org/inbox/Multilingual-ul.105.mcz

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

Name: Multilingual-ul.105
Author: ul
Time: 22 March 2010, 8:20:56.511 am
UUID: 111ecd46-1e98-fc47-bdea-ccc67f13f496
Ancestors: Multilingual-nice.104

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

=============== Diff against Multilingual-nice.104 ===============

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!




More information about the Squeak-dev mailing list