Squeak-dev May 2020

squeak-dev@lists.squeakfoundation.org

43 participants
265 discussions

The TextMorph takes the keyboard focus when adding a message category (protocol)
by Nicolas Cellier 04 May '20

04 May '20

Hi all, I don't know since when that happened, but the TextMorph is taking the keyboard focus and deprive the buttons from their shortcuts, forcing me to use the mouse when I previously didn't have too. I didn't change anything myself except installing RefactoringBrowser and OCompletion. [image: image.png]

2 1

FillInTheBlankMorph gets amorphous when cancelling edits with ALT+Z
by Nicolas Cellier 04 May '20

04 May '20

Hi all, recipe: UIManager default request: '' initialAnswer: 'Type some keys then CMD+z or ALT+z' Follow the instructions. Then type enter or click Accept button: nothing happens. The Morph is amorphous... I have RefactoringBrowser + OCompletion loaded, and didn't check if it happens in a virgin image.

4 3

The Trunk: Monticello-eem.717.mcz
by commits＠source.squeak.org 04 May '20

04 May '20

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.717.mcz ==================== Summary ==================== Name: Monticello-eem.717 Author: eem Time: 10 March 2020, 4:08:29.610546 pm UUID: b9e3f028-0530-472b-8122-a356375f2d4a Ancestors: Monticello-nice.716 Sort repositories in the Monticello browser, useful if, as in a VMMaker image with Squeak trunk github support included, one has nearly 40 repositories. =============== Diff against Monticello-nice.716 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>repositories (in category 'morphic ui') ----- repositories + | repositories | + repositories := self repositoryGroup repositories. + ^{repositories first}, (repositories allButFirst sort: [:r1 :r2| r1 description < r2 description])! - ^ self repositoryGroup repositories!

4 3

Some horrible things the refactoring browser is doing (or not doing)
by Nicolas Cellier 04 May '20

04 May '20

Hi all, I've noted two of them, but there's probably more: 1) it does not know how to push-up a class side method 2) when pushing up a method, if a sibling has a method of same name (generally same method, that's why we push up) which invokes super, then the refactoring override the sibling method with super method! Example I have class hierarchy A > B > C1, B > C2. A implements m A>>#m, C1 and C2 also implements m, which ends with a ^super m. When I push-up C1>>m into B, I'm told it's impossible to move C1>>m up... Why not, it's my responsibility, so warning me is good, preventing me is bad. But I observed that C2>>m ends-up overwritten with A>>m, and that sucks.

2 1

The Inbox: Collections-nice.890.mcz
by commits＠source.squeak.org 02 May '20

02 May '20

Nicolas Cellier uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-nice.890.mcz ==================== Summary ==================== Name: Collections-nice.890 Author: nice Time: 2 May 2020, 12:46:11.423176 am UUID: e7907bbc-eb45-4b41-b70a-f1290a10a4e4 Ancestors: Collections-mt.889 Introduce Float64Array. This will be fast once the Float64ArrayPlugin is delivered. =============== Diff against Collections-mt.889 =============== Item was added: + ArrayedCollection variableDoubleWordSubclass: #Float64Array + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Arrayed'! + + !Float64Array commentStamp: '<historical>' prior: 0! + Float64Arrays store 64bit IEEE floating point numbers.! Item was added: + ----- Method: Float64Array class>>fromFloatArray: (in category 'instance creation') ----- + fromFloatArray: aFloatArray + ^(self new: aFloatArray) copyFromFloatArray: aFloatArray! Item was added: + ----- Method: Float64Array>>* (in category 'arithmetic') ----- + * anObject + + ^self shallowCopy *= anObject! Item was added: + ----- Method: Float64Array>>*= (in category 'arithmetic') ----- + *= anObject + ^anObject isNumber + ifTrue:[self primMulScalar: anObject asFloat] + ifFalse:[self primMulArray: anObject]! Item was added: + ----- Method: Float64Array>>+ (in category 'arithmetic') ----- + + anObject + + ^self shallowCopy += anObject! Item was added: + ----- Method: Float64Array>>+= (in category 'arithmetic') ----- + += anObject + ^anObject isNumber + ifTrue:[self primAddScalar: anObject asFloat] + ifFalse:[self primAddArray: anObject]! Item was added: + ----- Method: Float64Array>>- (in category 'arithmetic') ----- + - anObject + + ^self shallowCopy -= anObject! Item was added: + ----- Method: Float64Array>>-= (in category 'arithmetic') ----- + -= anObject + ^anObject isNumber + ifTrue:[self primSubScalar: anObject asFloat] + ifFalse:[self primSubArray: anObject]! Item was added: + ----- Method: Float64Array>>/ (in category 'arithmetic') ----- + / anObject + + ^self shallowCopy /= anObject! Item was added: + ----- Method: Float64Array>>/= (in category 'arithmetic') ----- + /= anObject + ^anObject isNumber + ifTrue:[self primDivScalar: anObject asFloat] + ifFalse:[self primDivArray: anObject]! Item was added: + ----- Method: Float64Array>>= (in category 'comparing') ----- + = aFloat64Array + <primitive: 'primitiveEqual' module: 'Float64ArrayPlugin'> + ^super = aFloat64Array! Item was added: + ----- Method: Float64Array>>\\= (in category 'arithmetic') ----- + \\= other + + other isNumber ifTrue: [ + 1 to: self size do: [:i | + self at: i put: (self at: i) \\ other + ]. + ^ self. + ]. + 1 to: (self size min: other size) do: [:i | + self at: i put: (self at: i) \\ (other at: i). + ]. + + ! Item was added: + ----- Method: Float64Array>>adaptToNumber:andSend: (in category 'arithmetic') ----- + adaptToNumber: rcvr andSend: selector + "If I am involved in arithmetic with a Number. If possible, + convert it to a float and perform the (more efficient) primitive operation." + selector == #+ ifTrue:[^self + rcvr]. + selector == #* ifTrue:[^self * rcvr]. + selector == #- ifTrue:[^self negated += rcvr]. + selector == #/ ifTrue:[ + "DO NOT USE TRIVIAL CODE + ^self reciprocal * rcvr + BECAUSE OF GRADUAL UNDERFLOW + self should: (1.0e-39 / (Float64Array with: 1.0e-39)) first < 2." + ^(self class new: self size withAll: rcvr) / self + ]. + ^super adaptToNumber: rcvr andSend: selector! Item was added: + ----- Method: Float64Array>>asFloat64Array (in category 'converting') ----- + asFloat64Array + ^self! Item was added: + ----- Method: Float64Array>>asFloatArray (in category 'converting') ----- + asFloatArray + ^FloatArray fromFloat64Array: self! Item was added: + ----- Method: Float64Array>>at: (in category 'accessing') ----- + at: index + <primitive: 'primitiveAt' module: 'Float64ArrayPlugin'> + | f64 u64 | + u64 := self basicAt: index. + (f64 := Float basicNew) + basicAt: 1 put: (u64 >> 32); + basicAt: 2 put: (u64 bitAnd: 16rFFFFFFFF). + ^f64 * 1.0! Item was added: + ----- Method: Float64Array>>at:put: (in category 'accessing') ----- + at: index put: value + <primitive: 'primitiveAtPut' module: 'Float64ArrayPlugin'> + value isFloat + ifTrue:[self basicAt: index put: (value basicAt: 1) << 32 + (value basicAt: 2)] + ifFalse:[self at: index put: value asFloat]. + ^value! Item was added: + ----- Method: Float64Array>>copyFromFloatArray: (in category 'initialize-release') ----- + copyFromFloatArray: aFloatArray + "Destructively replace the elements of self with those of aFloatArray" + <primitive: 'primitiveFromFloatArray' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: aFloatArray. + 1 to: self size do:[:i| self at: i put: (aFloatArray at: i)].! Item was added: + ----- Method: Float64Array>>defaultElement (in category 'accessing') ----- + defaultElement + "Return the default element of the receiver" + ^0.0! Item was added: + ----- Method: Float64Array>>dot: (in category 'arithmetic') ----- + dot: aFloatVector + "Primitive. Return the dot product of the receiver and the argument. + Fail if the argument is not of the same size as the receiver." + + | result | + <primitive: 'primitiveDotProduct' module: 'Float64ArrayPlugin'> + self size = aFloatVector size ifFalse:[^self error:'Must be equal size']. + result := 0.0. + 1 to: self size do:[:i| + result := result + ((self at: i) * (aFloatVector at: i)). + ]. + ^result! Item was added: + ----- Method: Float64Array>>hash (in category 'comparing') ----- + hash + | result | + <primitive:'primitiveHashArray' module: 'Float64ArrayPlugin'> + result := 0. + 1 to: self size do:[:i| result := result + (self basicAt: i) ]. + ^result bitAnd: 16r1FFFFFFF! Item was added: + ----- Method: Float64Array>>length (in category 'accessing') ----- + length + "Return the length of the receiver" + ^self squaredLength sqrt! Item was added: + ----- Method: Float64Array>>negated (in category 'arithmetic') ----- + negated + + ^self shallowCopy *= -1! Item was added: + ----- Method: Float64Array>>normalize (in category 'arithmetic') ----- + normalize + "Unsafely normalize the receiver in-place (become a unit vector). + Div-by-Zero raised if len 0." + <primitive: 'primitiveNormalize' module: 'Float64ArrayPlugin'> + self /= self length.! Item was added: + ----- Method: Float64Array>>primAddArray: (in category 'primitives-plugin') ----- + primAddArray: floatArray + + <primitive: 'primitiveAddFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: floatArray. + 1 to: self size do:[:i| self at: i put: (self at: i) + (floatArray at: i)].! Item was added: + ----- Method: Float64Array>>primAddScalar: (in category 'primitives-plugin') ----- + primAddScalar: scalarValue + + <primitive: 'primitiveAddScalar' module: 'Float64ArrayPlugin'> + 1 to: self size do:[:i| self at: i put: (self at: i) + scalarValue].! Item was added: + ----- Method: Float64Array>>primDivArray: (in category 'primitives-plugin') ----- + primDivArray: floatArray + + <primitive: 'primitiveDivFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: floatArray. + 1 to: self size do:[:i| self at: i put: (self at: i) / (floatArray at: i)].! Item was added: + ----- Method: Float64Array>>primDivScalar: (in category 'primitives-plugin') ----- + primDivScalar: scalarValue + + <primitive: 'primitiveDivScalar' module: 'Float64ArrayPlugin'> + 1 to: self size do:[:i| self at: i put: (self at: i) / scalarValue].! Item was added: + ----- Method: Float64Array>>primMulArray: (in category 'primitives-plugin') ----- + primMulArray: floatArray + + <primitive: 'primitiveMulFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: floatArray. + 1 to: self size do:[:i| self at: i put: (self at: i) * (floatArray at: i)].! Item was added: + ----- Method: Float64Array>>primMulScalar: (in category 'primitives-plugin') ----- + primMulScalar: scalarValue + + <primitive: 'primitiveMulScalar' module: 'Float64ArrayPlugin'> + 1 to: self size do:[:i| self at: i put: (self at: i) * scalarValue].! Item was added: + ----- Method: Float64Array>>primSubArray: (in category 'primitives-plugin') ----- + primSubArray: floatArray + + <primitive: 'primitiveSubFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: floatArray. + 1 to: self size do:[:i| self at: i put: (self at: i) - (floatArray at: i)].! Item was added: + ----- Method: Float64Array>>primSubScalar: (in category 'primitives-plugin') ----- + primSubScalar: scalarValue + + <primitive: 'primitiveSubScalar' module: 'Float64ArrayPlugin'> + 1 to: self size do:[:i| self at: i put: (self at: i) - scalarValue].! Item was added: + ----- Method: Float64Array>>replaceFrom:to:with:startingAt: (in category 'private') ----- + replaceFrom: start to: stop with: replacement startingAt: repStart + "Primitive. This destructively replaces elements from start to stop in the receiver starting at index, repStart, in the collection, replacement. Answer the receiver. Range checks are performed in the primitive only. Optional. See Object documentation whatIsAPrimitive." + <primitive: 105> + super replaceFrom: start to: stop with: replacement startingAt: repStart! Item was added: + ----- Method: Float64Array>>squaredLength (in category 'accessing') ----- + squaredLength + "Return the squared length of the receiver" + ^self dot: self! Item was added: + ----- Method: Float64Array>>sum (in category 'primitives-plugin') ----- + sum + + <primitive: 'primitiveSum' module: 'Float64ArrayPlugin'> + ^ super sum! Item was added: + ----- Method: FloatArray class>>fromFloat64Array: (in category 'instance creation') ----- + fromFloat64Array: aFloat64Array + ^(self new: aFloat64Array) copyFromFloat64Array: aFloat64Array! Item was added: + ----- Method: FloatArray>>asFloat64Array (in category 'converting') ----- + asFloat64Array + ^Float64Array fromFloatArray: self! Item was added: + ----- Method: FloatArray>>copyFromFloat64Array: (in category 'initialize-release') ----- + copyFromFloat64Array: aFloat64Array + "Destructively replace the elements of self with those of aFloat64Array" + <primitive: 'primitiveFromFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: aFloat64Array. + 1 to: self size do:[:i| self at: i put: (aFloat64Array at: i)].! Item was added: + ----- Method: Matrix>>asFloat64Array (in category 'converting') ----- + asFloat64Array + ^contents asFloat64Array! Item was added: + ----- Method: SequenceableCollection>>asFloatA64rray (in category 'converting') ----- + asFloatA64rray + "Answer a Float64Array whose elements are the elements of the receiver, in + the same order." + + | floatArray | + floatArray := Float64Array new: self size. + 1 to: self size do:[:i| floatArray at: i put: (self at: i) asFloat ]. + ^floatArray!

2 1

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

02 May '20

David T. Lewis uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.338.mcz ==================== Summary ==================== Name: CollectionsTests-nice.338 Author: nice Time: 2 May 2020, 12:46:51.581176 am UUID: 9860b2e2-750f-da40-a73f-4332c3facd4f Ancestors: CollectionsTests-mt.337 Introduce tests for Float64Array =============== Diff against CollectionsTests-mt.337 =============== Item was added: + ClassTestCase subclass: #Float64ArrayTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Arrayed'! + + !Float64ArrayTest commentStamp: 'nice 5/30/2006 01:24' prior: 0! + These tests are used to assert that Float64ArrayPlugin has same results as Float asIEEE32BitWord! Item was added: + ----- Method: Float64ArrayTest>>testArithmeticCoercion (in category 'tests') ----- + testArithmeticCoercion + + self should: [3.5 / (Float64Array with: 2.0) = (Float64Array with: 1.75)]. + self should: [3.5 * (Float64Array with: 2.0) = (Float64Array with: 7.0)]. + self should: [3.5 + (Float64Array with: 2.0) = (Float64Array with: 5.5)]. + self should: [3.5 - (Float64Array with: 2.0) = (Float64Array with: 1.5)].! Item was added: + ----- Method: Float64ArrayTest>>testFloat64ArrayPluginPrimitiveAt (in category 'tests') ----- + testFloat64ArrayPluginPrimitiveAt + "Trivial test" + + #(zero one epsilon fmax fminDenormalized fminNormalized negativeZero negativeInfinity infinity) do: [:e | + | aFloat | + aFloat := Float perform: e. + self assert: ((Float64Array with: aFloat) at: 1) = aFloat]. + + "Cannot compare NaN" + self assert: ((Float64Array with: Float nan) at: 1) isNaN.! Item was added: + ----- Method: Float64ArrayTest>>testThatDivideAvoidsUnecessaryOverflow (in category 'tests') ----- + testThatDivideAvoidsUnecessaryOverflow + | f1 f2 expectedResult | + f1 := Float fminNormalized. + f2 := Float fminDenormalized. + expectedResult := Float64Array with: f1 / f2. + + "If any of these primitives inverse the dividend, then it will overflow" + self assert: expectedResult equals: f1 / (Float64Array with: f2). + self assert: expectedResult equals: (Float64Array with: f1) / f2. + self assert: expectedResult equals: (Float64Array with: f1) / (Float64Array with: f2).! Item was added: + ----- Method: Float64ArrayTest>>testVectorOperations (in category 'tests') ----- + testVectorOperations + + "Test primtive cases 'receiver size = argument size'." + self assert: (Float64Array withAll: {2.0. 2.0}) equals: (Float64Array withAll: {4.0. 6.0}) / (Float64Array withAll: {2.0. 3.0}). + self assert: (Float64Array withAll: {8.0. 9.0}) equals: (Float64Array withAll: {4.0. 4.5}) * (Float64Array withAll: {2.0. 2.0}). + self assert: (Float64Array withAll: {6.0. 9.0}) equals: (Float64Array withAll: {4.0. 6.0}) + (Float64Array withAll: {2.0. 3.0}). + self assert: (Float64Array withAll: {2.0. 3.0}) equals: (Float64Array withAll: {4.0. 6.0}) - (Float64Array withAll: {2.0. 3.0}). + self assert: 26 equals: ((Float64Array withAll: {4.0. 6.0}) dot: (Float64Array withAll: {2.0. 3.0})). + + "Test corner cases where 'receiver size < argument size'." + self should: [(Float64Array withAll: {4.0. 6.0}) / (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0}) * (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0}) + (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0}) - (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0}) dot: (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + + "Test corner cases where 'receiver size > argument size'." + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) / (Float64Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) * (Float64Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) + (Float64Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) - (Float64Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) dot: (Float64Array withAll: {2.0. 3.0})] raise: Error. + + + + ! Item was added: + ----- Method: FloatArrayTest>>testThatDivideAvoidsUnecessaryOverflow (in category 'tests') ----- + testThatDivideAvoidsUnecessaryOverflow + | f1 expectedResult | + f1 := 1.0e-39. + expectedResult := Float64Array with: 1.0. + + "If any of these primitives inverse the dividend into a float, then it will overflow. + It will work though if using intermediate double." + self assert: expectedResult equals: f1 / (Float64Array with: f1). + self assert: expectedResult equals: (Float64Array with: f1) / f1. + self assert: expectedResult equals: (Float64Array with: f1) / (Float64Array with: f1).!

1 0

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

02 May '20

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.890.mcz ==================== Summary ==================== Name: Collections-nice.890 Author: nice Time: 2 May 2020, 12:46:11.423176 am UUID: e7907bbc-eb45-4b41-b70a-f1290a10a4e4 Ancestors: Collections-mt.889 Introduce Float64Array. This will be fast once the Float64ArrayPlugin is delivered. =============== Diff against Collections-mt.889 =============== Item was added: + ArrayedCollection variableDoubleWordSubclass: #Float64Array + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Arrayed'! + + !Float64Array commentStamp: '<historical>' prior: 0! + Float64Arrays store 64bit IEEE floating point numbers.! Item was added: + ----- Method: Float64Array class>>fromFloatArray: (in category 'instance creation') ----- + fromFloatArray: aFloatArray + ^(self new: aFloatArray) copyFromFloatArray: aFloatArray! Item was added: + ----- Method: Float64Array>>* (in category 'arithmetic') ----- + * anObject + + ^self shallowCopy *= anObject! Item was added: + ----- Method: Float64Array>>*= (in category 'arithmetic') ----- + *= anObject + ^anObject isNumber + ifTrue:[self primMulScalar: anObject asFloat] + ifFalse:[self primMulArray: anObject]! Item was added: + ----- Method: Float64Array>>+ (in category 'arithmetic') ----- + + anObject + + ^self shallowCopy += anObject! Item was added: + ----- Method: Float64Array>>+= (in category 'arithmetic') ----- + += anObject + ^anObject isNumber + ifTrue:[self primAddScalar: anObject asFloat] + ifFalse:[self primAddArray: anObject]! Item was added: + ----- Method: Float64Array>>- (in category 'arithmetic') ----- + - anObject + + ^self shallowCopy -= anObject! Item was added: + ----- Method: Float64Array>>-= (in category 'arithmetic') ----- + -= anObject + ^anObject isNumber + ifTrue:[self primSubScalar: anObject asFloat] + ifFalse:[self primSubArray: anObject]! Item was added: + ----- Method: Float64Array>>/ (in category 'arithmetic') ----- + / anObject + + ^self shallowCopy /= anObject! Item was added: + ----- Method: Float64Array>>/= (in category 'arithmetic') ----- + /= anObject + ^anObject isNumber + ifTrue:[self primDivScalar: anObject asFloat] + ifFalse:[self primDivArray: anObject]! Item was added: + ----- Method: Float64Array>>= (in category 'comparing') ----- + = aFloat64Array + <primitive: 'primitiveEqual' module: 'Float64ArrayPlugin'> + ^super = aFloat64Array! Item was added: + ----- Method: Float64Array>>\\= (in category 'arithmetic') ----- + \\= other + + other isNumber ifTrue: [ + 1 to: self size do: [:i | + self at: i put: (self at: i) \\ other + ]. + ^ self. + ]. + 1 to: (self size min: other size) do: [:i | + self at: i put: (self at: i) \\ (other at: i). + ]. + + ! Item was added: + ----- Method: Float64Array>>adaptToNumber:andSend: (in category 'arithmetic') ----- + adaptToNumber: rcvr andSend: selector + "If I am involved in arithmetic with a Number. If possible, + convert it to a float and perform the (more efficient) primitive operation." + selector == #+ ifTrue:[^self + rcvr]. + selector == #* ifTrue:[^self * rcvr]. + selector == #- ifTrue:[^self negated += rcvr]. + selector == #/ ifTrue:[ + "DO NOT USE TRIVIAL CODE + ^self reciprocal * rcvr + BECAUSE OF GRADUAL UNDERFLOW + self should: (1.0e-39 / (Float64Array with: 1.0e-39)) first < 2." + ^(self class new: self size withAll: rcvr) / self + ]. + ^super adaptToNumber: rcvr andSend: selector! Item was added: + ----- Method: Float64Array>>asFloat64Array (in category 'converting') ----- + asFloat64Array + ^self! Item was added: + ----- Method: Float64Array>>asFloatArray (in category 'converting') ----- + asFloatArray + ^FloatArray fromFloat64Array: self! Item was added: + ----- Method: Float64Array>>at: (in category 'accessing') ----- + at: index + <primitive: 'primitiveAt' module: 'Float64ArrayPlugin'> + | f64 u64 | + u64 := self basicAt: index. + (f64 := Float basicNew) + basicAt: 1 put: (u64 >> 32); + basicAt: 2 put: (u64 bitAnd: 16rFFFFFFFF). + ^f64 * 1.0! Item was added: + ----- Method: Float64Array>>at:put: (in category 'accessing') ----- + at: index put: value + <primitive: 'primitiveAtPut' module: 'Float64ArrayPlugin'> + value isFloat + ifTrue:[self basicAt: index put: (value basicAt: 1) << 32 + (value basicAt: 2)] + ifFalse:[self at: index put: value asFloat]. + ^value! Item was added: + ----- Method: Float64Array>>copyFromFloatArray: (in category 'initialize-release') ----- + copyFromFloatArray: aFloatArray + "Destructively replace the elements of self with those of aFloatArray" + <primitive: 'primitiveFromFloatArray' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: aFloatArray. + 1 to: self size do:[:i| self at: i put: (aFloatArray at: i)].! Item was added: + ----- Method: Float64Array>>defaultElement (in category 'accessing') ----- + defaultElement + "Return the default element of the receiver" + ^0.0! Item was added: + ----- Method: Float64Array>>dot: (in category 'arithmetic') ----- + dot: aFloatVector + "Primitive. Return the dot product of the receiver and the argument. + Fail if the argument is not of the same size as the receiver." + + | result | + <primitive: 'primitiveDotProduct' module: 'Float64ArrayPlugin'> + self size = aFloatVector size ifFalse:[^self error:'Must be equal size']. + result := 0.0. + 1 to: self size do:[:i| + result := result + ((self at: i) * (aFloatVector at: i)). + ]. + ^result! Item was added: + ----- Method: Float64Array>>hash (in category 'comparing') ----- + hash + | result | + <primitive:'primitiveHashArray' module: 'Float64ArrayPlugin'> + result := 0. + 1 to: self size do:[:i| result := result + (self basicAt: i) ]. + ^result bitAnd: 16r1FFFFFFF! Item was added: + ----- Method: Float64Array>>length (in category 'accessing') ----- + length + "Return the length of the receiver" + ^self squaredLength sqrt! Item was added: + ----- Method: Float64Array>>negated (in category 'arithmetic') ----- + negated + + ^self shallowCopy *= -1! Item was added: + ----- Method: Float64Array>>normalize (in category 'arithmetic') ----- + normalize + "Unsafely normalize the receiver in-place (become a unit vector). + Div-by-Zero raised if len 0." + <primitive: 'primitiveNormalize' module: 'Float64ArrayPlugin'> + self /= self length.! Item was added: + ----- Method: Float64Array>>primAddArray: (in category 'primitives-plugin') ----- + primAddArray: floatArray + + <primitive: 'primitiveAddFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: floatArray. + 1 to: self size do:[:i| self at: i put: (self at: i) + (floatArray at: i)].! Item was added: + ----- Method: Float64Array>>primAddScalar: (in category 'primitives-plugin') ----- + primAddScalar: scalarValue + + <primitive: 'primitiveAddScalar' module: 'Float64ArrayPlugin'> + 1 to: self size do:[:i| self at: i put: (self at: i) + scalarValue].! Item was added: + ----- Method: Float64Array>>primDivArray: (in category 'primitives-plugin') ----- + primDivArray: floatArray + + <primitive: 'primitiveDivFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: floatArray. + 1 to: self size do:[:i| self at: i put: (self at: i) / (floatArray at: i)].! Item was added: + ----- Method: Float64Array>>primDivScalar: (in category 'primitives-plugin') ----- + primDivScalar: scalarValue + + <primitive: 'primitiveDivScalar' module: 'Float64ArrayPlugin'> + 1 to: self size do:[:i| self at: i put: (self at: i) / scalarValue].! Item was added: + ----- Method: Float64Array>>primMulArray: (in category 'primitives-plugin') ----- + primMulArray: floatArray + + <primitive: 'primitiveMulFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: floatArray. + 1 to: self size do:[:i| self at: i put: (self at: i) * (floatArray at: i)].! Item was added: + ----- Method: Float64Array>>primMulScalar: (in category 'primitives-plugin') ----- + primMulScalar: scalarValue + + <primitive: 'primitiveMulScalar' module: 'Float64ArrayPlugin'> + 1 to: self size do:[:i| self at: i put: (self at: i) * scalarValue].! Item was added: + ----- Method: Float64Array>>primSubArray: (in category 'primitives-plugin') ----- + primSubArray: floatArray + + <primitive: 'primitiveSubFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: floatArray. + 1 to: self size do:[:i| self at: i put: (self at: i) - (floatArray at: i)].! Item was added: + ----- Method: Float64Array>>primSubScalar: (in category 'primitives-plugin') ----- + primSubScalar: scalarValue + + <primitive: 'primitiveSubScalar' module: 'Float64ArrayPlugin'> + 1 to: self size do:[:i| self at: i put: (self at: i) - scalarValue].! Item was added: + ----- Method: Float64Array>>replaceFrom:to:with:startingAt: (in category 'private') ----- + replaceFrom: start to: stop with: replacement startingAt: repStart + "Primitive. This destructively replaces elements from start to stop in the receiver starting at index, repStart, in the collection, replacement. Answer the receiver. Range checks are performed in the primitive only. Optional. See Object documentation whatIsAPrimitive." + <primitive: 105> + super replaceFrom: start to: stop with: replacement startingAt: repStart! Item was added: + ----- Method: Float64Array>>squaredLength (in category 'accessing') ----- + squaredLength + "Return the squared length of the receiver" + ^self dot: self! Item was added: + ----- Method: Float64Array>>sum (in category 'primitives-plugin') ----- + sum + + <primitive: 'primitiveSum' module: 'Float64ArrayPlugin'> + ^ super sum! Item was added: + ----- Method: FloatArray class>>fromFloat64Array: (in category 'instance creation') ----- + fromFloat64Array: aFloat64Array + ^(self new: aFloat64Array) copyFromFloat64Array: aFloat64Array! Item was added: + ----- Method: FloatArray>>asFloat64Array (in category 'converting') ----- + asFloat64Array + ^Float64Array fromFloatArray: self! Item was added: + ----- Method: FloatArray>>copyFromFloat64Array: (in category 'initialize-release') ----- + copyFromFloat64Array: aFloat64Array + "Destructively replace the elements of self with those of aFloat64Array" + <primitive: 'primitiveFromFloat64Array' module: 'Float64ArrayPlugin'> + self isOfSameSizeCheck: aFloat64Array. + 1 to: self size do:[:i| self at: i put: (aFloat64Array at: i)].! Item was added: + ----- Method: Matrix>>asFloat64Array (in category 'converting') ----- + asFloat64Array + ^contents asFloat64Array! Item was added: + ----- Method: SequenceableCollection>>asFloatA64rray (in category 'converting') ----- + asFloatA64rray + "Answer a Float64Array whose elements are the elements of the receiver, in + the same order." + + | floatArray | + floatArray := Float64Array new: self size. + 1 to: self size do:[:i| floatArray at: i put: (self at: i) asFloat ]. + ^floatArray!

1 0

The Inbox: CollectionsTests-nice.338.mcz
by commits＠source.squeak.org 02 May '20

02 May '20

Nicolas Cellier uploaded a new version of CollectionsTests to project The Inbox: http://source.squeak.org/inbox/CollectionsTests-nice.338.mcz ==================== Summary ==================== Name: CollectionsTests-nice.338 Author: nice Time: 2 May 2020, 12:46:51.581176 am UUID: 9860b2e2-750f-da40-a73f-4332c3facd4f Ancestors: CollectionsTests-mt.337 Introduce tests for Float64Array =============== Diff against CollectionsTests-mt.337 =============== Item was added: + ClassTestCase subclass: #Float64ArrayTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Arrayed'! + + !Float64ArrayTest commentStamp: 'nice 5/30/2006 01:24' prior: 0! + These tests are used to assert that Float64ArrayPlugin has same results as Float asIEEE32BitWord! Item was added: + ----- Method: Float64ArrayTest>>testArithmeticCoercion (in category 'tests') ----- + testArithmeticCoercion + + self should: [3.5 / (Float64Array with: 2.0) = (Float64Array with: 1.75)]. + self should: [3.5 * (Float64Array with: 2.0) = (Float64Array with: 7.0)]. + self should: [3.5 + (Float64Array with: 2.0) = (Float64Array with: 5.5)]. + self should: [3.5 - (Float64Array with: 2.0) = (Float64Array with: 1.5)].! Item was added: + ----- Method: Float64ArrayTest>>testFloat64ArrayPluginPrimitiveAt (in category 'tests') ----- + testFloat64ArrayPluginPrimitiveAt + "Trivial test" + + #(zero one epsilon fmax fminDenormalized fminNormalized negativeZero negativeInfinity infinity) do: [:e | + | aFloat | + aFloat := Float perform: e. + self assert: ((Float64Array with: aFloat) at: 1) = aFloat]. + + "Cannot compare NaN" + self assert: ((Float64Array with: Float nan) at: 1) isNaN.! Item was added: + ----- Method: Float64ArrayTest>>testThatDivideAvoidsUnecessaryOverflow (in category 'tests') ----- + testThatDivideAvoidsUnecessaryOverflow + | f1 f2 expectedResult | + f1 := Float fminNormalized. + f2 := Float fminDenormalized. + expectedResult := Float64Array with: f1 / f2. + + "If any of these primitives inverse the dividend, then it will overflow" + self assert: expectedResult equals: f1 / (Float64Array with: f2). + self assert: expectedResult equals: (Float64Array with: f1) / f2. + self assert: expectedResult equals: (Float64Array with: f1) / (Float64Array with: f2).! Item was added: + ----- Method: Float64ArrayTest>>testVectorOperations (in category 'tests') ----- + testVectorOperations + + "Test primtive cases 'receiver size = argument size'." + self assert: (Float64Array withAll: {2.0. 2.0}) equals: (Float64Array withAll: {4.0. 6.0}) / (Float64Array withAll: {2.0. 3.0}). + self assert: (Float64Array withAll: {8.0. 9.0}) equals: (Float64Array withAll: {4.0. 4.5}) * (Float64Array withAll: {2.0. 2.0}). + self assert: (Float64Array withAll: {6.0. 9.0}) equals: (Float64Array withAll: {4.0. 6.0}) + (Float64Array withAll: {2.0. 3.0}). + self assert: (Float64Array withAll: {2.0. 3.0}) equals: (Float64Array withAll: {4.0. 6.0}) - (Float64Array withAll: {2.0. 3.0}). + self assert: 26 equals: ((Float64Array withAll: {4.0. 6.0}) dot: (Float64Array withAll: {2.0. 3.0})). + + "Test corner cases where 'receiver size < argument size'." + self should: [(Float64Array withAll: {4.0. 6.0}) / (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0}) * (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0}) + (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0}) - (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0}) dot: (Float64Array withAll: {2.0. 3.0. 42.0})] raise: Error. + + "Test corner cases where 'receiver size > argument size'." + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) / (Float64Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) * (Float64Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) + (Float64Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) - (Float64Array withAll: {2.0. 3.0})] raise: Error. + self should: [(Float64Array withAll: {4.0. 6.0. 42.0}) dot: (Float64Array withAll: {2.0. 3.0})] raise: Error. + + + + ! Item was added: + ----- Method: FloatArrayTest>>testThatDivideAvoidsUnecessaryOverflow (in category 'tests') ----- + testThatDivideAvoidsUnecessaryOverflow + | f1 expectedResult | + f1 := 1.0e-39. + expectedResult := Float64Array with: 1.0. + + "If any of these primitives inverse the dividend into a float, then it will overflow. + It will work though if using intermediate double." + self assert: expectedResult equals: f1 / (Float64Array with: f1). + self assert: expectedResult equals: (Float64Array with: f1) / f1. + self assert: expectedResult equals: (Float64Array with: f1) / (Float64Array with: f1).!

1 0

The Inbox: Chronology-Core-cmm.53.mcz
by commits＠source.squeak.org 02 May '20

02 May '20

Chris Muller uploaded a new version of Chronology-Core to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-cmm.53.mcz ==================== Summary ==================== Name: Chronology-Core-cmm.53 Author: cmm Time: 29 April 2020, 6:51:53.53317 pm UUID: b930b208-c85e-4c6b-8254-2837493384bd Ancestors: Chronology-Core-nice.52 - Extend the API to allow an integral representation of DateAndTime's, by introducing DateAndTime class>>#fromMicroseconds: DateAndTime>>#asMicroseconds which go along with the existing API: DateAndTime class>>#fromSeconds: DateAndTime>>#asSeconds - Every Squeak with the substring "utcMicrosecond" in the selector name refers to the number of microseconds since the POSIX epoch (1/1/1971@00:00:00.000), __except for one__: Time utcMicroseconds. Therefore, to avoid astonishment when using it with the "utc" API of DateAndTime, rename it without the "utc" prefix. =============== Diff against Chronology-Core-nice.52 =============== Item was added: + ----- Method: DateAndTime class>>fromMicroseconds: (in category 'smalltalk-80') ----- + fromMicroseconds: anInteger + "Answer a DateAndTime anInteger microseconds since the Squeak epoch: 1 January 1901." + ^ self + utcMicroseconds: anInteger - (self epochOffset * 1000000) + offset: self localOffsetSeconds! Item was added: + ----- Method: DateAndTime>>asMicroseconds (in category 'smalltalk-80') ----- + asMicroseconds + "Return the number of microseconds since the Squeak epoch, 1/1/1901 @ 00:00:00." + ^ utcMicroseconds + self class epochOffsetMicros! Item was changed: ----- Method: Time class>>estimateHighResClockTicksPerMillisecond (in category 'clock') ----- estimateHighResClockTicksPerMillisecond | t0 t1 t2 t3 | "Count the ticks ellapsed during a 10ms busy loop" + t0 := Time microsecondClock + 200. + [Time microsecondClock >= t0] whileFalse. - t0 := Time utcMicrosecondClock + 200. - [Time utcMicrosecondClock >= t0] whileFalse. t1 := self highResClock. + [Time microsecondClock >= (t0 + 10000)] whileFalse. + t1 := self highResClock - t1 * 1000 // (Time microsecondClock - t0). - [Time utcMicrosecondClock >= (t0 + 10000)] whileFalse. - t1 := self highResClock - t1 * 1000 // (Time utcMicrosecondClock - t0). "Count the ticks ellapsed during a 20ms busy loop" + t0 := Time microsecondClock + 200. + [Time microsecondClock >= t0] whileFalse. - t0 := Time utcMicrosecondClock + 200. - [Time utcMicrosecondClock >= t0] whileFalse. t2 := self highResClock. + [Time microsecondClock >= (t0 + 20000)] whileFalse. + t2 := self highResClock - t2 * 1000 // (Time microsecondClock - t0). - [Time utcMicrosecondClock >= (t0 + 20000)] whileFalse. - t2 := self highResClock - t2 * 1000 // (Time utcMicrosecondClock - t0). "Count the ticks ellapsed during a 30ms busy loop" + t0 := Time microsecondClock + 200. + [Time microsecondClock >= t0] whileFalse. - t0 := Time utcMicrosecondClock + 200. - [Time utcMicrosecondClock >= t0] whileFalse. t3 := self highResClock. + [Time microsecondClock >= (t0 + 30000)] whileFalse. + t3 := self highResClock - t3 * 1000 // (Time microsecondClock - t0). - [Time utcMicrosecondClock >= (t0 + 30000)] whileFalse. - t3 := self highResClock - t3 * 1000 // (Time utcMicrosecondClock - t0). "Take the median of the 3 estimates as the best" ^ t1 <= t2 ifTrue: [t2 <= t3 ifTrue: [t2] ifFalse: [t1 <= t3 ifTrue: [t3] ifFalse: [t1]]] ifFalse: [t1 <= t3 ifTrue: [t1] ifFalse: [t2 <= t3 ifTrue: [t3] ifFalse: [t2]]]! Item was changed: ----- Method: Time class>>localMicrosecondClock (in category 'clock') ----- localMicrosecondClock "Answer the local microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). The value is derived from the current UTC wallclock time and the image's current notion of time zone." + ^self microsecondClock + (DateAndTime localOffset asSeconds * 1000000)! - ^self utcMicrosecondClock + (DateAndTime localOffset asSeconds * 1000000)! Item was added: + ----- Method: Time class>>microsecondClock (in category 'clock') ----- + microsecondClock + "Answer the UTC microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). + The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds + between the two epochs according to RFC 868." + <primitive: 240> + ^0! Item was changed: ----- Method: Time class>>microsecondsToRun: (in category 'general inquiries') ----- microsecondsToRun: timedBlock "Answer the number of microseconds timedBlock takes to return its value." | startUsecs | (self useHighResClockForTiming and: [self highResClock ~= 0]) ifTrue: [ ^(self nanosecondsToRunHighRes: timedBlock) + 500 // 1000]. + startUsecs := self microsecondClock. - startUsecs := self utcMicrosecondClock. timedBlock value. + ^self microsecondClock - startUsecs! - ^self utcMicrosecondClock - startUsecs! Item was changed: ----- Method: Time class>>millisecondClockValue (in category 'general inquiries') ----- millisecondClockValue "Answer the value of the millisecond clock." + ^self microsecondClock // 1000! - ^self utcMicrosecondClock // 1000! Item was changed: ----- Method: Time class>>nanosecondsToRun: (in category 'general inquiries') ----- nanosecondsToRun: timedBlock "Answer the number of nanoseconds timedBlock takes to return its value. Use high resolution clock if available and preferred." | startUsecs | (self useHighResClockForTiming and: [self highResClock ~= 0]) ifTrue: [ ^(self nanosecondsToRunHighRes: timedBlock)]. "Fallback to microseconds clock" + startUsecs := self microsecondClock. - startUsecs := self utcMicrosecondClock. timedBlock value. + ^self microsecondClock - startUsecs * 1000! - ^self utcMicrosecondClock - startUsecs * 1000! Item was added: + ----- Method: Time class>>totalMicroSeconds (in category 'smalltalk-80') ----- + totalMicroSeconds + "Answer the total seconds since the Squeak epoch: 1 January 1901, in local time." + + ^self localMicrosecondClock // 1000000! Item was changed: ----- Method: Time class>>utcMicrosecondClock (in category 'clock') ----- utcMicrosecondClock "Answer the UTC microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868." <primitive: 240> + self deprecated: 'Use #microsecondClock'. ^0!

4 6

The Inbox: Chronology-Core-cmm.54.mcz
by commits＠source.squeak.org 01 May '20

01 May '20

Chris Muller uploaded a new version of Chronology-Core to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-cmm.54.mcz ==================== Summary ==================== Name: Chronology-Core-cmm.54 Author: cmm Time: 30 April 2020, 10:35:37.087886 pm UUID: aea28e1f-8f45-4621-938d-61349776e465 Ancestors: Chronology-Core-nice.52 - Let #primUtcMicrosecondClock provide access to primitive 240. - Let #utcMicrosecondClock be based on the Smalltalk epoch, 1/1/1901 @ 00:00:00. - Three legacy senders were left alone pending discussion whether they can use the new #utcMicrosecondClock. - Provide DateAndTime class>>#fromUtcMicrosecondClock:, as a supplement to Time class>>#utcMicrosecondClock. =============== Diff against Chronology-Core-nice.52 =============== Item was added: + ----- Method: DateAndTime class>>fromUtcMicrosecondClock: (in category 'smalltalk-80') ----- + fromUtcMicrosecondClock: anInteger + "Answer a DateAndTime the specified microseconds after the Squeak epoch: 1/1/1901 @ 00:00:00." + ^ self + utcMicroseconds: anInteger + offset: self localOffsetSeconds! Item was changed: ----- Method: Time class>>estimateHighResClockTicksPerMillisecond (in category 'clock') ----- estimateHighResClockTicksPerMillisecond | t0 t1 t2 t3 | "Count the ticks ellapsed during a 10ms busy loop" + t0 := Time primUtcMicrosecondClock + 200. + [Time primUtcMicrosecondClock >= t0] whileFalse. - t0 := Time utcMicrosecondClock + 200. - [Time utcMicrosecondClock >= t0] whileFalse. t1 := self highResClock. + [Time primUtcMicrosecondClock >= (t0 + 10000)] whileFalse. + t1 := self highResClock - t1 * 1000 // (Time primUtcMicrosecondClock - t0). - [Time utcMicrosecondClock >= (t0 + 10000)] whileFalse. - t1 := self highResClock - t1 * 1000 // (Time utcMicrosecondClock - t0). "Count the ticks ellapsed during a 20ms busy loop" + t0 := Time primUtcMicrosecondClock + 200. + [Time primUtcMicrosecondClock >= t0] whileFalse. - t0 := Time utcMicrosecondClock + 200. - [Time utcMicrosecondClock >= t0] whileFalse. t2 := self highResClock. + [Time primUtcMicrosecondClock >= (t0 + 20000)] whileFalse. + t2 := self highResClock - t2 * 1000 // (Time primUtcMicrosecondClock - t0). - [Time utcMicrosecondClock >= (t0 + 20000)] whileFalse. - t2 := self highResClock - t2 * 1000 // (Time utcMicrosecondClock - t0). "Count the ticks ellapsed during a 30ms busy loop" + t0 := Time primUtcMicrosecondClock + 200. + [Time primUtcMicrosecondClock >= t0] whileFalse. - t0 := Time utcMicrosecondClock + 200. - [Time utcMicrosecondClock >= t0] whileFalse. t3 := self highResClock. + [Time primUtcMicrosecondClock >= (t0 + 30000)] whileFalse. + t3 := self highResClock - t3 * 1000 // (Time primUtcMicrosecondClock - t0). - [Time utcMicrosecondClock >= (t0 + 30000)] whileFalse. - t3 := self highResClock - t3 * 1000 // (Time utcMicrosecondClock - t0). "Take the median of the 3 estimates as the best" ^ t1 <= t2 ifTrue: [t2 <= t3 ifTrue: [t2] ifFalse: [t1 <= t3 ifTrue: [t3] ifFalse: [t1]]] ifFalse: [t1 <= t3 ifTrue: [t1] ifFalse: [t2 <= t3 ifTrue: [t3] ifFalse: [t2]]]! Item was changed: ----- Method: Time class>>localMicrosecondClock (in category 'clock') ----- localMicrosecondClock "Answer the local microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). The value is derived from the current UTC wallclock time and the image's current notion of time zone." + ^self primUtcMicrosecondClock + (DateAndTime localOffset asSeconds * 1000000)! - ^self utcMicrosecondClock + (DateAndTime localOffset asSeconds * 1000000)! Item was changed: ----- Method: Time class>>millisecondClockValue (in category 'general inquiries') ----- millisecondClockValue "Answer the value of the millisecond clock." + ^self primUtcMicrosecondClock // 1000! - ^self utcMicrosecondClock // 1000! Item was added: + ----- Method: Time class>>primUtcMicrosecondClock (in category 'private') ----- + primUtcMicrosecondClock + "Answer the UTC microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). + The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds + between the two epochs according to RFC 868." + <primitive: 240> + ^0! Item was changed: ----- Method: Time class>>utcMicrosecondClock (in category 'clock') ----- utcMicrosecondClock "Answer the UTC microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century). The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868." + ^ self primUtcMicrosecondClock - (DateAndTime daysFromSmalltalkEpochToPosixEpoch*MicrosecondsInDay)! - <primitive: 240> - ^0!

4 3

Jump to page: