Packages May 2014

packages@lists.squeakfoundation.org

1 participants
201 discussions

The Trunk: Multilingual-nice.196.mcz
by commits＠source.squeak.org 29 May '14

29 May '14

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.196.mcz ==================== Summary ==================== Name: Multilingual-nice.196 Author: nice Time: 29 May 2014, 2:59:48.329 pm UUID: 07f39804-8e14-49be-a55f-e8d2b809fddd Ancestors: Multilingual-nice.195 Generalized what I did to Unicode: provide an API dealing with codes Add charsetClass conveniency for this reason: (EncodedCharSet charsetAt: leadingChar) is not always a charset, it can also be a LanguageEnvironment. (EncodedCharSet charsetAt: leadingChar) charsetClass will always be a charset (an EncodedCharSet subclass) =============== Diff against Multilingual-nice.195 =============== Item was added: + ----- Method: EncodedCharSet class>>charsetClass (in category 'class methods') ----- + charsetClass + ^self! Item was added: + ----- Method: EncodedCharSet class>>convertToUnicode: (in category 'class methods') ----- + convertToUnicode: aCode + "Translate aCode in our encoding, into equivalent unicode encoding" + | table v | + (table := self ucsTable) ifNil: [^ 16rFFFD]. + (v := table at: 1 + self charCode) = -1 ifTrue: [^ 16rFFFD]. + ^ v! Item was changed: ----- Method: EncodedCharSet class>>isDigit: (in category 'character classification') ----- isDigit: char + "Answer whether char has the code of a digit in this encoding." + ^self isDigitCode: char charCode - "Answer whether the receiver is a digit." - - | value | - value := char asciiValue. - ^ value >= 48 and: [value <= 57]. ! Item was added: + ----- Method: EncodedCharSet class>>isDigitCode: (in category 'character classification') ----- + isDigitCode: anInteger + "Answer whether anInteger is the code of a digit." + + ^ anInteger >= 48 and: [anInteger <= 57]. + ! Item was changed: ----- Method: EncodedCharSet class>>isLetter: (in category 'character classification') ----- + isLetter: char + "Answer whether char has the code of a letter in this encoding." + ^self isLetterCode: char charCode! - isLetter: char - "Answer whether the receiver is a letter." - - | value | - value := char asciiValue. - ^ (8r141 <= value and: [value <= 8r172]) or: [8r101 <= value and: [value <= 8r132]]. - ! Item was added: + ----- Method: EncodedCharSet class>>isLetterCode: (in category 'character classification') ----- + isLetterCode: anInteger + "Answer whether anInteger is the code of a letter." + + ^ (8r141 <= anInteger and: [anInteger <= 8r172]) or: [8r101 <= anInteger and: [anInteger <= 8r132]]. + ! Item was changed: ----- Method: EncodedCharSet class>>isLowercase: (in category 'character classification') ----- + isLowercase: char + "Answer whether char has the code of a lowercase letter in this encoding." + ^self isLowercaseCode: char charCode! - isLowercase: char - "Answer whether the receiver is a lowercase letter. - (The old implementation answered whether the receiver is not an uppercase letter.)" - - | value | - value := char asciiValue. - ^ 8r141 <= value and: [value <= 8r172]. - ! Item was added: + ----- Method: EncodedCharSet class>>isLowercaseCode: (in category 'character classification') ----- + isLowercaseCode: anInteger + "Answer whether anInteger is the code of a lowercase letter." + + ^ 8r141 <= anInteger and: [anInteger <= 8r172]. + ! Item was changed: ----- Method: EncodedCharSet class>>isUppercase: (in category 'character classification') ----- + isUppercase: char + "Answer whether char has the code of an uppercase letter in this encoding." + ^self isUppercaseCode: char charCode! - isUppercase: char - "Answer whether the receiver is an uppercase letter. - (The old implementation answered whether the receiver is not a lowercase letter.)" - - | value | - value := char asciiValue. - ^ 8r101 <= value and: [value <= 8r132]. - ! Item was added: + ----- Method: EncodedCharSet class>>isUppercaseCode: (in category 'character classification') ----- + isUppercaseCode: anInteger + "Answer whether anInteger is the code of an uppercase letter." + + ^ 8r101 <= anInteger and: [anInteger <= 8r132]. + ! Item was removed: - ----- Method: GB2312 class>>isLetter: (in category 'character classification') ----- - isLetter: char - - | value leading | - - leading := char leadingChar. - value := char charCode. - - leading = 0 ifTrue: [^ super isLetter: char]. - - value := value // 94 + 1. - ^ 1 <= value and: [value < 84]. - ! Item was added: + ----- Method: GB2312 class>>isLetterCode: (in category 'character classification') ----- + isLetterCode: anInteger + | value | + value := anInteger // 94 + 1. + ^ 1 <= value and: [value < 84]. + ! Item was removed: - ----- Method: JISX0208 class>>isLetter: (in category 'character classification') ----- - isLetter: char - - | value leading | - - leading := char leadingChar. - value := char charCode. - - leading = 0 ifTrue: [^ super isLetter: char]. - - value := value // 94 + 1. - ^ 1 <= value and: [value < 84]. - ! Item was added: + ----- Method: JISX0208 class>>isLetterCode: (in category 'character classification') ----- + isLetterCode: anInteger + | value | + value := anInteger // 94 + 1. + ^ 1 <= value and: [value < 84]. + ! Item was removed: - ----- Method: KSX1001 class>>isLetter: (in category 'character classification') ----- - isLetter: char - - | value leading | - - leading := char leadingChar. - value := char charCode. - - leading = 0 ifTrue: [^ super isLetter: char]. - - value := value // 94 + 1. - ^ 1 <= value and: [value < 84]. - ! Item was added: + ----- Method: KSX1001 class>>isLetterCode: (in category 'character classification') ----- + isLetterCode: anInteger + | value | + value := anInteger // 94 + 1. + ^ 1 <= value and: [value < 84]. + ! Item was added: + ----- Method: LanguageEnvironment class>>charsetClass (in category 'accessing') ----- + charsetClass + ^Unicode! Item was changed: ----- 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." + ^ self charsetClass digitValueOf: char. - ^ Unicode digitValueOf: char. ! Item was changed: ----- Method: LanguageEnvironment class>>isDigit: (in category 'accessing') ----- isDigit: char + ^ self charsetClass isDigit: char. - ^ Unicode isDigit: char. ! Item was changed: ----- Method: LanguageEnvironment class>>isLetter: (in category 'accessing') ----- isLetter: char + ^ self charsetClass isLetter: char. - ^ Unicode isLetter: char. ! Item was changed: ----- Method: LanguageEnvironment class>>isLowercase: (in category 'accessing') ----- isLowercase: char + ^ self charsetClass isLowercase: char. - ^ Unicode isLowercase: char. ! Item was changed: ----- Method: LanguageEnvironment class>>isUppercase: (in category 'accessing') ----- isUppercase: char + ^ self charsetClass isUppercase: char. - ^ Unicode isUppercase: char. ! Item was added: + ----- Method: Latin1 class>>convertToUnicode: (in category 'class methods') ----- + convertToUnicode: aCode + ^aCode! Item was removed: - ----- Method: Latin1 class>>isLetter: (in category 'character classification') ----- - isLetter: char - "Answer whether the receiver is a letter." - - ^ Unicode isLetter: char. - - ! Item was added: + ----- Method: Latin1 class>>isLetterCode: (in category 'character classification') ----- + isLetterCode: anInteger + ^ Unicode isLetterCode: anInteger + + ! Item was added: + ----- Method: Unicode class>>convertToUnicode: (in category 'class methods') ----- + convertToUnicode: aCode + ^aCode! Item was removed: - ----- Method: Unicode class>>isDigit: (in category 'character classification') ----- - isDigit: char - ^self isDigitCode: char charCode! Item was removed: - ----- Method: Unicode class>>isLetter: (in category 'character classification') ----- - isLetter: char - ^self isLetterCode: char charCode! Item was removed: - ----- Method: Unicode class>>isLowercase: (in category 'character classification') ----- - isLowercase: char - ^self isLowercaseCode: char charCode! Item was removed: - ----- Method: Unicode class>>isUppercase: (in category 'character classification') ----- - isUppercase: char - ^self isUppercaseCode: char charCode!

1 0

The Trunk: Multilingual-nice.196.mcz
by commits＠source.squeak.org 29 May '14

29 May '14

1 0

The Trunk: Tests-nice.299.mcz
by commits＠source.squeak.org 29 May '14

29 May '14

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.299.mcz ==================== Summary ==================== Name: Tests-nice.299 Author: nice Time: 29 May 2014, 7:40:08.496 am UUID: 638a5f11-86a1-4dc6-a72d-9b4750f3a22e Ancestors: Tests-nice.298 No use to test isDoIt in the selectors, DoIt are not installed in MethodDictionary anymore. =============== Diff against Tests-nice.298 =============== Item was changed: ----- Method: PCCByCompilation>>methodsWithDisabledCall (in category 'ui querying') ----- methodsWithDisabledCall "Answer a SortedCollection of all the methods that contain, in source code, the substring indicating a disabled prim." "The alternative implementation ^ SystemNavigation new allMethodsWithSourceString: self disabledPrimStartString matchCase: true also searches in class comments." | list string | string := self disabledPrimStartString. list := Set new. 'Searching all method source code...' displayProgressFrom: 0 to: Smalltalk classNames size * 2 "classes with their metaclasses" during: [:bar | | classCount | classCount := 0. SystemNavigation default allBehaviorsDo: [:class | bar value: (classCount := classCount + 1). class selectorsDo: [:sel | | src | "higher priority to avoid source file accessing errors" src := [class sourceCodeAt: sel] valueAt: self higherPriority. (src findString: string startingAt: 1 caseSensitive: true) > 0 + ifTrue: [list add: (MethodReference class: class selector: sel)]]]]. - ifTrue: [sel isDoIt ifFalse: [ - list add: (MethodReference class: class selector: sel)]]]]]. ^ list asSortedCollection!

1 0

The Trunk: Tests-nice.299.mcz
by commits＠source.squeak.org 29 May '14

29 May '14

1 0

The Trunk: Tests-nice.299.mcz
by commits＠source.squeak.org 29 May '14

29 May '14

1 0

The Trunk: Multilingual-nice.195.mcz
by commits＠source.squeak.org 29 May '14

29 May '14

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.195.mcz ==================== Summary ==================== Name: Multilingual-nice.195 Author: nice Time: 29 May 2014, 7:22:08.663 am UUID: 49e73ca2-cd51-45e8-b2c9-7836d3ebb0bc Ancestors: Multilingual-fbs.194 Micro-simplify scanKernableMultibyteCharactersFrom:to:in:rightX: (one less temp var floatDestX, the flow was a bit too nested) Protect charsetAt: against out of bounds encoding Add an API to Unicode for handling codes (it's most of its job to handle codes as the name tells). =============== Diff against Multilingual-fbs.194 =============== Item was changed: ----- Method: CharacterScanner>>scanKernableMultibyteCharactersFrom:to:in:rightX: (in category '*Multilingual-Display') ----- scanKernableMultibyteCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX "this is a scanning method for multibyte characters in a WideString a font that does do character-pair kerning via widthAndKernedWidthOfLeft:right:into:" + | ascii encoding nextDestX startEncoding widthAndKernedWidth nextChar atEndOfRun char | - | ascii encoding nextDestX startEncoding floatDestX widthAndKernedWidth nextChar atEndOfRun char | lastIndex := startIndex. lastIndex > stopIndex ifTrue: [^self handleEndOfRunAt: stopIndex]. startEncoding := (sourceString at: startIndex) leadingChar. - floatDestX := destX. widthAndKernedWidth := Array new: 2. atEndOfRun := false. [lastIndex <= stopIndex] whileTrue: [ char := sourceString at: lastIndex. encoding := char leadingChar. encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^#endOfRun]. ascii := char charCode. (ascii < 256 and: [(stopConditions at: ascii + 1) ~~ nil]) ifTrue: [^ stopConditions at: ascii + 1]. nextChar := (lastIndex + 1 <= stopIndex) ifTrue:[sourceString at: lastIndex + 1] ifFalse:[ atEndOfRun := true. "if there is a next char in sourceString, then get the kern and store it in pendingKernX" lastIndex + 1 <= sourceString size ifTrue:[sourceString at: lastIndex + 1] ifFalse:[ nil]]. font widthAndKernedWidthOfLeft: char right: nextChar into: widthAndKernedWidth. + nextDestX := destX + (widthAndKernedWidth at: 1). - nextDestX := floatDestX + (widthAndKernedWidth at: 1). nextDestX > rightX ifTrue: [^#crossedX]. + destX := atEndOfRun + ifTrue: [pendingKernX := (widthAndKernedWidth at: 2) + - (widthAndKernedWidth at: 1). + nextDestX + kern] + ifFalse: [destX + kern + (widthAndKernedWidth at: 2)]. - floatDestX := floatDestX + kern + (widthAndKernedWidth at: 2). - atEndOfRun - ifTrue:[ - pendingKernX := (widthAndKernedWidth at: 2) - (widthAndKernedWidth at: 1). - floatDestX := floatDestX - pendingKernX]. - destX := floatDestX . lastIndex := lastIndex + 1. ]. ^self handleEndOfRunAt: stopIndex! Item was changed: ----- Method: EncodedCharSet class>>charsetAt: (in category 'class methods') ----- charsetAt: encoding "Find the char set encoding that matches 'encoding'; return a decent default rather than nil" + ^ (EncodedCharSets at: encoding + 1 ifAbsent: [nil]) ifNil: [Unicode].! - ^ (EncodedCharSets at: encoding + 1) ifNil: [EncodedCharSets at: 1]. - ! Item was changed: ----- Method: Unicode class>>isDigit: (in category 'character classification') ----- isDigit: char + ^self isDigitCode: char charCode! - | value | - value := char charCode. - value > (GeneralCategory size - 1) - ifTrue: [^ false]. - ^ (GeneralCategory at: value + 1) - = Nd! Item was added: + ----- Method: Unicode class>>isDigitCode: (in category 'character classification') ----- + isDigitCode: charCode + charCode > (GeneralCategory size - 1) + ifTrue: [^ false]. + ^ (GeneralCategory at: charCode + 1) + = Nd! Item was changed: ----- Method: Unicode class>>isLetter: (in category 'character classification') ----- isLetter: char + ^self isLetterCode: char charCode! - | value codeCat | - value := char charCode. - value > (GeneralCategory size - 1) - ifTrue: [^ false]. - ^ (codeCat := GeneralCategory at: value + 1) >= Ll - and: [codeCat <= Lu]! Item was added: + ----- Method: Unicode class>>isLetterCode: (in category 'character classification') ----- + isLetterCode: charCode + | codeCat | + charCode > (GeneralCategory size - 1) + ifTrue: [^ false]. + ^ (codeCat := GeneralCategory at: charCode + 1) >= Ll + and: [codeCat <= Lu]! Item was changed: ----- Method: Unicode class>>isLowercase: (in category 'character classification') ----- isLowercase: char + ^self isLowercaseCode: char charCode! - | value | - value := char charCode. - value > (GeneralCategory size - 1) - ifTrue: [^ false]. - ^ (GeneralCategory at: value + 1) - = Ll! Item was added: + ----- Method: Unicode class>>isLowercaseCode: (in category 'character classification') ----- + isLowercaseCode: charCode + charCode > (GeneralCategory size - 1) + ifTrue: [^ false]. + ^ (GeneralCategory at: charCode + 1) + = Ll! Item was changed: ----- Method: Unicode class>>isUppercase: (in category 'character classification') ----- isUppercase: char + ^self isUppercaseCode: char charCode! - | value | - value := char charCode. - value > (GeneralCategory size - 1) - ifTrue: [^ false]. - ^ (GeneralCategory at: value + 1) - = Lu! Item was added: + ----- Method: Unicode class>>isUppercaseCode: (in category 'character classification') ----- + isUppercaseCode: charCode + charCode > (GeneralCategory size - 1) + ifTrue: [^ false]. + ^ (GeneralCategory at: charCode + 1) + = Lu! Item was changed: ----- Method: Unicode class>>parseCaseMappingFrom: (in category 'casing') ----- parseCaseMappingFrom: stream "Parse the Unicode casing mappings from the given stream. Handle only the simple mappings" " Unicode initializeCaseMappings. " ToCasefold := IdentityDictionary new: 2048. ToUpper := IdentityDictionary new: 2048. ToLower := IdentityDictionary new: 2048. [stream atEnd] whileFalse:[ | fields line srcCode dstCode | line := stream nextLine copyUpTo: $#. fields := line withBlanksTrimmed findTokens: $;. (fields size > 2 and: [#('C' 'S') includes: (fields at: 2) withBlanksTrimmed]) ifTrue:[ srcCode := Integer readFrom: (fields at: 1) withBlanksTrimmed base: 16. dstCode := Integer readFrom: (fields at: 3) withBlanksTrimmed base: 16. ToCasefold at: srcCode put: dstCode. ]. ]. ToCasefold keysAndValuesDo: [:k :v | + (self isUppercaseCode: k) - (self isUppercase: (self value: k)) ifTrue: ["In most cases, uppercase letter are folded to lower case" ToUpper at: v put: k. ToLower at: k put: v]. + (self isLowercaseCode: k) - (self isLowercase: (self value: k)) ifTrue: + ["In a few cases, two upper case letters are folded to the same lower case. - ["In a few cases, two lower case letters are folded to the same lower case. We must find an upper case letter folded to the same letter" | up | + up := ToCasefold keys detect: [:e | (self isUppercaseCode: e) and: [(ToCasefold at: e) = v]] ifNone: [nil]. - up := ToCasefold keys detect: [:e | (self isUppercase: (self value: e)) and: [(ToCasefold at: e) = v]] ifNone: [nil]. up ifNotNil: [ToUpper at: k put: up]]].! Item was added: + ----- Method: Unicode class>>toLowercaseCode: (in category 'casing') ----- + toLowercaseCode: anInteger + "Answer corresponding lower case code for a Character code. + This does not handle special cases where several codes would be required." + + ^ToLower at: anInteger ifAbsent: [anInteger]! Item was added: + ----- Method: Unicode class>>toUppercaseCode: (in category 'casing') ----- + toUppercaseCode: anInteger + "Answer corresponding upper case code for a Character code. + This does not handle special cases where several codes would be required." + + ^ToUpper at: anInteger ifAbsent: [anInteger]!

1 0

The Trunk: Multilingual-nice.195.mcz
by commits＠source.squeak.org 29 May '14

29 May '14

1 0

The Trunk: Multilingual-nice.195.mcz
by commits＠source.squeak.org 29 May '14

29 May '14

1 0

The Trunk: Collections-eem.571.mcz
by commits＠source.squeak.org 27 May '14

27 May '14

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.571.mcz ==================== Summary ==================== Name: Collections-eem.571 Author: eem Time: 27 May 2014, 11:49:16.946 am UUID: 5610c761-96af-422f-bb1d-63bc87a1cc7a Ancestors: Collections-nice.570 Speed up testing different sized strings for equality by adding a size text to String>>#=. Tis speeds up e.g. comparing the first 10,000 ByteString instances to each other by -67%. =============== Diff against Collections-nice.570 =============== Item was changed: ----- Method: String>>= (in category 'comparing') ----- = aString "Answer whether the receiver sorts equally as aString. The collation order is simple ascii (with case differences)." + (aString isString + and: [self size = aString size]) ifFalse: [^ false]. - aString isString ifFalse: [ ^ false ]. ^ (self compare: self with: aString collated: AsciiOrder) = 2!

1 0

The Trunk: Collections-eem.571.mcz
by commits＠source.squeak.org 27 May '14

27 May '14

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2014