[squeak-dev] The Trunk: Collections-ul.451.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jul 25 09:22:32 UTC 2011
Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.451.mcz
==================== Summary ====================
Name: Collections-ul.451
Author: ul
Time: 25 July 2011, 2:09:16.563 am
UUID: 88a1eed5-6fe6-c044-9c45-f52203eb3b29
Ancestors: Collections-ul.450
- removed WideString class>>allMethodsWithEncodingTag:, because it sent an unimplemented method #string:hasEncodingTag:
- rewritten WideString class>>allMultiStringMethods and WideString class>>allNonAsciiMethods to use #allMethodsSelect: instead of reinventing the wheel. Not sure if we really need these methods here.
=============== Diff against Collections-ul.450 ===============
Item was removed:
- ----- 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...' displayProgressFrom: 0 to: num during: [:bar |
- SystemNavigation new allBehaviorsDo: [ :class |
- class selectorsDo: [: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: WideString class>>allMultiStringMethods (in category 'enumeration') -----
allMultiStringMethods
- "Answer a SortedCollection of all the methods that implement the message
- aSelector."
+ ^CurrentReadOnlySourceFiles cacheDuring: [
+ self systemNavigation allMethodsSelect: [ :method |
+ method getSource asString isOctetString not ] ]!
- | 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...' displayProgressFrom: 0 to: num during: [:bar |
- SystemNavigation new allBehaviorsDo: [ :class |
- class selectorsDo: [:s |
- bar value: (i := i + 1).
- ((class sourceCodeAt: s) asString isOctetString) ifFalse: [
- adder value: class value: s.
- ]
- ]
- ]
- ].
-
- ^ list.
- !
Item was changed:
----- Method: WideString class>>allNonAsciiMethods (in category 'enumeration') -----
+ allNonAsciiMethods
- allNonAsciiMethods
- "Answer a SortedCollection of all the methods that implement the message
- aSelector."
+ ^CurrentReadOnlySourceFiles cacheDuring: [
+ self systemNavigation allMethodsSelect: [ :method |
+ method getSource asString isAsciiString not ] ]!
- | 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...' displayProgressFrom: 0 to: num during: [:bar |
- SystemNavigation new allBehaviorsDo: [ :class |
- class selectorsDo: [:s |
- bar value: (i := i + 1).
- ((class sourceCodeAt: s) asString isAsciiString) ifFalse: [
- adder value: class value: s.
- ]
- ]
- ]
- ].
-
- ^ list.
- !
More information about the Squeak-dev
mailing list
|