[squeak-dev] The Trunk: Multilingual-ar.87.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Feb 12 07:49:11 UTC 2010
Andreas Raab uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-ar.87.mcz
==================== Summary ====================
Name: Multilingual-ar.87
Author: ar
Time: 11 February 2010, 11:48:33.736 pm
UUID: ca61be1a-7e30-2840-9b77-9cc7ecfc2d3f
Ancestors: Multilingual-ar.86
Change EncodedCharSet>>digitValue: to EncodedCharSet>>digitValueOf:. Part 3/3.
=============== Diff against Multilingual-ar.86 ===============
Item was changed:
----- Method: EncodedCharSet class>>digitValueOf: (in category 'class methods') -----
digitValueOf: char
"Answer 0-9 if the receiver is $0-$9, 10-35 if it is $A-$Z, and < 0
otherwise. This is used to parse literal numbers of radix 2-36."
| value |
value := char charCode.
+ value <= $9 asciiValue ifTrue:
+ [^value - $0 asciiValue].
+ value >= $A asciiValue ifTrue:
+ [value <= $Z asciiValue ifTrue: [^value - $A asciiValue + 10].
+ (value >= $a asciiValue and: [value <= $z asciiValue]) ifTrue:
+ [^value - $a asciiValue + 10]].
- value <= $9 asciiValue
- ifTrue: [^value - $0 asciiValue].
- value >= $A asciiValue
- ifTrue: [value <= $Z asciiValue ifTrue: [^value - $A asciiValue + 10]].
^ -1
!
Item was changed:
----- Method: Unicode class>>digitValueOf: (in category 'class methods') -----
digitValueOf: char
"Answer 0-9 if the receiver is $0-$9, 10-35 if it is $A-$Z, and < 0
otherwise. This is used to parse literal numbers of radix 2-36."
| value |
value := char charCode.
+ value <= $9 asciiValue ifTrue:
+ [^value - $0 asciiValue].
+ value >= $A asciiValue ifTrue:
+ [value <= $Z asciiValue ifTrue: [^value - $A asciiValue + 10].
+ (value >= $a asciiValue and: [value <= $z asciiValue]) ifTrue:
+ [^value - $a asciiValue + 10]].
- value <= $9 asciiValue
- ifTrue: [^value - $0 asciiValue].
- value >= $A asciiValue
- ifTrue: [value <= $Z asciiValue ifTrue: [^value - $A asciiValue + 10]].
value > (DecimalProperty size - 1) ifTrue: [^ -1].
^ (DecimalProperty at: value+1)
!
Item was removed:
- ----- Method: LanguageEnvironment class>>digitValue: (in category 'accessing') -----
- digitValue: char
-
- ^ Unicode digitValue: char.
- !
Item was removed:
- ----- Method: EncodedCharSet class>>digitValue: (in category 'class methods') -----
- digitValue: char
- "Answer 0-9 if the receiver is $0-$9, 10-35 if it is $A-$Z, and < 0
- otherwise. This is used to parse literal numbers of radix 2-36."
-
- | value |
- value := char charCode.
- value <= $9 asciiValue
- ifTrue: [^value - $0 asciiValue].
- value >= $A asciiValue
- ifTrue: [value <= $Z asciiValue ifTrue: [^value - $A asciiValue + 10]].
- ^ -1
- !
Item was removed:
- ----- Method: Unicode class>>digitValue: (in category 'class methods') -----
- digitValue: char
-
- | value |
- value := char charCode.
- value <= $9 asciiValue
- ifTrue: [^value - $0 asciiValue].
- value >= $A asciiValue
- ifTrue: [value <= $Z asciiValue ifTrue: [^value - $A asciiValue + 10]].
-
- value > (DecimalProperty size - 1) ifTrue: [^ -1].
- ^ (DecimalProperty at: value+1)
- !
More information about the Squeak-dev
mailing list
|