[Pkg] The Trunk: Multilingual-ul.148.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-ul.148.mcz

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

Name: Multilingual-ul.148
Author: ul
Time: 22 May 2011, 1:39:13.937 pm
UUID: 6b3af2f6-9f85-c844-9af3-66cf37524525
Ancestors: Multilingual-ul.147

- fixed UTF16 line end conversions
- initialize instance variables of UTF16TextConverter

=============== Diff against Multilingual-ul.147 ===============

Item was added:
+ ----- Method: UTF16TextConverter>>initialize (in category 'initialize-release') -----
+ initialize
+ 
+ 	super initialize.
+ 	useLittleEndian := useByteOrderMark := byteOrderMarkDone := false.
+ 	!

Item was changed:
  ----- Method: UTF16TextConverter>>nextPut:toStream: (in category 'conversion') -----
  nextPut: aCharacter toStream: aStream
  
+ 	| charCode |
+ 	aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ].
+ 	(useByteOrderMark == true and: [ byteOrderMarkDone isNil ]) ifTrue: [
+ 		self next16BitValue: 16rFEFF toStream: aStream.
+ 		byteOrderMarkDone := true ].
+ 	(charCode := aCharacter charCode) < 256
+ 		ifTrue: [
+ 			(latin1Encodings at: charCode + 1)
+ 				ifNil: [ self next16BitValue: charCode toStream: aStream ]
+ 				ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ]
+ 		ifFalse: [
+ 			charCode <= 16rFFFF
+ 				ifTrue: [ self next16BitValue: charCode toStream: aStream ]
+ 				ifFalse: [
+ 					| low high |
+ 					charCode := charCode - 16r10000.
+ 					low := (charCode \\ 16r400) + 16rDC00.
+ 					high := (charCode // 16r400) + 16rD800.
+ 					self
+ 						next16BitValue: high toStream: aStream;
+ 						next16BitValue: low toStream: aStream ] ].
+ 	^aCharacter!
- 	| v low high |
- 	aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream].
- 	(self useByteOrderMark and: [byteOrderMarkDone isNil]) ifTrue: [
- 		self next16BitValue: (16rFEFF) toStream: aStream.
- 		byteOrderMarkDone := true.
- 	].
- 
- 	v := aCharacter charCode.
- 	v > 16rFFFF ifFalse: [
- 		self next16BitValue: v toStream: aStream.
- 	] ifTrue: [
- 		v := v - 16r10000.
- 		low := (v \\ 16r400) + 16rDC00.
- 		high := (v // 16r400) + 16rD800.
- 		self next16BitValue: high toStream: aStream.
- 		self next16BitValue: low toStream: aStream.
- 	].
- 	^aCharacter.
- !