The Trunk: Multilingual-ul.131.mcz

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

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

Name: Multilingual-ul.131
Author: ul
Time: 16 November 2010, 4:58:38.19 am
UUID: dcf47452-e964-9447-bfe8-432c7b39dd34
Ancestors: Multilingual-ul.130

- use #= for integer comparison instead of #== (http://bugs.squeak.org/view.php?id=2788 )

=============== Diff against Multilingual-ul.130 ===============

Item was changed:
  ----- 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.
  ].
  leadingChar := aChar leadingChar.
  leadingChar = 0 ifTrue: [
  aStream basicNextPut: (Character value: value).
  ^ aStream.
  ].
  leadingChar == self leadingChar ifTrue: [
  | upper lower |
  upper := value // 94 + 33.
  lower := value \\ 94 + 33.
+ upper \\ 2 = 1 ifTrue: [
- upper \\ 2 == 1 ifTrue: [
  upper := upper + 1 / 2 + 112.
  lower := lower + 31
  ] ifFalse: [
  upper := upper / 2 + 112.
  lower := lower + 125
  ].
  upper >= 160 ifTrue: [upper := upper + 64].
  lower >= 127 ifTrue: [lower := lower + 1].
  aStream basicNextPut: (Character value: upper).
  aStream basicNextPut: (Character value: lower).
  ^ aStream
  ].
  !