The Trunk: Collections-nice.169.mcz

Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.169.mcz

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

Name: Collections-nice.169
Author: nice
Time: 20 October 2009, 9:25 am
UUID: 8423efba-a854-4304-8cdd-b77e7fb6866f
Ancestors: Collections-nice.168

Track selectors usage, use #includesSelector: #selectorsDo: and #asSet where due

=============== Diff against Collections-nice.168 ===============

Item was changed:
  ----- Method: WideString class>>allNonAsciiMethods (in category 'enumeration') -----
  allNonAsciiMethods  
  "Answer a SortedCollection of all the methods that implement the message
  aSelector."
 
  | list adder num i |
  list := Set new.
  adder := [ :mrClass :mrSel |
  list add: (
  MethodReference new
  setStandardClass: mrClass
  methodSymbol: mrSel
  )
  ].
 
  num := CompiledMethod allInstances size.
  i := 0.
  'processing...' displayProgressAt: Sensor cursorPoint from: 0 to: num during: [:bar |
  SystemNavigation new allBehaviorsDo: [ :class |
+ class selectorsDo: [:s |
- class selectors do: [:s |
  bar value: (i := i + 1).
  ((class sourceCodeAt: s) asString isAsciiString) ifFalse: [
  adder value: class value: s.
  ]
  ]
  ]
  ].
 
  ^ list.
  !

Item was changed:
  ----- Method: WideString class>>allMethodsWithEncodingTag: (in category 'enumeration') -----
  allMethodsWithEncodingTag: encodingTag
  "Answer a SortedCollection of all the methods that implement the message
  aSelector."
 
  | list adder num i |
  list := Set new.
  adder := [ :mrClass :mrSel |
  list add: (
  MethodReference new
  setStandardClass: mrClass
  methodSymbol: mrSel
  )
  ].
 
  num := CompiledMethod allInstances size.
  i := 0.
  'processing...' displayProgressAt: Sensor cursorPoint from: 0 to: num during: [:bar |
  SystemNavigation new allBehaviorsDo: [ :class |
+ class selectorsDo: [:s |
- class selectors do: [:s |
  bar value: (i := i + 1).
  (self string: (class sourceCodeAt: s) asString hasEncoding: encodingTag) ifTrue: [
  adder value: class value: s.
  ]
  ]
  ]
  ].
 
  ^ list.
  !

Item was changed:
  ----- Method: Bag>>asSet (in category 'converting') -----
  asSet
  "Answer a set with the elements of the receiver."
 
+ ^ contents keys asSet!
- ^ contents keys!

Item was changed:
  ----- Method: WideString class>>allMultiStringMethods (in category 'enumeration') -----
  allMultiStringMethods  
  "Answer a SortedCollection of all the methods that implement the message
  aSelector."
 
  | list adder num i |
  list := Set new.
  adder := [ :mrClass :mrSel |
  list add: (
  MethodReference new
  setStandardClass: mrClass
  methodSymbol: mrSel
  )
  ].
 
  num := CompiledMethod allInstances size.
  i := 0.
  'processing...' displayProgressAt: Sensor cursorPoint from: 0 to: num during: [:bar |
  SystemNavigation new allBehaviorsDo: [ :class |
+ class selectorsDo: [:s |
- class selectors do: [:s |
  bar value: (i := i + 1).
  ((class sourceCodeAt: s) asString isOctetString) ifFalse: [
  adder value: class value: s.
  ]
  ]
  ]
  ].
 
  ^ list.
  !