Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.634.mcz ==================== Summary ==================== Name: Collections-ul.634 Author: ul Time: 7 May 2015, 5:02:54.386 pm UUID: c956dc83-2ef3-4df4-b1be-449dfb4be1bb Ancestors: Collections-ul.633 Revert the workaround from Collections-ul.633. =============== Diff against Collections-ul.633 =============== Item was changed: ----- Method: Character>>asLowercase (in category 'converting') ----- asLowercase "Answer the receiver's matching lowercase Character." + value > 255 ifFalse: [ + | result | + (result := (ClassificationTable at: value + 1) bitAnd: 16rFF) > 0 + ifTrue: [ ^self class value: result ] ]. - AlphaNumericMask ifNotNil: [ - value > 255 ifFalse: [ - | result | - (result := (ClassificationTable at: value + 1) bitAnd: 16rFF) > 0 - ifTrue: [ ^self class value: result ] ] ]. ^self class value: (self encodedCharSet toLowercaseCode: value)! Item was changed: ----- Method: Character>>asUppercase (in category 'converting') ----- asUppercase "Answer the receiver's matching uppercase Character." + value > 255 ifFalse: [ + | result | + (result := ((ClassificationTable at: value + 1) bitShift: -8) bitAnd: 16rFF) > 0 + ifTrue: [ ^self class value: result ] ]. - AlphaNumericMask ifNotNil: [ - value > 255 ifFalse: [ - | result | - (result := ((ClassificationTable at: value + 1) bitShift: -8) bitAnd: 16rFF) > 0 - ifTrue: [ ^self class value: result ] ] ]. ^self class value: (self encodedCharSet toUppercaseCode: value)! Item was changed: ----- Method: Character>>isAlphaNumeric (in category 'testing') ----- isAlphaNumeric "Answer whether the receiver is a letter or a digit." + value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: AlphaNumericMask) > 0 ]. - AlphaNumericMask ifNotNil: [ - value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: AlphaNumericMask) > 0 ] ]. ^self encodedCharSet isAlphaNumeric: self! Item was changed: ----- Method: Character>>isDigit (in category 'testing') ----- isDigit + value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: DigitBit) > 0 ]. - DigitBit ifNotNil: [ - value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: DigitBit) > 0 ] ]. ^self encodedCharSet isDigit: self. ! Item was changed: ----- Method: Character>>isLetter (in category 'testing') ----- isLetter + value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: LetterMask) > 0 ]. - LetterMask ifNotNil: [ - value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: LetterMask) > 0 ] ]. ^self encodedCharSet isLetter: self! Item was changed: ----- Method: Character>>isLowercase (in category 'testing') ----- isLowercase + value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: LowercaseBit) > 0 ]. - AlphaNumericMask ifNotNil: [ - value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: LowercaseBit) > 0 ] ]. ^self encodedCharSet isLowercase: self. ! Item was changed: ----- Method: Character>>isUppercase (in category 'testing') ----- isUppercase + value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: UppercaseBit) > 0 ]. - AlphaNumericMask ifNotNil: [ - value > 255 ifFalse: [ ^((ClassificationTable at: value + 1) bitAnd: UppercaseBit) > 0 ] ]. ^self encodedCharSet isUppercase: self. ! |
Free forum by Nabble | Edit this page |