[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