The Trunk: ToolBuilder-Kernel-mt.127.mcz

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.127.mcz

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

Name: ToolBuilder-Kernel-mt.127
Author: mt
Time: 16 July 2019, 1:58:39.352383 pm
UUID: 20626faf-8ab2-a649-b47e-6b56239d156f
Ancestors: ToolBuilder-Kernel-mt.126

500% faster implementation of uppercase-only search for classes. Thanks to Kjell Godo for the ideas!

=============== Diff against ToolBuilder-Kernel-mt.126 ===============

Item was changed:
  ----- Method: UIManager>>classOrTraitFrom:pattern:label: (in category 'system introspecting') -----
  classOrTraitFrom: environment pattern: pattern label: label
  "Given a pattern and an environment, try to find a class or trait using several strategies:
  - EXACT: If there is a class or trait whose name exactly given by pattern, return it.
  - UPPER: If the pattern is upper-case only, find camel-case letters with that sequence.
  - WILD: Try the pattern as-is for regular wild-card search.
  - FEATURE: Split patterns at feature boundaries and insert wild cards between.
  - FUZZY: Split patterns at feature boundaries BUT treat each feature as a full class name.
  If there is only one class or trait in the given environment whose name matches pattern, return it. Otherwise, put up a menu offering the names of all classes that match pattern, and return the class chosen, else nil if nothing chosen.
 
  !!!! In any case, separator characters in the pattern are ignored."
 
  | toMatch potentialNames names selectedIndex |
 
  "If there's a class or trait named as pattern, then return it."
  (environment classOrTraitNamed: pattern) ifNotNil: [:classOrTrait | ^ classOrTrait].
 
  "Validate pattern."
  toMatch := pattern copyWithoutAll: Character separators.
  toMatch := toMatch asLowercase copyWithout: $..
  toMatch ifEmpty: [ ^nil ].
 
  "Fetch search space."
  names := OrderedCollection new.
  potentialNames := environment classAndTraitNames asOrderedCollection.
 
  "Try uppercase-only patterns for patterns such as 'WKD' to find 'WeakIdentityKeyDictionary' etc."
  names ifEmpty: [
+ (pattern allSatisfy: [:char | char isUppercase]) ifTrue: [
+ (potentialNames do: [:eachName |
+ | isMatch lookupIndex |
+ isMatch := true.
+ lookupIndex := 0.
+ 1 to: pattern size do: [:charIndex | | char |
+ char := pattern at: charIndex.
+ isMatch ifTrue: [
+ lookupIndex := (eachName findString: char asString startingAt: lookupIndex+1 caseSensitive: true).
+ isMatch := lookupIndex > 0]].
+ isMatch ifTrue: [names add: eachName] ])]].
+
- (pattern allSatisfy: [:char | char isUppercase]) ifTrue: [
- | patternStream |
- patternStream := pattern readStream.
- potentialNames do: [:each |
- patternStream reset.
- each detect: [:char |
- (patternStream atEnd not and: [patternStream peek = char])
- ifTrue: [
- patternStream next.
- patternStream atEnd
- ifTrue: [names add: each. true "Match!!"]
- ifFalse: [false "Not yet..."]]
- ifFalse: [false "No match..."] ] ifNone: [] ] ]].
-
  "Try wildcard search for patterns such as 'Weak*Dict*' to find 'WeakIdentityKeyDictionary' etc."
  names ifEmpty: [
+ potentialNames do: [ :each | (toMatch match: each) ifTrue: [names add: each] ]].
- names := potentialNames select: [ :each | toMatch match: each ]].
 
  "Try feature-based search for patterns such as 'WeakDict' to find 'WeakIdentityKeyDictionary' etc."
  names ifEmpty: [
  toMatch := pattern copyWithoutAll: '.*#'.
  toMatch findFeatures in: [:features |
  "1) Insert wildcards between features and at the end."
  toMatch := (features joinSeparatedBy: '*'), '*'.
  names := potentialNames select: [ :each | toMatch match: each ].
  names ifEmpty: [
  "2) Insert wildcards before, between, and after features."
  toMatch := '*', (features joinSeparatedBy: '*'), '*'.
  names := potentialNames select: [ :each | toMatch match: each ] ]] ].
 
  "Try some fuzzy matching."
  names addAll: (pattern suggestedTypeNames select: [ :each | potentialNames includes: each ]).
 
  "Still no match?"
  names ifEmpty: [ ^ nil ].
 
  "Let the user select if there's more than one possible match. This may give surprising results."
  selectedIndex := names size = 1
  ifTrue: [ 1 ]
  ifFalse: [ self chooseFrom: names title: label ].
  selectedIndex = 0 ifTrue: [ ^nil ].
  ^environment at: (names at: selectedIndex) asSymbol!