Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.386.mcz
==================== Summary ====================
Name: Collections-nice.386
Author: nice
Time: 1 October 2010, 10:37:30.237 pm
UUID: 14bfeb25-a255-4838-87d4-4c4dccac4b2d
Ancestors: Collections-nice.385
Remove #hashMappedBy: and #identityHashMappedBy:
=============== Diff against Collections-nice.385 ===============
Item was removed:
- ----- Method: Array>>hashMappedBy: (in category 'comparing') -----
- hashMappedBy: map
- "Answer what my hash would be if oops changed according to map."
-
- self size = 0 ifTrue: [^self hash].
- ^(self first hashMappedBy: map) + (self last hashMappedBy: map)!
Item was removed:
- ----- Method: Interval>>hashMappedBy: (in category 'comparing') -----
- hashMappedBy: map
- "My hash is independent of my oop."
-
- ^self hash!
Item was removed:
- ----- Method: LookupKey>>hashMappedBy: (in category 'comparing') -----
- hashMappedBy: map
- "Answer what my hash would be if oops changed according to map."
-
- ^key hashMappedBy: map!
Item was removed:
- ----- Method: LookupKey>>identityHashMappedBy: (in category 'comparing') -----
- identityHashMappedBy: map
- "Answer what my hash would be if oops changed according to map."
-
- ^ key identityHashMappedBy: map!
Item was removed:
- ----- Method: String>>hashMappedBy: (in category 'comparing') -----
- hashMappedBy: map
- "My hash is independent of my oop."
-
- ^self hash!
Item was removed:
- ----- Method: WeakKeyAssociation>>hashMappedBy: (in category 'comparing') -----
- hashMappedBy: map
- "Answer what my hash would be if oops changed according to map."
-
- ^self key hashMappedBy: map!
Item was removed:
- ----- Method: WeakKeyAssociation>>identityHashMappedBy: (in category 'comparing') -----
- identityHashMappedBy: map
- "Answer what my hash would be if oops changed according to map."
-
- ^ self key identityHashMappedBy: map!
Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.381.mcz
==================== Summary ====================
Name: System-eem.381
Author: eem
Time: 1 October 2010, 5:13:05.666 am
UUID: fe56800a-cea9-49b7-b807-5e48494053c4
Ancestors: System-ul.380
Answer methodClassName for class comment chnages so
that the change list includes class comments in "select
changes for this class" et al.
=============== Diff against System-ul.380 ===============
Item was changed:
----- Method: ChangeRecord>>methodClassName (in category 'access') -----
methodClassName
+ | tokens |
- | text tokens |
(class isNil
and: [type = #doIt
+ and: [(tokens := Scanner new scanTokens: self text) size >= 3
+ and: [(tokens includes: #'.') not "exclude multi-statement doits"
- and: [((text := self text) includes: $.) not "exclude multi-statement doits"
- and: [(tokens := Scanner new scanTokens: text) size >= 4
and: [tokens first isSymbol
and: [tokens first isKeyword not
and: [tokens first first canBeGlobalVarInitial
+ and: [(tokens includes: #instanceVariableNames:)
+ or: [tokens second == #comment:
+ or: [tokens third == #comment:]]]]]]]]]) ifTrue:
- and: [tokens includes: #instanceVariableNames:]]]]]]]) ifTrue:
["Could be a class definition.
Class definitions start with Superclass blahSubclass: #ClassName
Metaclass definitions start with ClassName class instanceVariableNames:"
(tokens second isSymbol
and: [tokens second isKeyword
and: [tokens third isSymbol
and: [tokens third isKeyword not
and: [(2 to: tokens size by: 2) allSatisfy: [:i| (tokens at: i) isKeyword]]]]]) ifTrue:
[^tokens third].
(tokens size = 4
and: [tokens second = #class
+ and: [(tokens third = #instanceVariableNames: or: [tokens third = #comment:])
- and: [tokens third = #instanceVariableNames:
and: [tokens last isString]]]) ifTrue:
+ [^tokens first].
+ (tokens size = 3
+ and: [tokens second = #comment:
+ and: [tokens last isString]]) ifTrue:
[^tokens first]].
^class!
Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.381.mcz
==================== Summary ====================
Name: System-eem.381
Author: eem
Time: 1 October 2010, 5:13:05.666 am
UUID: fe56800a-cea9-49b7-b807-5e48494053c4
Ancestors: System-ul.380
Answer methodClassName for class comment chnages so
that the change list includes class comments in "select
changes for this class" et al.
=============== Diff against System-ul.380 ===============
Item was changed:
----- Method: ChangeRecord>>methodClassName (in category 'access') -----
methodClassName
+ | tokens |
- | text tokens |
(class isNil
and: [type = #doIt
+ and: [(tokens := Scanner new scanTokens: self text) size >= 3
+ and: [(tokens includes: #'.') not "exclude multi-statement doits"
- and: [((text := self text) includes: $.) not "exclude multi-statement doits"
- and: [(tokens := Scanner new scanTokens: text) size >= 4
and: [tokens first isSymbol
and: [tokens first isKeyword not
and: [tokens first first canBeGlobalVarInitial
+ and: [(tokens includes: #instanceVariableNames:)
+ or: [tokens second == #comment:
+ or: [tokens third == #comment:]]]]]]]]]) ifTrue:
- and: [tokens includes: #instanceVariableNames:]]]]]]]) ifTrue:
["Could be a class definition.
Class definitions start with Superclass blahSubclass: #ClassName
Metaclass definitions start with ClassName class instanceVariableNames:"
(tokens second isSymbol
and: [tokens second isKeyword
and: [tokens third isSymbol
and: [tokens third isKeyword not
and: [(2 to: tokens size by: 2) allSatisfy: [:i| (tokens at: i) isKeyword]]]]]) ifTrue:
[^tokens third].
(tokens size = 4
and: [tokens second = #class
+ and: [(tokens third = #instanceVariableNames: or: [tokens third = #comment:])
- and: [tokens third = #instanceVariableNames:
and: [tokens last isString]]]) ifTrue:
+ [^tokens first].
+ (tokens size = 3
+ and: [tokens second = #comment:
+ and: [tokens last isString]]) ifTrue:
[^tokens first]].
^class!
Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.381.mcz
==================== Summary ====================
Name: System-eem.381
Author: eem
Time: 1 October 2010, 5:13:05.666 am
UUID: fe56800a-cea9-49b7-b807-5e48494053c4
Ancestors: System-ul.380
Answer methodClassName for class comment chnages so
that the change list includes class comments in "select
changes for this class" et al.
=============== Diff against System-ul.380 ===============
Item was changed:
----- Method: ChangeRecord>>methodClassName (in category 'access') -----
methodClassName
+ | tokens |
- | text tokens |
(class isNil
and: [type = #doIt
+ and: [(tokens := Scanner new scanTokens: self text) size >= 3
+ and: [(tokens includes: #'.') not "exclude multi-statement doits"
- and: [((text := self text) includes: $.) not "exclude multi-statement doits"
- and: [(tokens := Scanner new scanTokens: text) size >= 4
and: [tokens first isSymbol
and: [tokens first isKeyword not
and: [tokens first first canBeGlobalVarInitial
+ and: [(tokens includes: #instanceVariableNames:)
+ or: [tokens second == #comment:
+ or: [tokens third == #comment:]]]]]]]]]) ifTrue:
- and: [tokens includes: #instanceVariableNames:]]]]]]]) ifTrue:
["Could be a class definition.
Class definitions start with Superclass blahSubclass: #ClassName
Metaclass definitions start with ClassName class instanceVariableNames:"
(tokens second isSymbol
and: [tokens second isKeyword
and: [tokens third isSymbol
and: [tokens third isKeyword not
and: [(2 to: tokens size by: 2) allSatisfy: [:i| (tokens at: i) isKeyword]]]]]) ifTrue:
[^tokens third].
(tokens size = 4
and: [tokens second = #class
+ and: [(tokens third = #instanceVariableNames: or: [tokens third = #comment:])
- and: [tokens third = #instanceVariableNames:
and: [tokens last isString]]]) ifTrue:
+ [^tokens first].
+ (tokens size = 3
+ and: [tokens second = #comment:
+ and: [tokens last isString]]) ifTrue:
[^tokens first]].
^class!