The Trunk: Multilingual-ul.199.mcz

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-ul.199.mcz

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

Name: Multilingual-ul.199
Author: ul
Time: 7 July 2014, 9:30:04.831 pm
UUID: 0d703c05-fa3a-42a6-aaa0-c0c57a0395fb
Ancestors: Multilingual-nice.198

EncodedCharSet class changes
- introduced #isAlphaNumeric: and #isAlphaNumericCode:

Unicode class changes:
- introduced #generalCategoryOf: which returns the corresponding GeneralCategory value for the given character code
- all is*Code: methods use #generalCategoryOf:

=============== Diff against Multilingual-nice.198 ===============

Item was added:
+ ----- Method: EncodedCharSet class>>isAlphaNumeric: (in category 'character classification') -----
+ isAlphaNumeric: char
+ "Answer whether char has the code of a letter or a digit in this encoding."
+
+ ^self isAlphaNumericCode: char charCode
+ !

Item was added:
+ ----- Method: EncodedCharSet class>>isAlphaNumericCode: (in category 'character classification') -----
+ isAlphaNumericCode: anInteger
+ "Answer whether anInteger is the code of a letter or a digit."
+
+ ^(self isLetterCode: anInteger) or: [ self isDigitCode: anInteger ]
+ !

Item was added:
+ ----- Method: Unicode class>>generalCategoryOf: (in category 'character classification') -----
+ generalCategoryOf: aCharacterCode
+
+ | index |
+ (index := aCharacterCode + 1) > GeneralCategory size ifTrue: [ ^nil ].
+ ^GeneralCategory at: index
+ !

Item was added:
+ ----- Method: Unicode class>>isAlphaNumericCode: (in category 'character classification') -----
+ isAlphaNumericCode: charCode
+
+ | codeCategory |
+ (codeCategory := self generalCategoryOf: charCode) < Ll ifTrue: [ ^false ].
+ codeCategory <= Lu ifTrue: [ ^true ].
+ ^codeCategory = Nd
+ !

Item was changed:
  ----- Method: Unicode class>>isComposition: (in category 'character classification') -----
+ isComposition: aCharacter
- isComposition: aChar
 
+ ^(self generalCategoryOf: aCharacter charCode) = Mn!
- ^ (GeneralCategory at: aChar charCode + 1) = Mn
- !

Item was changed:
  ----- Method: Unicode class>>isDigitCode: (in category 'character classification') -----
+ isDigitCode: charCode
+
+ ^(self generalCategoryOf: charCode) = Nd!
- isDigitCode: charCode
- charCode > (GeneralCategory size - 1)
- ifTrue: [^ false].
- ^ (GeneralCategory at: charCode + 1)
- = Nd!

Item was changed:
  ----- Method: Unicode class>>isLetterCode: (in category 'character classification') -----
  isLetterCode: charCode
+
+ | codeCategory |
+ (codeCategory := self generalCategoryOf: charCode) < Ll ifTrue: [ ^false ].
+ ^codeCategory <= Lu!
- | codeCat |
- charCode > (GeneralCategory size - 1)
- ifTrue: [^ false].
- ^ (codeCat := GeneralCategory at: charCode + 1) >= Ll
- and: [codeCat <= Lu]!

Item was changed:
  ----- Method: Unicode class>>isLowercaseCode: (in category 'character classification') -----
  isLowercaseCode: charCode
+
+ ^(self generalCategoryOf: charCode) = Ll!
- charCode > (GeneralCategory size - 1)
- ifTrue: [^ false].
- ^ (GeneralCategory at: charCode + 1)
- = Ll!

Item was changed:
  ----- Method: Unicode class>>isUppercaseCode: (in category 'character classification') -----
  isUppercaseCode: charCode
+
+ ^(self generalCategoryOf: charCode) = Lu!
- charCode > (GeneralCategory size - 1)
- ifTrue: [^ false].
- ^ (GeneralCategory at: charCode + 1)
- = Lu!