The Trunk: Multilingual-ar.86.mcz

Andreas Raab uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-ar.86.mcz

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

Name: Multilingual-ar.86
Author: ar
Time: 11 February 2010, 11:42:44.158 pm
UUID: b3c6474e-ab20-df41-9818-dc251ab5c16e
Ancestors: Multilingual-ul.85

Change EncodedCharSet>>digitValue: to EncodedCharSet>>digitValueOf:. Part 1/3.

=============== Diff against Multilingual-ul.85 ===============

Item was added:
+ ----- Method: LanguageEnvironment class>>digitValueOf: (in category 'accessing') -----
+ 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."
+
+ ^ Unicode digitValueOf: char.
+ !

Item was added:
+ ----- 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]].
+ ^ -1
+ !

Item was added:
+ ----- 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 > (DecimalProperty size - 1) ifTrue: [^ -1].
+ ^ (DecimalProperty at: value+1)
+ !