[squeak-dev] The Trunk: Collections-ul.634.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu May 7 16:13:06 UTC 2015
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.
!
More information about the Squeak-dev
mailing list
|