Packages May 2020

packages@lists.squeakfoundation.org

1 participants
97 discussions

The Trunk: EToys-tpr.393.mcz
by commits＠source.squeak.org 11 May '20

11 May '20

tim Rowledge uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tpr.393.mcz ==================== Summary ==================== Name: EToys-tpr.393 Author: tpr Time: 10 May 2020, 6:21:06.968561 pm UUID: 24f8a1f3-bbb9-4730-8b60-2036d38db4d1 Ancestors: EToys-nice.392 Correct some abuses ofunderscore as assign =============== Diff against EToys-nice.392 =============== Item was changed: ----- Method: EToyExpressionTransformer>>reduceOnStack (in category 'all') ----- reduceOnStack | list left sel right m | list := stack removeLast: 3. left := list at: 1. sel := list at: 2. right := list at: 3. + m := MessageNode new - m _ MessageNode new receiver: left selector: sel arguments: (Array with: right) precedence: (sel precedence) from: encoder sourceRange: nil. stack addLast: m. ! Item was changed: ----- Method: InteriorFlapTab>>mouseMove: (in category 'event handling') ----- mouseMove: evt "Handle a mouseMove event in the flap tab." | aPosition newReferentThickness adjustedPosition thick relativePosition | dragged ifFalse: [(thick := self referentThickness) > 0 ifTrue: [lastReferentThickness := thick]]. ((self containsPoint: (aPosition := evt cursorPoint)) and: [dragged not]) ifFalse: [flapShowing ifFalse: [self showFlap]. relativePosition := aPosition - evt hand targetOffset. adjustedPosition := aPosition - (owner position + evt hand targetOffset). (edgeToAdhereTo == #bottom) ifTrue: [newReferentThickness := inboard ifTrue: [owner height - adjustedPosition y] ifFalse: [owner height - adjustedPosition y - self height]]. (edgeToAdhereTo == #left) ifTrue: + [newReferentThickness := - [newReferentThickness _ inboard ifTrue: [adjustedPosition x + self width] ifFalse: [adjustedPosition x]]. (edgeToAdhereTo == #right) ifTrue: + [newReferentThickness := - [newReferentThickness _ inboard ifTrue: [owner width - adjustedPosition x] ifFalse: [owner width - adjustedPosition x - self width]]. (edgeToAdhereTo == #top) ifTrue: + [newReferentThickness := - [newReferentThickness _ inboard ifTrue: [adjustedPosition y + self height] ifFalse: [adjustedPosition y]]. self isCurrentlySolid ifFalse: [(#(left right) includes: edgeToAdhereTo) ifFalse: [self left: relativePosition x] ifTrue: [self top: relativePosition y]]. self applyThickness: newReferentThickness. dragged := true. self fitOnScreen. self computeEdgeFraction]! Item was changed: ----- Method: SpectrumAnalyzerMorph>>showSonogram (in category 'private') ----- showSonogram "Display a sonogram showing the frequency spectrum versus time." | zeros h w | displayType := 'sonogram'. self removeAllDisplays. h := fft n // 2. h := h min: 512 max: 64. w := 400. + sonogramMorph := - sonogramMorph _ Sonogram new extent: w@h minVal: 0.0 maxVal: 1.0 scrollDelta: w. zeros := Array new: sonogramMorph height withAll: 0. sonogramMorph width timesRepeat: [sonogramMorph plotColumn: zeros]. self addMorphBack: sonogramMorph. self extent: 10@10. "shrink to minimum size" !

1 0

The Trunk: Collections-nice.895.mcz
by commits＠source.squeak.org 10 May '20

10 May '20

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.895.mcz ==================== Summary ==================== Name: Collections-nice.895 Author: nice Time: 10 May 2020, 9:50:58.314661 pm UUID: cfd7db5f-61a4-48b5-a4d4-8ef873472161 Ancestors: Collections-nice.894 Remove byteSize, because super just works It could have been defined as: ^self size * self bytesPerElement But super is less dependent on correct redefinition of above two messages: ^ self basicSize * self bytesPerBasicElement =============== Diff against Collections-nice.894 =============== Item was removed: - ----- Method: ByteArray>>byteSize (in category 'accessing') ----- - byteSize - ^self size! Item was removed: - ----- Method: DoubleByteArray>>byteSize (in category 'accessing') ----- - byteSize - ^self size * 2! Item was removed: - ----- Method: DoubleWordArray>>byteSize (in category 'accessing') ----- - byteSize - ^self size * 8! Item was removed: - ----- Method: Float32Array>>byteSize (in category 'accessing') ----- - byteSize - ^self size * 4! Item was removed: - ----- Method: Float64Array>>byteSize (in category 'accessing') ----- - byteSize - ^self size * 8! Item was removed: - ----- Method: SignedByteArray>>byteSize (in category 'accessing') ----- - byteSize - ^self size! Item was removed: - ----- Method: SignedDoubleByteArray>>byteSize (in category 'accessing') ----- - byteSize - ^self size * 2! Item was removed: - ----- Method: SignedDoubleWordArray>>byteSize (in category 'accessing') ----- - byteSize - ^self size * 8! Item was removed: - ----- Method: SignedWordArray>>byteSize (in category 'accessing') ----- - byteSize - ^self size * 4! Item was removed: - ----- Method: WordArray>>byteSize (in category 'accessing') ----- - byteSize - ^self size * 4!

1 0

The Trunk: Balloon-nice.33.mcz
by commits＠source.squeak.org 10 May '20

10 May '20

Nicolas Cellier uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-nice.33.mcz ==================== Summary ==================== Name: Balloon-nice.33 Author: nice Time: 10 May 2020, 9:46:17.536227 pm UUID: e222eaef-65e7-4c46-99c1-72fc91ddb6f8 Ancestors: Balloon-dtl.32 Move PointArray one level higher. It is usefull if we want to deprecate IntegerArray... Also, it shall not reply itself to asIntegerArray. Provide a correct bytesPerElement taking the two slots occupied by each element into account. =============== Diff against Balloon-dtl.32 =============== Item was changed: + SignedWordArray variableWordSubclass: #PointArray - IntegerArray variableWordSubclass: #PointArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Balloon-Collections'! !PointArray commentStamp: '<historical>' prior: 0! This class stores 32bit Integer points in place. It is used to pass data efficiently to the primitive level during high-bandwidth 2D graphics operations.! Item was added: + ----- Method: PointArray>>bytesPerElement (in category 'accessing') ----- + bytesPerElement + "Each element occupy two slots" + ^ 8!

1 0

The Trunk: Kernel-nice.1328.mcz
by commits＠source.squeak.org 10 May '20

10 May '20

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1328.mcz ==================== Summary ==================== Name: Kernel-nice.1328 Author: nice Time: 10 May 2020, 6:37:59.503017 pm UUID: 0dc2dc8d-e20b-4b2b-9db6-8c5ceacb165f Ancestors: Kernel-nice.1327 Return to a safer ClassBuilder. =============== Diff against Kernel-nice.1327 =============== Item was changed: ----- Method: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'class definition') ----- name: className inEnvironment: env subclassOf: newSuper type: type instanceVariableNames: instVarString classVariableNames: classVarString poolDictionaries: poolString category: category "Define a new class in the given environment" ^self name: className inEnvironment: env subclassOf: newSuper type: type instanceVariableNames: instVarString classVariableNames: classVarString poolDictionaries: poolString category: category + unsafe: false! - unsafe: true!

1 0

The Trunk: Sound-nice.69.mcz
by commits＠source.squeak.org 10 May '20

10 May '20

Nicolas Cellier uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-nice.69.mcz ==================== Summary ==================== Name: Sound-nice.69 Author: nice Time: 10 May 2020, 6:23:44.99374 pm UUID: 9ac78f43-a8a1-40c2-a03c-1015a62cb643 Ancestors: Sound-dtl.68 Use Float32Array explicitely =============== Diff against Sound-dtl.68 =============== Item was changed: ----- Method: FFT>>initializeHammingWindow: (in category 'bulk processing') ----- initializeHammingWindow: alpha "Initialize the windowing function to the generalized Hamming window. See F. Richard Moore, Elements of Computer Music, p. 100. An alpha of 0.54 gives the Hamming window, 0.5 gives the hanning window." | v midPoint | + window := Float32Array new: n. - window := FloatArray new: n. midPoint := (n + 1) / 2.0. 1 to: n do: [:i | v := alpha + ((1.0 - alpha) * (2.0 * Float pi * ((i - midPoint) / n)) cos). window at: i put: v]. ! Item was changed: ----- Method: FFT>>initializeTriangularWindow (in category 'bulk processing') ----- initializeTriangularWindow "Initialize the windowing function to the triangular, or Parzen, window. See F. Richard Moore, Elements of Computer Music, p. 100." | v | + window := Float32Array new: n. - window := FloatArray new: n. 0 to: (n // 2) - 1 do: [:i | v := i / ((n // 2) - 1). window at: (i + 1) put: v. window at: (n - i) put: v]. ! Item was changed: ----- Method: FFT>>pluginPrepareData (in category 'plugin-testing') ----- pluginPrepareData "The FFT plugin requires data to be represented in WordArrays or FloatArrays" + sinTable := sinTable asFloat32Array. - sinTable := sinTable asFloatArray. permTable := permTable asWordArray. + realData := realData asFloat32Array. + imagData := imagData asFloat32Array.! - realData := realData asFloatArray. - imagData := imagData asFloatArray.! Item was changed: ----- Method: FFT>>setSize: (in category 'bulk processing') ----- setSize: anIntegerPowerOfTwo "Initialize variables and tables for performing an FFT on the given number of samples. The number of samples must be an integral power of two (e.g. 1024). Prepare data for use with the fast primitive." self nu: (anIntegerPowerOfTwo log: 2) asInteger. n = anIntegerPowerOfTwo ifFalse: [self error: 'size must be a power of two']. + sinTable := sinTable asFloat32Array. - sinTable := sinTable asFloatArray. permTable := permTable asWordArray. + realData := Float32Array new: n. + imagData := Float32Array new: n. - realData := FloatArray new: n. - imagData := FloatArray new: n. self initializeHammingWindow: 0.54. "0.54 for Hamming, 0.5 for hanning" ! Item was changed: ----- Method: FFT>>transformDataFrom:startingAt: (in category 'bulk processing') ----- transformDataFrom: anIndexableCollection startingAt: index "Forward transform a block of real data taken from from the given indexable collection starting at the given index. Answer a block of values representing the normalized magnitudes of the frequency components." | j real imag out | j := 0. index to: index + n - 1 do: [:i | realData at: (j := j + 1) put: (anIndexableCollection at: i)]. realData *= window. + imagData := Float32Array new: n. - imagData := FloatArray new: n. self transformForward: true. "compute the magnitudes of the complex results" "note: the results are in bottom half; the upper half is just its mirror image" real := realData copyFrom: 1 to: (n / 2). imag := imagData copyFrom: 1 to: (n / 2). out := (real * real) + (imag * imag). 1 to: out size do: [:i | out at: i put: (out at: i) sqrt]. ^ out !

1 0

The Trunk: Tools-nice.967.mcz
by commits＠source.squeak.org 10 May '20

10 May '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.967.mcz ==================== Summary ==================== Name: Tools-nice.967 Author: nice Time: 10 May 2020, 6:22:51.031917 pm UUID: bd2143a6-8aec-4e9f-a321-38f66b09f498 Ancestors: Tools-jr.966 asFloat3Array and asFloat64Array =============== Diff against Tools-jr.966 =============== Item was changed: ----- Method: MethodFinder>>initialize (in category 'initialize') ----- (excessive size, no diff calculated)

1 0

The Trunk: Graphics-nice.431.mcz
by commits＠source.squeak.org 10 May '20

10 May '20

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.431.mcz ==================== Summary ==================== Name: Graphics-nice.431 Author: nice Time: 10 May 2020, 6:20:54.708121 pm UUID: 97120981-48e8-42ff-823d-6ad4035ddae6 Ancestors: Graphics-mt.430 Use Float32Array explicitely =============== Diff against Graphics-mt.430 =============== Item was changed: ----- Method: MatrixTransform2x3>>explorerContents (in category 'explorer') ----- explorerContents + ^(Float32Array newFrom: self) explorerContents! - ^(FloatArray newFrom: self) explorerContents!

1 0

The Trunk: EToys-nice.392.mcz
by commits＠source.squeak.org 10 May '20

10 May '20

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.392.mcz ==================== Summary ==================== Name: EToys-nice.392 Author: nice Time: 10 May 2020, 6:20:16.982605 pm UUID: 43a15c49-4926-4f07-8285-8803a430afef Ancestors: EToys-mt.391 Use Float32Array explicitely =============== Diff against EToys-mt.391 =============== Item was changed: ----- Method: FishEyeMorph>>calculateTransform (in category 'initialization') ----- calculateTransform | stepX stepY rect tx ty arrayX arrayY | (gridNum x = 0 or: [gridNum y = 0]) ifTrue: [^self]. stepX := srcExtent x // gridNum x. stepY := srcExtent y // gridNum y. + arrayX := (1 to: gridNum y + 1) collect: [:j | Float32Array new: gridNum x + 1]. + arrayY := (1 to: gridNum y + 1) collect: [:j | Float32Array new: gridNum x + 1]. - arrayX := (1 to: gridNum y + 1) collect: [:j | FloatArray new: gridNum x + 1]. - arrayY := (1 to: gridNum y + 1) collect: [:j | FloatArray new: gridNum x + 1]. 0 to: gridNum y do: [:j | 0 to: gridNum x do: [:i | (arrayX at: (j + 1)) at: (i + 1) put: i*stepX. (arrayY at: (j + 1)) at: (i + 1) put: j*stepY. ]. ]. 0 to: gridNum y do: [:j | self transformX: (arrayX at: (j+1)). self transformY: (arrayY at: (j+1)). ]. 0 to: gridNum y do: [:j | arrayX at: (j+1) put: ((1 to: gridNum x +1) collect: [:i | ((arrayX at: (j+1)) at: i) asInteger]). arrayY at: (j+1) put: ((1 to: gridNum x +1) collect: [:i | ((arrayY at: (j+1)) at: i) asInteger]). ]. clipRects := (1 to: gridNum y) collect: [:j | Array new: gridNum x]. toRects := (1 to: gridNum y) collect: [:j | Array new: gridNum x]. quads := (1 to: gridNum y) collect: [:j | Array new: gridNum x]. 0 to: gridNum y - 1 do: [:j | 0 to: gridNum x- 1 do: [:i | rect := (((arrayX at: (j+1)) at: (i+1))@((arrayY at: (j+1)) at: (i+1))) corner: ((arrayX at: (j+2)) at: (i+2))@((arrayY at: (j+2)) at: (i+2)). (clipRects at: j+1) at: i+1 put: rect. rect width >= stepX ifTrue: [rect := rect expandBy: (1@0)]. rect height >= stepY ifTrue: [rect := rect expandBy: (0@1)]. (toRects at: j+1) at: i+1 put: rect. tx := (i)*stepX. ty := (j)*stepY. (quads at: j+1) at: i+1 put: {(tx)@(ty). (tx)@(ty+stepY). (tx+stepX)@(ty+stepY). (tx+stepX)@(ty)}. ]. ]. ! Item was changed: + Float32Array variableWordSubclass: #KedamaFloatArray - FloatArray variableWordSubclass: #KedamaFloatArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Etoys-StarSqueak'!

1 0

The Trunk: CollectionsTests-nice.339.mcz
by commits＠source.squeak.org 10 May '20

10 May '20

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.339.mcz ==================== Summary ==================== Name: CollectionsTests-nice.339 Author: nice Time: 10 May 2020, 6:18:29.341931 pm UUID: 38abf144-a487-4dfb-bed7-8ef6a9dab6b9 Ancestors: CollectionsTests-nice.338 Use Float32Array explicitely =============== Diff against CollectionsTests-nice.338 =============== Item was changed: ----- Method: FloatArrayTest>>testArithmeticCoercion (in category 'tests') ----- testArithmeticCoercion "This test is related to http://bugs.squeak.org/view.php?id=6782" + self should: [3.0 / (Float32Array with: 2.0) = (Float32Array with: 1.5)]. + self should: [3.0 * (Float32Array with: 2.0) = (Float32Array with: 6.0)]. + self should: [3.0 + (Float32Array with: 2.0) = (Float32Array with: 5.0)]. + self should: [3.0 - (Float32Array with: 2.0) = (Float32Array with: 1.0)].! - self should: [3.0 / (FloatArray with: 2.0) = (FloatArray with: 1.5)]. - self should: [3.0 * (FloatArray with: 2.0) = (FloatArray with: 6.0)]. - self should: [3.0 + (FloatArray with: 2.0) = (FloatArray with: 5.0)]. - self should: [3.0 - (FloatArray with: 2.0) = (FloatArray with: 1.0)].! Item was changed: ----- Method: FloatArrayTest>>testFloatArrayPluginPrimitiveAt (in category 'tests') ----- testFloatArrayPluginPrimitiveAt "if FloatArrayPlugin primitive are not here, this test is dumb. Otherwise, it will compare primitive and #fromIEEE32Bit:" #( "regular numbers no truncation or rounding" 2r0.0 2r1.0 2r1.1 2r1.00000000000000000000001 2r1.0e-10 2r1.1e-10 2r1.00000000000000000000001e-10 2r1.0e10 2r1.1e10 2r1.00000000000000000000001e10 "smallest float32 before gradual underflow" 2r1.0e-126 "biggest float32" 2r1.11111111111111111111111e127 "overflow" 2r1.11111111111111111111111e128 "gradual underflow" 2r0.11111111111111111111111e-126 2r0.00000000000000000000001e-126 "with rounding mode : tests on 25 bits" 2r1.0000000000000000000000001 2r1.0000000000000000000000010 2r1.0000000000000000000000011 2r1.0000000000000000000000100 2r1.0000000000000000000000101 2r1.0000000000000000000000110 2r1.0000000000000000000000111 2r1.1111111111111111111111001 2r1.1111111111111111111111010 2r1.1111111111111111111111011 2r1.1111111111111111111111101 2r1.1111111111111111111111110 2r1.1111111111111111111111111 "overflow" 2r1.1111111111111111111111110e127 "gradual underflow" 2r0.1111111111111111111111111e-126 2r0.1111111111111111111111110e-126 2r0.1111111111111111111111101e-126 2r0.1111111111111111111111011e-126 2r0.1111111111111111111111010e-126 2r0.1111111111111111111111001e-126 2r0.0000000000000000000000111e-126 2r0.0000000000000000000000110e-126 2r0.0000000000000000000000101e-126 2r0.0000000000000000000000011e-126 2r0.0000000000000000000000010e-126 2r0.0000000000000000000000001e-126 2r0.0000000000000000000000010000000000000000000000000001e-126 ) do: [:e | + self assert: ((Float32Array with: e) at: 1) = (Float fromIEEE32Bit: ((Float32Array with: e) basicAt: 1)). + self assert: ((Float32Array with: e negated) at: 1) = (Float fromIEEE32Bit: ((Float32Array with: e negated) basicAt: 1))]. - self assert: ((FloatArray with: e) at: 1) = (Float fromIEEE32Bit: ((FloatArray with: e) basicAt: 1)). - self assert: ((FloatArray with: e negated) at: 1) = (Float fromIEEE32Bit: ((FloatArray with: e negated) basicAt: 1))]. "special cases" (Array with: Float infinity with: Float negativeInfinity with: Float negativeZero) + do: [:e | self assert: ((Float32Array with: e) at: 1) = (Float fromIEEE32Bit: ((Float32Array with: e) basicAt: 1))]. - do: [:e | self assert: ((FloatArray with: e) at: 1) = (Float fromIEEE32Bit: ((FloatArray with: e) basicAt: 1))]. "Cannot compare NaN" (Array with: Float nan) + do: [:e | self assert: (Float fromIEEE32Bit: ((Float32Array with: e) basicAt: 1)) isNaN].! - do: [:e | self assert: (Float fromIEEE32Bit: ((FloatArray with: e) basicAt: 1)) isNaN].! Item was changed: ----- Method: FloatArrayTest>>testFloatArrayPluginPrimitiveAtPut (in category 'tests') ----- testFloatArrayPluginPrimitiveAtPut "if FloatArrayPlugin primitive are not here, this test is dumb. Otherwise, it will compare primitive and #asIEEE32BitWord" #( "regular numbers no truncation or rounding" 2r0.0 2r1.0 2r1.1 2r1.00000000000000000000001 2r1.0e-10 2r1.1e-10 2r1.00000000000000000000001e-10 2r1.0e10 2r1.1e10 2r1.00000000000000000000001e10 "smallest float32 before gradual underflow" 2r1.0e-126 "biggest float32" 2r1.11111111111111111111111e127 "overflow" 2r1.11111111111111111111111e128 "gradual underflow" 2r0.11111111111111111111111e-126 2r0.00000000000000000000001e-126 "with rounding mode : tests on 25 bits" 2r1.0000000000000000000000001 2r1.0000000000000000000000010 2r1.0000000000000000000000011 2r1.0000000000000000000000100 2r1.0000000000000000000000101 2r1.0000000000000000000000110 2r1.0000000000000000000000111 2r1.1111111111111111111111001 2r1.1111111111111111111111010 2r1.1111111111111111111111011 2r1.1111111111111111111111101 2r1.1111111111111111111111110 2r1.1111111111111111111111111 "overflow" 2r1.1111111111111111111111110e127 "gradual underflow" 2r0.1111111111111111111111111e-126 2r0.1111111111111111111111110e-126 2r0.1111111111111111111111101e-126 2r0.1111111111111111111111011e-126 2r0.1111111111111111111111010e-126 2r0.1111111111111111111111001e-126 2r0.0000000000000000000000111e-126 2r0.0000000000000000000000110e-126 2r0.0000000000000000000000101e-126 2r0.0000000000000000000000011e-126 2r0.0000000000000000000000010e-126 2r0.0000000000000000000000001e-126 2r0.0000000000000000000000010000000000000000000000000001e-126 ) do: [:e | + self assert: ((Float32Array with: e) basicAt: 1) = e asIEEE32BitWord. + self assert: ((Float32Array with: e negated) basicAt: 1) = e negated asIEEE32BitWord]. - self assert: ((FloatArray with: e) basicAt: 1) = e asIEEE32BitWord. - self assert: ((FloatArray with: e negated) basicAt: 1) = e negated asIEEE32BitWord]. "special cases" (Array with: Float infinity with: Float negativeInfinity with: Float negativeZero with: Float nan) + do: [:e | self assert: ((Float32Array with: e) basicAt: 1) = e asIEEE32BitWord]. - do: [:e | self assert: ((FloatArray with: e) basicAt: 1) = e asIEEE32BitWord]. ! Item was changed: ----- Method: FloatArrayTest>>testVectorOperations (in category 'tests') ----- testVectorOperations "Test primtive cases 'receiver size = argument size'." + self assert: (Float32Array withAll: {2.0. 2.0}) equals: (Float32Array withAll: {4.0. 6.0}) / (Float32Array withAll: {2.0. 3.0}). + self assert: (Float32Array withAll: {8.0. 9.0}) equals: (Float32Array withAll: {4.0. 4.5}) * (Float32Array withAll: {2.0. 2.0}). + self assert: (Float32Array withAll: {6.0. 9.0}) equals: (Float32Array withAll: {4.0. 6.0}) + (Float32Array withAll: {2.0. 3.0}). + self assert: (Float32Array withAll: {2.0. 3.0}) equals: (Float32Array withAll: {4.0. 6.0}) - (Float32Array withAll: {2.0. 3.0}). + self assert: 26 equals: ((Float32Array withAll: {4.0. 6.0}) dot: (Float32Array withAll: {2.0. 3.0})). - self assert: (FloatArray withAll: {2.0. 2.0}) equals: (FloatArray withAll: {4.0. 6.0}) / (FloatArray withAll: {2.0. 3.0}). - self assert: (FloatArray withAll: {8.0. 9.0}) equals: (FloatArray withAll: {4.0. 4.5}) * (FloatArray withAll: {2.0. 2.0}). - self assert: (FloatArray withAll: {6.0. 9.0}) equals: (FloatArray withAll: {4.0. 6.0}) + (FloatArray withAll: {2.0. 3.0}). - self assert: (FloatArray withAll: {2.0. 3.0}) equals: (FloatArray withAll: {4.0. 6.0}) - (FloatArray withAll: {2.0. 3.0}). - self assert: 26 equals: ((FloatArray withAll: {4.0. 6.0}) dot: (FloatArray withAll: {2.0. 3.0})). "Test corner cases where 'receiver size < argument size'." + self should: [(Float32Array withAll: {4.0. 6.0}) / (Float32Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float32Array withAll: {4.0. 6.0}) * (Float32Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float32Array withAll: {4.0. 6.0}) + (Float32Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float32Array withAll: {4.0. 6.0}) - (Float32Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float32Array withAll: {4.0. 6.0}) dot: (Float32Array withAll: {2.0. 3.0. 42.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0}) / (FloatArray withAll: {2.0. 3.0. 42.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0}) * (FloatArray withAll: {2.0. 3.0. 42.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0}) + (FloatArray withAll: {2.0. 3.0. 42.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0}) - (FloatArray withAll: {2.0. 3.0. 42.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0}) dot: (FloatArray withAll: {2.0. 3.0. 42.0})] raise: Error. "Test corner cases where 'receiver size > argument size'." + self should: [(Float32Array withAll: {4.0. 6.0. 42.0}) / (Float32Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float32Array withAll: {4.0. 6.0. 42.0}) * (Float32Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float32Array withAll: {4.0. 6.0. 42.0}) + (Float32Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float32Array withAll: {4.0. 6.0. 42.0}) - (Float32Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float32Array withAll: {4.0. 6.0. 42.0}) dot: (Float32Array withAll: {2.0. 3.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0. 42.0}) / (FloatArray withAll: {2.0. 3.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0. 42.0}) * (FloatArray withAll: {2.0. 3.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0. 42.0}) + (FloatArray withAll: {2.0. 3.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0. 42.0}) - (FloatArray withAll: {2.0. 3.0})] raise: Error. - self should: [(FloatArray withAll: {4.0. 6.0. 42.0}) dot: (FloatArray withAll: {2.0. 3.0})] raise: Error. ! Item was changed: ----- Method: FloatCollectionTest>>testAdd (in category 'tests') ----- testAdd | fc | fc := #(1 2 3 4 ) as: FloatCollection. fc add: 88. + self assert: #(1.0 2.0 3.0 4.0 88.0 ) asFloat32Array equals: fc asFloat32Array. - self assert: #(1.0 2.0 3.0 4.0 88.0 ) asFloatArray equals: fc asFloatArray. fc add: 99. self assert: (#(1 2 3 4 88 99 ) as: FloatCollection) equals: fc!

1 0

The Trunk: Kernel-nice.1327.mcz
by commits＠source.squeak.org 10 May '20

10 May '20

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1327.mcz ==================== Summary ==================== Name: Kernel-nice.1327 Author: nice Time: 10 May 2020, 6:14:32.751642 pm UUID: d1799f0b-e9b3-4aee-b3ca-a87fd702f2c6 Ancestors: Kernel-nice.1326 Be unsafe for enabling migration of ByteArray =============== Diff against Kernel-nice.1326 =============== Item was changed: ----- Method: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'class definition') ----- name: className inEnvironment: env subclassOf: newSuper type: type instanceVariableNames: instVarString classVariableNames: classVarString poolDictionaries: poolString category: category "Define a new class in the given environment" ^self name: className inEnvironment: env subclassOf: newSuper type: type instanceVariableNames: instVarString classVariableNames: classVarString poolDictionaries: poolString category: category + unsafe: true! - unsafe: false!

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2020