The Trunk: Collections-ar.272.mcz

Andreas Raab uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ar.272.mcz

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

Name: Collections-ar.272
Author: ar
Time: 4 January 2010, 12:35:10 pm
UUID: 27d2de35-817a-9846-af4e-27c7342a1091
Ancestors: Collections-nice.271

Make Etoys unloadable: Move Etoys content to Etoys package.

=============== Diff against Collections-nice.271 ===============

Item was removed:
- ----- Method: WordArray>>primAddArray:and:into: (in category 'array arithmetic primitives') -----
- primAddArray: rcvr and: other into: result
-
- <primitive: 'primitiveAddArrays' module:'KedamaPlugin'>
- "^ KedamaPlugin doPrimitive: #primitiveAddArrays."
-
- 1 to: rcvr size do: [:i |
- result at: i put: (rcvr at: i) + (other at: i)
- ].
- ^ result.
- !

Item was removed:
- ----- Method: WordArray>>primAddScalar:and:into: (in category 'array arithmetic primitives') -----
- primAddScalar: rcvr and: other into: result
-
- <primitive: 'primitiveAddScalar' module:'KedamaPlugin'>
- "^ KedamaPlugin doPrimitive: #primitiveAddScalar."
-
- 1 to: rcvr size do: [:i |
- result at: i put: (rcvr at: i) + other.
- ].
- ^ result.
- !

Item was removed:
- ----- Method: WordArray>>/ (in category 'array arithmetic') -----
- / other
-
- | result |
- other isNumber ifTrue: [
- other isFloat ifTrue: [
- result := KedamaFloatArray new: self size.
- ^ self primDivScalar: self and: other into: result.
- ] ifFalse: [
- result := WordArray new: self size.
- ^ self primDivScalar: self and: other into: result.
- ].
- ].
- (other isMemberOf: WordArray) ifTrue: [
- result := WordArray new: self size.
- ^ self primDivArray: self and: other into: result.
- ].
- (other isMemberOf: KedamaFloatArray) ifTrue: [
- result := KedamaFloatArray new: self size.
- ^ self primDivArray: self and: other into: result.
- ].
- ^ super / other.
- !

Item was removed:
- ----- Method: WordArray>>primSubScalar:and:into: (in category 'array arithmetic primitives') -----
- primSubScalar: rcvr and: other into: result
-
- <primitive: 'primitiveSubScalar' module:'KedamaPlugin'>
- "^ KedamaPlugin doPrimitive: #primitiveSubScalar."
-
- 1 to: rcvr size do: [:i |
- result at: i put: (rcvr at: i) - other.
- ].
- ^ result.
- !

Item was removed:
- ----- Method: WordArray>>primMulScalar:and:into: (in category 'array arithmetic primitives') -----
- primMulScalar: rcvr and: other into: result
-
- <primitive: 'primitiveMulScalar' module:'KedamaPlugin'>
- "^ KedamaPlugin doPrimitive: #primitiveMulScalar."
-
- 1 to: rcvr size do: [:i |
- result at: i put: (rcvr at: i) * other.
- ].
- ^ result.
- !

Item was removed:
- ----- Method: WordArray>>primSubArray:and:into: (in category 'array arithmetic primitives') -----
- primSubArray: rcvr and: other into: result
-
- <primitive: 'primitiveSubArrays' module:'KedamaPlugin'>
- "^ KedamaPlugin doPrimitive: #primitiveSubArrays."
-
- 1 to: rcvr size do: [:i |
- result at: i put: (rcvr at: i) - (other at: i)
- ].
- ^ result.
- !

Item was removed:
- ----- Method: WordArray>>- (in category 'array arithmetic') -----
- - other
-
- | result |
- other isNumber ifTrue: [
- other isFloat ifTrue: [
- result := KedamaFloatArray new: self size.
- ^ self primSubScalar: self and: other into: result.
- ] ifFalse: [
- result := WordArray new: self size.
- ^ self primSubScalar: self and: other into: result.
- ].
- ].
- (other isMemberOf: WordArray) ifTrue: [
- result := WordArray new: self size.
- ^ self primSubArray: self and: other into: result.
- ].
- (other isMemberOf: KedamaFloatArray) ifTrue: [
- result := KedamaFloatArray new: self size.
- ^ self primSubArray: self and: other into: result.
- ].
- ^ super - other.
- !

Item was removed:
- ----- Method: WordArray>>+ (in category 'array arithmetic') -----
- + other
-
- | result |
- other isNumber ifTrue: [
- other isFloat ifTrue: [
- result := KedamaFloatArray new: self size.
- ^ self primAddScalar: self and: other into: result.
- ] ifFalse: [
- result := WordArray new: self size.
- ^ self primAddScalar: self and: other into: result.
- ].
- ].
- (other isMemberOf: WordArray) ifTrue: [
- result := WordArray new: self size.
- ^ self primAddArray: self and: other into: result.
- ].
- (other isMemberOf: KedamaFloatArray) ifTrue: [
- result := KedamaFloatArray new: self size.
- ^ self primAddArray: self and: other into: result.
- ].
- ^ super + other.
- !

Item was removed:
- ----- Method: WordArray>>primDivScalar:and:into: (in category 'array arithmetic primitives') -----
- primDivScalar: rcvr and: other into: result
-
- <primitive: 'primitiveDivScalar' module:'KedamaPlugin'>
- "^ KedamaPlugin doPrimitive: #primitiveDivScalar."
-
- 1 to: rcvr size do: [:i |
- result at: i put: (rcvr at: i) / other.
- ].
- ^ result.
- !

Item was removed:
- ----- Method: WordArray>>* (in category 'array arithmetic') -----
- * other
-
- | result |
- other isNumber ifTrue: [
- other isFloat ifTrue: [
- result := KedamaFloatArray new: self size.
- ^ self primMulScalar: self and: other into: result.
- ] ifFalse: [
- result := WordArray new: self size.
- ^ self primMulScalar: self and: other into: result.
- ].
- ].
- (other isMemberOf: WordArray) ifTrue: [
- result := WordArray new: self size.
- ^ self primMulArray: self and: other into: result.
- ].
- (other isMemberOf: KedamaFloatArray) ifTrue: [
- result := KedamaFloatArray new: self size.
- ^ self primMulArray: self and: other into: result.
- ].
- ^ super * other.
- !

Item was removed:
- ----- Method: WordArray>>primMulArray:and:into: (in category 'array arithmetic primitives') -----
- primMulArray: rcvr and: other into: result
-
- <primitive: 'primitiveMulArrays' module:'KedamaPlugin'>
- "^ KedamaPlugin doPrimitive: #primitiveMulArrays."
-
- 1 to: rcvr size do: [:i |
- result at: i put: (rcvr at: i) * (other at: i)
- ].
- ^ result.
- !

Item was removed:
- ----- Method: WordArray>>primDivArray:and:into: (in category 'array arithmetic primitives') -----
- primDivArray: rcvr and: other into: result
-
- <primitive: 'primitiveDivArrays' module:'KedamaPlugin'>
- "^ KedamaPlugin doPrimitive: #primitiveDivArrays."
-
- 1 to: rcvr size do: [:i |
- result at: i put: (rcvr at: i) / (other at: i)
- ].
- ^ result.
- !