Andreas Raab uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ar.46.mcz
==================== Summary ====================
Name: Multilingual-ar.46 Author: ar Time: 30 August 2009, 9:48:57 am UUID: 4b20790d-9f81-c147-a216-fdc17a377a14 Ancestors: Multilingual-ar.45
The last commit included a change to ShiftJISConverter that didn't show in the diff and seems to be just a truncated method version. Very, very odd. For now just revert the method.
=============== Diff against Multilingual-ar.45 ===============
Item was added: + ----- Method: ShiftJISTextConverter>>nextPut:toStream: (in category 'conversion') ----- + nextPut: aCharacter toStream: aStream + | value leadingChar aChar | + aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. + aCharacter isTraditionalDomestic ifTrue: [ + aChar := aCharacter. + value := aCharacter charCode. + ] ifFalse: [ + value := aCharacter charCode. + (16rFF61 <= value and: [value <= 16rFF9F]) ifTrue: [ + aStream basicNextPut: (self sjisKatakanaFor: value). + ^ aStream + ]. + aChar := JISX0208 charFromUnicode: value. + aChar ifNil: [^ aStream]. + value := aChar charCode. + ]. + leadin!
Item was changed: ----- Method: ShiftJISTextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | character1 character2 value1 value2 char1Value result | aStream isBinary ifTrue: [^ aStream basicNext]. character1 := aStream basicNext. character1 isNil ifTrue: [^ nil]. char1Value := character1 asciiValue. (char1Value < 16r81) ifTrue: [^ character1]. (char1Value > 16rA0 and: [char1Value < 16rE0]) ifTrue: [^ self katakanaValue: char1Value].
character2 := aStream basicNext. character2 = nil ifTrue: [^ nil "self errorMalformedInput"]. value1 := character1 asciiValue. character1 asciiValue >= 224 ifTrue: [value1 := value1 - 64]. value1 := value1 - 129 bitShift: 1. value2 := character2 asciiValue. character2 asciiValue >= 128 ifTrue: [value2 := value2 - 1]. character2 asciiValue >= 158 ifTrue: [ value1 := value1 + 1. value2 := value2 - 158 ] ifFalse: [value2 := value2 - 64]. result := Character leadingChar: self leadingChar code: value1 * 94 + value2. + ^ self toUnicode: result + ! - ^ self toUnicode: !
squeak-dev@lists.squeakfoundation.org