Eliot Miranda uploaded a new version of Multilingual to project The Inbox:
http://source.squeak.org/inbox/Multilingual-eem.229.mcz==================== Summary ====================
Name: Multilingual-eem.229
Author: eem
Time: 12 July 2017, 6:19:36.045422 pm
UUID: f6e56208-2b41-4af8-9112-7323fb4d7d68
Ancestors: Multilingual-pre.228
Fix two test failures due to bugs in the UTF16TextConverter
=============== Diff against Multilingual-pre.228 ===============
Item was added:
+ ----- Method: UTF16TextConverter>>next:putAll:startingAt:toStream: (in category 'conversion') -----
+ next: anInteger putAll: aString startingAt: startIndex toStream: aStream
+ "Handle fast conversion if ByteString"
+
+ | lastIndex nextIndex |
+ anInteger > 0 ifFalse: [ ^aString ].
+ aStream isBinary ifTrue: [
+ aStream basicNext: anInteger putAll: aString startingAt: startIndex.
+ ^aString ].
+ aString class == ByteString ifFalse: [
+ startIndex to: startIndex + anInteger - 1 do: [ :index |
+ self nextPut: (aString at: index) toStream: aStream ].
+ ^aString ].
+ lastIndex := startIndex.
+ [ (nextIndex := ByteString
+ findFirstInString: aString
+ inSet: latin1Map
+ startingAt: lastIndex) = 0 or: [ anInteger + startIndex <= nextIndex ] ] whileFalse: [
+ aStream basicNext: nextIndex - lastIndex putAll: aString startingAt: lastIndex.
+ self next16BitValue: (aString byteAt: nextIndex) toStream: aStream.
+ lastIndex := nextIndex + 1 ].
+ aStream basicNext: anInteger - lastIndex + startIndex putAll: aString startingAt: lastIndex.
+ ^aString!
Item was changed:
----- Method: UTF16TextConverter>>swapLatin1EncodingByteOrder (in category 'private') -----
swapLatin1EncodingByteOrder
+ latin1Encodings := latin1Encodings collect: [:each | each ifNotNil: [each reverse]]!
- latin1Encodings := latin1Encodings collect: [:each | each reverse]!