[Pkg] The Trunk: Collections-eem.367.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-eem.367.mcz

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

Name: Collections-eem.367
Author: eem
Time: 29 June 2010, 5:33:09.841 pm
UUID: f8a9fe6b-b224-4a6b-96ed-04c03a98222d
Ancestors: Collections-eem.366

Fix bug in Symbol class>>selectorsContaining: which won''t find selectors containing digits.
Add Symbol class>>selectorsMatching:.
Both the above used in improved MessageNames

=============== Diff against Collections-eem.366 ===============

Item was changed:
  ----- Method: Symbol class>>selectorsContaining: (in category 'access') -----
  selectorsContaining: aString
  	"Answer a list of selectors that contain aString within them. Case-insensitive.  Does return symbols that begin with a capital letter."
  
  	| size selectorList ascii |
  
  	selectorList := OrderedCollection new.
  	(size := aString size) = 0 ifTrue: [^selectorList].
  
  	aString size = 1 ifTrue:
  		[
  			ascii := aString first asciiValue.
  			ascii < 128 ifTrue: [selectorList add: (OneCharacterSymbols at: ascii+1)]
  		].
  
+ 	(aString first isLetter or: [aString first isDigit]) ifFalse:
- 	aString first isLetter ifFalse:
  		[
  			aString size == 2 ifTrue: 
  				[Symbol hasInterned: aString ifTrue:
  					[:s | selectorList add: s]].
  			^selectorList
  		].
  
  	selectorList := selectorList copyFrom: 2 to: selectorList size.
  
  	self allSymbolTablesDo: [:each |
  		each size >= size ifTrue:
+ 			[(each findSubstring: aString in: each startingAt: 1 
+ 				matchTable: CaseInsensitiveOrder) > 0
- 			[(each findString: aString startingAt: 1 caseSensitive: false) > 0
  						ifTrue: [selectorList add: each]]].
  
  	^selectorList reject: [:each | "reject non-selectors, but keep ones that begin with an uppercase"
  		each numArgs < 0 and: [each asString withFirstCharacterDownshifted numArgs < 0]].
  
  "Symbol selectorsContaining: 'scon'"!

Item was added:
+ ----- Method: Symbol class>>selectorsMatching: (in category 'access') -----
+ selectorsMatching: aStringPattern
+ 	"Answer a list of selectors that match aStringPattern within them. Case-insensitive.
+ 	 Does return symbols that begin with a capital letter."
+ 
+ 	| selectorList |
+ 
+ 	selectorList := OrderedCollection new.
+ 
+ 	aStringPattern isEmpty ifTrue: [^selectorList].
+ 
+ 	self allSymbolTablesDo:
+ 		[:each | (aStringPattern match: each) ifTrue: [selectorList add: each]].
+ 
+ 	^selectorList reject: "reject non-selectors, but keep ones that begin with an uppercase"
+ 		[:each | each numArgs < 0 and: [each asString withFirstCharacterDownshifted numArgs < 0]]
+ 
+ 	"Symbol selectorsMatching: 'parse:*'"!