Squeak-dev May 2020

squeak-dev@lists.squeakfoundation.org

43 participants
265 discussions

The Inbox: Morphic-ct.1654.mcz
by commits＠source.squeak.org 05 May '20

05 May '20

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1654.mcz ==================== Summary ==================== Name: Morphic-ct.1654 Author: ct Time: 5 May 2020, 3:35:36.70299 pm UUID: 67189801-a367-e54a-bd89-333709e7e612 Ancestors: Morphic-mt.1653 Deprecates #lockUnlockMorph in favor of #toggleLocked =============== Diff against Morphic-mt.1653 =============== Item was changed: ----- Method: Morph>>addToggleItemsToHaloMenu: (in category 'menus') ----- addToggleItemsToHaloMenu: aMenu "Add standard true/false-checkbox items to the memu" #( (resistsRemovalString toggleResistsRemoval 'whether I should be reistant to easy deletion via the pink X handle' true) (stickinessString toggleStickiness 'whether I should be resistant to a drag done by mousing down on me' true) + (lockedString toggleLocked 'when "locked", I am inert to all user interactions' true) - (lockedString lockUnlockMorph 'when "locked", I am inert to all user interactions' true) (hasClipSubmorphsString changeClipSubmorphs 'whether the parts of objects within me that are outside my bounds should be masked.' false) (hasDirectionHandlesString changeDirectionHandles 'whether direction handles are shown with the halo' false) (hasDragEnabledString changeDrag 'whether I am open to having objects dragged out of me' false) (hasDropEnabledString changeDrop 'whether I am open to having objects dropped into me' false) ) select:[:each | Preferences noviceMode not or:[each fourth]] thenDo: [:each | aMenu addUpdating: each first action: each second. aMenu balloonTextForLastItem: each third translated]. self couldHaveRoundedCorners ifTrue: [aMenu addUpdating: #roundedCornersString action: #toggleCornerRounding. aMenu balloonTextForLastItem: 'whether my corners should be rounded' translated]! Item was changed: ----- Method: Morph>>lockUnlockMorph (in category 'menus') ----- lockUnlockMorph - "If the receiver is locked, unlock it; if unlocked, lock it" + self deprecated: 'ct: Use #toggleLocked'. + ^ self toggleLocked! - self isLocked ifTrue: [self unlock] ifFalse: [self lock]!

1 0

RoelTyper is using a PharoTypeCollector
by Nicolas Cellier 05 May '20

05 May '20

Hi all, I have installed OCompletion from the preference wizard and noticed two things: - TypeCollector>>#newForPlatform is using PharoTypeCollector instead of SqueakTypeCollector Is this wanted/expected? - TypingResultKeeper benchmarkImage fails to analyze SoundCodec>>#compressAndDecompress: I presume that it qualifies as a bug... >From UI, one annoying effect is that RoelTyper sometimes badly interfer with ALT+j and also intercept the SHIFT+Tab preventing me from de-indenting lines.

6 7

Re: [squeak-dev] [Pharo-users] mentor question 4
by Trygve Reenskaug 05 May '20

05 May '20

Richard, Thank you for looking at the code. It is comforting to learn that the code has been executed for a large number of examples without breaking. The code is not primarily written for execution but for being read and checked by the human end user. It would be nice if we could also check that it gave the right answers, but I don't know how to do that. */The first question is: Can a human domain expert read the code and sign their name for its correctness?/* When this is achieved, a programming expert will transcribe the first code to a professional quality program. This time, the second code should be reviewed by an independent programmer who signs their name for its correct transcription from the first version. --Trygve PS: In his 1991 Turing Award Lecture, Tony Hoare said: /"There are two ways of constructing a software design: One way is to make it so simple that there are obviously no deficiencies and the other is to make it so complicated that there are no obvious deficiencies. The first method is far more difficult."/ --Trygve On tirsdag.05.05.2020 04:41, Richard O'Keefe wrote: > As a coding experiment, I adapted Trygve Reenskoug's code to my > Smalltalk compiler, put in my code slightly tweaked, and benchmarked > them on randomly generated data. > > Result: a factor of 6.3. > > In Squeak it was a factor of ten. > > I had not, in all honesty, expected it to to be so high. > > On Tue, 5 May 2020 at 02:00, Trygve Reenskaug <trygver(a)ifi.uio.no> wrote: >> A coding experiment. >> Consider a Scrum development environment. Every programming team has an end user as a member. >> The team's task is to code a credit card validity check. >> A first goal is that the user representative shall read the code and agree that it is a correct rendering of their code checker: >> >> luhnTest: trialNumber >> | s1 odd s2 even charValue reverse | >> ----------------------------------------------- >> " Luhn test according to Rosetta" >> "Reverse the order of the digits in the number." >> reverse := trialNumber reversed. >> "Take the first, third, ... and every other odd digit in the reversed digits and sum them to form the partial sum s1" >> s1 := 0. >> odd := true. >> reverse do: >> [:char | >> odd >> ifTrue: [ >> s1 := s1 + char digitValue. >> ]. >> odd := odd not >> ]. >> "Taking the second, fourth ... and every other even digit in the reversed digits: >> Multiply each digit by two and sum the digits if the answer is greater than nine to form partial sums for the even digits" >> "The subtracting 9 gives the same answer. " >> "Sum the partial sums of the even digits to form s2" >> s2 := 0. >> even := false. >> reverse do: >> [:char | >> even >> ifTrue: [ >> charValue := char digitValue * 2. >> charValue > 9 ifTrue: [charValue := charValue - 9]. >> s2 := s2 + charValue >> ]. >> even := even not >> ]. >> "If s1 + s2 ends in zero then the original number is in the form of a valid credit card number as verified by the Luhn test." >> ^(s1 + s2) asString last = $0 >> --------------------------------- >> Once this step is completed, the next step will be to make the code right without altering the algorithm (refactoring). The result should be readable and follow the team's conventions. >> >> >> P.S. code attached. -- /The essence of object orientation is that objects collaborateto achieve a goal. / Trygve Reenskaug mailto: trygver(a)ifi.uio.no <mailto:%20trygver@ifi.uio.no> Morgedalsvn. 5A http://folk.uio.no/trygver/ N-0378 Oslo http://fullOO.info Norway Tel: (+47) 468 58 625

1 0

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

05 May '20

Chris Muller uploaded a new version of Chronology-Core to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-cmm.56.mcz ==================== Summary ==================== Name: Chronology-Core-cmm.56 Author: cmm Time: 4 May 2020, 6:42:27.516151 pm UUID: 3c97bedc-c192-4872-b0f2-e93199f506ce Ancestors: Chronology-Core-ul.54 Building on Chronology-Core-ul.54: - Let #microsecondClockValue complement #millisecondClockValue, to offer higher precision. - New constructor, DateAndTime class>>#utcMicroseconds:, complements the above. - Make Time class>>#utcMicrosecondClock private to help avoid accidental improper use with the above. =============== Diff against Chronology-Core-ul.54 =============== Item was added: + ----- Method: DateAndTime class>>microsecondClockValue (in category 'smalltalk-80') ----- + microsecondClockValue + ^ self clock microsecondClockValue! Item was added: + ----- Method: DateAndTime class>>utcMicroseconds: (in category 'instance creation') ----- + utcMicroseconds: microsecondClockValue + "Instantiate a DateAndTime in UTC from the value of my #microsecondClockValue." + ^ super new + utcMicroseconds: microsecondClockValue + offset: 0! 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 microsecondClockValue + 200. + [Time microsecondClockValue >= t0] whileFalse. - t0 := Time utcMicrosecondClock + 200. - [Time utcMicrosecondClock >= t0] whileFalse. t1 := self highResClock. + [Time microsecondClockValue >= (t0 + 10000)] whileFalse. + t1 := self highResClock - t1 * 1000 // (Time microsecondClockValue - 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 microsecondClockValue + 200. + [Time microsecondClockValue >= t0] whileFalse. - t0 := Time utcMicrosecondClock + 200. - [Time utcMicrosecondClock >= t0] whileFalse. t2 := self highResClock. + [Time microsecondClockValue >= (t0 + 20000)] whileFalse. + t2 := self highResClock - t2 * 1000 // (Time microsecondClockValue - 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 microsecondClockValue + 200. + [Time microsecondClockValue >= t0] whileFalse. - t0 := Time utcMicrosecondClock + 200. - [Time utcMicrosecondClock >= t0] whileFalse. t3 := self highResClock. + [Time microsecondClockValue >= (t0 + 30000)] whileFalse. + t3 := self highResClock - t3 * 1000 // (Time microsecondClockValue - 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 added: + ----- Method: Time class>>microsecondClockValue (in category 'general inquiries') ----- + microsecondClockValue + "Answer the value of the microsecond clock, the number of microseconds elapsed since 1/1/1901 @ 00:00:00." + ^ self utcMicrosecondClock - MicrosecondsBetweenPosixEpochAndSqueakEpoch! 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 microsecondClockValue. - startUsecs := self utcMicrosecondClock. timedBlock value. + ^self microsecondClockValue - startUsecs! - ^self utcMicrosecondClock - startUsecs! Item was changed: ----- Method: Time class>>millisecondClockValue (in category 'general inquiries') ----- millisecondClockValue "Answer the value of the millisecond clock." + ^self microsecondClockValue // 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 microsecondClockValue. - startUsecs := self utcMicrosecondClock. timedBlock value. + ^self microsecondClockValue - startUsecs * 1000! - ^self utcMicrosecondClock - startUsecs * 1000! Item was removed: - ----- Method: Time class>>posixUtcMicrosecondClock (in category 'clock') ----- - posixUtcMicrosecondClock - "Answer the UTC microseconds since the POSIX epoch (January 1st 1970 00:00:00 UTC)." - - ^self utcMicrosecondClock - MicrosecondsBetweenPosixEpochAndSqueakEpoch! Item was changed: + ----- Method: Time class>>utcMicrosecondClock (in category 'private') ----- - ----- 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> ^0!

4 4

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

04 May '20

Nicolas Cellier uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-nice.891.mcz ==================== Summary ==================== Name: Collections-nice.891 Author: nice Time: 2 May 2020, 7:40:45.298967 pm UUID: 08510be0-8293-6744-959d-c1d41bc13ae1 Ancestors: Collections-nice.890 Experimental - For discussion Group some (most) non-pointers collections under an abstract FixedBitWifthArray. I know, the name is hard to pronounce and thus ugly: it's opened to discussion. This enables factorization of some methods, for example the trick for atAllPut: Also notice that most methods are shared between FloatArray and Float64Array. Introduce SignedByteArray and Long64Array. These are the only two missing in the panoply. The heterogeneity of names generally sucks, but we won't change the ByteArray nor WordArray, so probably neither the DoubleByte and DoubleWord Arrays, it follows a legacy-compatible logic. But for the 32 and 16 bits signed versions, we already have IntegerArray and ShortIntegerArray... What a mess. We could use better names in the abstract levels too: For example SignedIntegerArray instead of FixedBitWidthSignedIntegerArray. Also we could let FloatArray be the abstract class rather than FixedBitWidthFloatArray. It would be a factory for Float32Array so as to preserve backward compatiblity. Note that Balloon ShortIntegerArray is currently word rather than doubleByte and should be mutated and moved into this collection. However, it's not easy to mutate because it has both a subclass and instances. We can handle that surgery later. We can neither easily move ByteArray thru the hierarchy: it is protected because of the fear to break CompiledMethod. Another surgical operation, outside of this proof of concept. One thing I don't know is the cost of extending intermediate hierachical levels with respect to lookup of message selector. Is it a problem? While at it, document the internal format of ColorArray. I hope it's consistent across VMs/platforms/endianness... If it's not, the comment SHALL tell so, that's the least I expect of serious software. I don't know why squeakers are so spare of comments... Since those classes are good candidates for exchanging data with foreign functions, it's vital to have a minimum of documentation. =============== Diff against Collections-nice.890 =============== Item was changed: + FixedBitWidthArray variableWordSubclass: #ColorArray - ArrayedCollection variableWordSubclass: #ColorArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Arrayed'! + + !ColorArray commentStamp: 'nice 5/2/2020 17:11' prior: 0! + A ColorArray is an array of colors encoded on 32-bits. + + The encoding of colors follows the ARGB scheme. + See https://en.wikipedia.org/wiki/RGBA_color_model + + The color is decomposed into 4 channels of 8 bits (4 bytes) + - the most significant byte A is alpha channel which governs transparency + 0 means a completely transparent (invisible) color + 255 means an opaque color. + - the second most significant byte R encodes the level of red + the lower, the darker and/or least saturated + - the third most significant byte G encodes the level of green + - the least significant byte B encodes the level of blue + + Color white is encoded as 16rFFFFFFFF. + ((ColorArray with: Color white) basicAt: 1) hex. + For historical reasons, notice that Color black is encoded as a very dark blue 16rFF000001 rather than 16rFF000000. + ((ColorArray with: Color black) basicAt: 1) hex. + Other example of pure red, pure green and pure blue showing the bit position of those channels: + ((ColorArray with: Color red) basicAt: 1) hex. + ((ColorArray with: Color green) basicAt: 1) hex. + ((ColorArray with: Color blue) basicAt: 1) hex. + Color transparent is encoded as zero on all channels: + ((ColorArray with: Color transparent) basicAt: 1) hex.! Item was changed: + FixedBitWidthUnsignedIntegerArray variableDoubleByteSubclass: #DoubleByteArray - ArrayedCollection variableDoubleByteSubclass: #DoubleByteArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Arrayed'! !DoubleByteArray commentStamp: 'nice 10/20/2016 23:23' prior: 0! DoubleByteArrays store 16-bit unsigned Integer values.! Item was removed: - ----- Method: DoubleByteArray>>defaultElement (in category 'accessing') ----- - defaultElement - "Return the default element of the receiver" - ^0! Item was removed: - ----- Method: DoubleByteArray>>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 changed: + FixedBitWidthUnsignedIntegerArray variableDoubleWordSubclass: #DoubleWordArray - ArrayedCollection variableDoubleWordSubclass: #DoubleWordArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Arrayed'! !DoubleWordArray commentStamp: 'nice 9/20/2016 23:37' prior: 0! DoubleWordArrays store 64-bit unsigned Integer values.! Item was removed: - ----- Method: DoubleWordArray>>defaultElement (in category 'accessing') ----- - defaultElement - "Return the default element of the receiver" - ^0! Item was removed: - ----- Method: DoubleWordArray>>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: + ArrayedCollection subclass: #FixedBitWidthArray + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Arrayed'! + + !FixedBitWidthArray commentStamp: 'nice 5/2/2020 18:58' prior: 0! + A FixedBitWidthArray is an abstract superclass for all arrays whose elements are not stored as pointer but as raw bits of fixed-width. + Currently, SpurVM supports arrays of elements with a bit-width of 8, 16, 32, or 64 bits. + When accessing a specific element with #basicAt: or #basicAt:put:, the bits are exchanged under the form of an unsigned Integer. + The range of such integer must be between 0 and 2**bitWidth-1 (which translates as 1<<bitWidth-1). + + The subclasses are free to re-interpret those bits as more specialized Objects and shall provide convenient #at: and #at:put: protocol for exchanging those objects rather than raw bit-encoding. + For example, there is support for Signed Integers of different width, IEEE 754 32bits and 64bits Float, 32 bits Colors, etc... + + It is the subclass responsibility to encode those objects as raw bits (an Integer), and decode the raw bits (an Integer) as an object. + Note however that SpurVM supports conversion to/from signed integer. + + The name of subclasses is historical and constrained by backward compatibility.! Item was added: + ----- Method: FixedBitWidthArray>>atAllPut: (in category 'accessing') ----- + atAllPut: anObject + self isEmpty ifTrue: [^self]. + "Note: primitiveConstantFill does only handle unsigned integer. + Let at:put: take care of properly encoding anObject as bits" + self at: 1 put: anObject. + self primFill: (self basicAt: 1)! Item was added: + ----- Method: FixedBitWidthArray>>primFill: (in category 'private') ----- + primFill: aPositiveInteger + "Fill the receiver, an indexable bytes or words object, with the given positive integer. + The range of possible fill values is : + - [0..255] for byte arrays; + - [0..65535] for double byte arrays; + - [0..(2^32 - 1)] for word arrays; + - [0..(2^64 - 1)] for double word arrays." + + <primitive: 145> + self errorImproperStore.! Item was added: + FixedBitWidthArray subclass: #FixedBitWidthFloatArray + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Arrayed'! Item was added: + ----- Method: FixedBitWidthFloatArray>>* (in category 'arithmetic') ----- + * anObject + + ^self shallowCopy *= anObject! Item was added: + ----- Method: FixedBitWidthFloatArray>>*= (in category 'arithmetic') ----- + *= anObject + ^anObject isNumber + ifTrue:[self primMulScalar: anObject asFloat] + ifFalse:[self primMulArray: anObject]! Item was added: + ----- Method: FixedBitWidthFloatArray>>+ (in category 'arithmetic') ----- + + anObject + + ^self shallowCopy += anObject! Item was added: + ----- Method: FixedBitWidthFloatArray>>+= (in category 'arithmetic') ----- + += anObject + ^anObject isNumber + ifTrue:[self primAddScalar: anObject asFloat] + ifFalse:[self primAddArray: anObject]! Item was added: + ----- Method: FixedBitWidthFloatArray>>- (in category 'arithmetic') ----- + - anObject + + ^self shallowCopy -= anObject! Item was added: + ----- Method: FixedBitWidthFloatArray>>-= (in category 'arithmetic') ----- + -= anObject + ^anObject isNumber + ifTrue:[self primSubScalar: anObject asFloat] + ifFalse:[self primSubArray: anObject]! Item was added: + ----- Method: FixedBitWidthFloatArray>>/ (in category 'arithmetic') ----- + / anObject + + ^self shallowCopy /= anObject! Item was added: + ----- Method: FixedBitWidthFloatArray>>/= (in category 'arithmetic') ----- + /= anObject + ^anObject isNumber + ifTrue:[self primDivScalar: anObject asFloat] + ifFalse:[self primDivArray: anObject]! Item was added: + ----- Method: FixedBitWidthFloatArray>>\\= (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: FixedBitWidthFloatArray>>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 / (FloatArray with: 1.0e-39)) first < 2." + ^(self class new: self size withAll: rcvr) / self + ]. + ^super adaptToNumber: rcvr andSend: selector! Item was added: + ----- Method: FixedBitWidthFloatArray>>defaultElement (in category 'accessing') ----- + defaultElement + "Return the default element of the receiver" + ^0.0! Item was added: + ----- Method: FixedBitWidthFloatArray>>length (in category 'accessing') ----- + length + "Return the length of the receiver" + ^self squaredLength sqrt! Item was added: + ----- Method: FixedBitWidthFloatArray>>negated (in category 'arithmetic') ----- + negated + + ^self shallowCopy *= -1! Item was added: + ----- Method: FixedBitWidthFloatArray>>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: FixedBitWidthFloatArray>>squaredLength (in category 'accessing') ----- + squaredLength + "Return the squared length of the receiver" + ^self dot: self! Item was added: + FixedBitWidthArray subclass: #FixedBitWidthSignedIntegerArray + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Arrayed'! + + !FixedBitWidthSignedIntegerArray commentStamp: 'nice 5/2/2020 16:30' prior: 0! + A FixedBitWidthSignedIntegerArray is an abstract class for all arrays of signed integer of fixed bit-width. + + ! Item was added: + ----- Method: FixedBitWidthSignedIntegerArray>>defaultElement (in category 'accessing') ----- + defaultElement + "Return the default element of the receiver" + ^0! Item was added: + FixedBitWidthArray subclass: #FixedBitWidthUnsignedIntegerArray + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Arrayed'! + + !FixedBitWidthUnsignedIntegerArray commentStamp: 'nice 5/2/2020 16:47' prior: 0! + A FixedBitWidthUnsignedIntegerArray is an abstract class for all arrays of unsigned integer of fixed bit-width. + + ! Item was added: + ----- Method: FixedBitWidthUnsignedIntegerArray>>atAllPut: (in category 'accessing') ----- + atAllPut: value + "Fill the receiver with the given value" + + <primitive: 145> + super atAllPut: value! Item was added: + ----- Method: FixedBitWidthUnsignedIntegerArray>>defaultElement (in category 'accessing') ----- + defaultElement + "Return the default element of the receiver" + ^0! Item was added: + ----- Method: FixedBitWidthUnsignedIntegerArray>>replaceFrom:to:with:startingAt: (in category 'private') ----- + replaceFrom: start to: stop with: replacement startingAt: repStart + <primitive: 105> + ^super replaceFrom: start to: stop with: replacement startingAt: repStart ! Item was changed: + FixedBitWidthFloatArray variableDoubleWordSubclass: #Float64Array - ArrayedCollection variableDoubleWordSubclass: #Float64Array instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Arrayed'! !Float64Array commentStamp: '<historical>' prior: 0! Float64Arrays store 64bit IEEE floating point numbers.! Item was removed: - ----- Method: Float64Array>>* (in category 'arithmetic') ----- - * anObject - - ^self shallowCopy *= anObject! Item was removed: - ----- Method: Float64Array>>*= (in category 'arithmetic') ----- - *= anObject - ^anObject isNumber - ifTrue:[self primMulScalar: anObject asFloat] - ifFalse:[self primMulArray: anObject]! Item was removed: - ----- Method: Float64Array>>+ (in category 'arithmetic') ----- - + anObject - - ^self shallowCopy += anObject! Item was removed: - ----- Method: Float64Array>>+= (in category 'arithmetic') ----- - += anObject - ^anObject isNumber - ifTrue:[self primAddScalar: anObject asFloat] - ifFalse:[self primAddArray: anObject]! Item was removed: - ----- Method: Float64Array>>- (in category 'arithmetic') ----- - - anObject - - ^self shallowCopy -= anObject! Item was removed: - ----- Method: Float64Array>>-= (in category 'arithmetic') ----- - -= anObject - ^anObject isNumber - ifTrue:[self primSubScalar: anObject asFloat] - ifFalse:[self primSubArray: anObject]! Item was removed: - ----- Method: Float64Array>>/ (in category 'arithmetic') ----- - / anObject - - ^self shallowCopy /= anObject! Item was removed: - ----- Method: Float64Array>>/= (in category 'arithmetic') ----- - /= anObject - ^anObject isNumber - ifTrue:[self primDivScalar: anObject asFloat] - ifFalse:[self primDivArray: anObject]! Item was removed: - ----- 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 removed: - ----- 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>>byteSize (in category 'accessing') ----- + byteSize + ^self size * 8! Item was added: + ----- Method: Float64Array>>bytesPerElement (in category 'accessing') ----- + bytesPerElement + "Number of bytes in each item. This multiplied by (self size)*8 gives the number of bits stored." + ^ 8! Item was removed: - ----- Method: Float64Array>>defaultElement (in category 'accessing') ----- - defaultElement - "Return the default element of the receiver" - ^0.0! Item was removed: - ----- Method: Float64Array>>length (in category 'accessing') ----- - length - "Return the length of the receiver" - ^self squaredLength sqrt! Item was removed: - ----- Method: Float64Array>>negated (in category 'arithmetic') ----- - negated - - ^self shallowCopy *= -1! Item was removed: - ----- 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 removed: - ----- Method: Float64Array>>squaredLength (in category 'accessing') ----- - squaredLength - "Return the squared length of the receiver" - ^self dot: self! Item was changed: + FixedBitWidthFloatArray variableWordSubclass: #FloatArray - ArrayedCollection variableWordSubclass: #FloatArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Arrayed'! !FloatArray commentStamp: '<historical>' prior: 0! FloatArrays store 32bit IEEE floating point numbers.! Item was removed: - ----- Method: FloatArray>>* (in category 'arithmetic') ----- - * anObject - - ^self shallowCopy *= anObject! Item was removed: - ----- Method: FloatArray>>*= (in category 'arithmetic') ----- - *= anObject - ^anObject isNumber - ifTrue:[self primMulScalar: anObject asFloat] - ifFalse:[self primMulArray: anObject]! Item was removed: - ----- Method: FloatArray>>+ (in category 'arithmetic') ----- - + anObject - - ^self shallowCopy += anObject! Item was removed: - ----- Method: FloatArray>>+= (in category 'arithmetic') ----- - += anObject - ^anObject isNumber - ifTrue:[self primAddScalar: anObject asFloat] - ifFalse:[self primAddArray: anObject]! Item was removed: - ----- Method: FloatArray>>- (in category 'arithmetic') ----- - - anObject - - ^self shallowCopy -= anObject! Item was removed: - ----- Method: FloatArray>>-= (in category 'arithmetic') ----- - -= anObject - ^anObject isNumber - ifTrue:[self primSubScalar: anObject asFloat] - ifFalse:[self primSubArray: anObject]! Item was removed: - ----- Method: FloatArray>>/ (in category 'arithmetic') ----- - / anObject - - ^self shallowCopy /= anObject! Item was removed: - ----- Method: FloatArray>>/= (in category 'arithmetic') ----- - /= anObject - ^anObject isNumber - ifTrue:[self primDivScalar: anObject asFloat] - ifFalse:[self primDivArray: anObject]! Item was removed: - ----- Method: FloatArray>>\\= (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 removed: - ----- Method: FloatArray>>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 / (FloatArray with: 1.0e-39)) first < 2." - ^(self class new: self size withAll: rcvr) / self - ]. - ^super adaptToNumber: rcvr andSend: selector! Item was added: + ----- Method: FloatArray>>byteSize (in category 'accessing') ----- + byteSize + ^self size * 4! Item was added: + ----- Method: FloatArray>>bytesPerElement (in category 'accessing') ----- + bytesPerElement + "Number of bytes in each item. This multiplied by (self size)*8 gives the number of bits stored." + ^ 4! Item was removed: - ----- Method: FloatArray>>defaultElement (in category 'accessing') ----- - defaultElement - "Return the default element of the receiver" - ^0.0! Item was removed: - ----- Method: FloatArray>>length (in category 'accessing') ----- - length - "Return the length of the receiver" - ^self squaredLength sqrt! Item was removed: - ----- Method: FloatArray>>negated (in category 'arithmetic') ----- - negated - - ^self shallowCopy *= -1! Item was removed: - ----- Method: FloatArray>>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 removed: - ----- Method: FloatArray>>squaredLength (in category 'accessing') ----- - squaredLength - "Return the squared length of the receiver" - ^self dot: self! Item was changed: + FixedBitWidthSignedIntegerArray variableWordSubclass: #IntegerArray - ArrayedCollection variableWordSubclass: #IntegerArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Arrayed'! !IntegerArray commentStamp: '<historical>' prior: 0! IntegerArrays store 32bit signed Integer values. Negative values are stored as 2's complement.! Item was removed: - ----- Method: IntegerArray>>atAllPut: (in category 'accessing') ----- - atAllPut: anInteger - | word | - anInteger < 0 - ifTrue:[anInteger < -16r80000000 ifTrue: [self error: anInteger asString , ' out of range']. - "word := 16r100000000 + anInteger" - word := (anInteger + 1) negated bitInvert32] - ifFalse:[anInteger > 16r7FFFFFFF ifTrue: [self error: anInteger asString , ' out of range']. - word := anInteger]. - self primFill: word.! Item was added: + ----- Method: IntegerArray>>byteSize (in category 'accessing') ----- + byteSize + ^self size * 4! Item was added: + ----- Method: IntegerArray>>bytesPerElement (in category 'accessing') ----- + bytesPerElement + "Number of bytes in each item. This multiplied by (self size)*8 gives the number of bits stored." + ^ 4! Item was removed: - ----- Method: IntegerArray>>defaultElement (in category 'accessing') ----- - defaultElement - "Return the default element of the receiver" - ^0! Item was removed: - ----- Method: IntegerArray>>primFill: (in category 'private') ----- - primFill: aPositiveInteger - "Fill the receiver, an indexable bytes or words object, with the given positive integer. The range of possible fill values is [0..255] for byte arrays and [0..(2^32 - 1)] for word arrays." - - <primitive: 145> - self errorImproperStore.! Item was added: + FixedBitWidthSignedIntegerArray variableDoubleWordSubclass: #Long64Array + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Arrayed'! + + !Long64Array commentStamp: 'nice 5/2/2020 15:44' prior: 0! + Long64Arrays store 64bit signed Integer values. + Negative values are stored as 2's complement.! Item was added: + ----- Method: Long64Array>>at: (in category 'accessing') ----- + at: index + | word64 | + <primitive: 165> + word64 := self basicAt: index. + word64 < SmallInteger maxVal ifTrue:[^word64]. "Avoid LargeInteger computations" + ^word64 >= 16r8000000000000000 "Negative?!!" + ifTrue: ["word64 - 16r10000000000000000" + (word64 bitInvert64 + 1) negated] + ifFalse: [word64]! Item was added: + ----- Method: Long64Array>>at:put: (in category 'accessing') ----- + at: index put: anInteger + | word64 | + <primitive: 166> + anInteger < 0 + ifTrue: + [anInteger < -16r8000000000000000 ifTrue: [self error: anInteger asString , ' out of range']. + "word64 := 16r10000000000000000 + anInteger" + word64 := (anInteger + 1) negated bitInvert64] + ifFalse: + [anInteger > 16r7FFFFFFFFFFFFFFF ifTrue: [self error: anInteger asString , ' out of range']. + word64 := anInteger]. + self basicAt: index put: word64. + ^anInteger! Item was added: + ----- Method: Long64Array>>byteSize (in category 'accessing') ----- + byteSize + ^self size * 8! Item was added: + ----- Method: Long64Array>>bytesPerElement (in category 'accessing') ----- + bytesPerElement + "Number of bytes in each item. This multiplied by (self size)*8 gives the number of bits stored." + ^ 8! Item was added: + FixedBitWidthSignedIntegerArray variableByteSubclass: #SignedByteArray + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Arrayed'! + + !SignedByteArray commentStamp: 'nice 5/2/2020 15:20' prior: 0! + IntegerArrays store 8bit signed Integer values. + Negative values are stored as 2's complement.! Item was added: + ----- Method: SignedByteArray>>at: (in category 'accessing') ----- + at: index + | word | + <primitive: 165> + word := self basicAt: index. + ^word >= 16r80 "Negative?!!" + ifTrue:[16r100 - word] + ifFalse:[word]! Item was added: + ----- Method: SignedByteArray>>at:put: (in category 'accessing') ----- + at: index put: anInteger + | byte | + <primitive: 166> + anInteger < 0 + ifTrue: + [anInteger < -16r80 ifTrue: [self error: anInteger asString , ' out of range']. + byte := 16r100 + anInteger] + ifFalse: + [anInteger > 16r7F ifTrue: [self error: anInteger asString , ' out of range']. + byte := anInteger]. + self basicAt: index put: byte. + ^anInteger! Item was added: + ----- Method: SignedByteArray>>byteSize (in category 'accessing') ----- + byteSize + ^self size! Item was added: + ----- Method: SignedByteArray>>bytesPerElement (in category 'accessing') ----- + bytesPerElement + "Number of bytes in each item. This multiplied by (self size)*8 gives the number of bits stored." + ^ 1! Item was changed: + FixedBitWidthUnsignedIntegerArray variableWordSubclass: #WordArray - ArrayedCollection variableWordSubclass: #WordArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Arrayed'! !WordArray commentStamp: '<historical>' prior: 0! WordArrays store 32-bit unsigned Integer values. ! Item was removed: - ----- Method: WordArray>>atAllPut: (in category 'accessing') ----- - atAllPut: value - "Fill the receiver with the given value" - - <primitive: 145> - super atAllPut: value! Item was removed: - ----- Method: WordArray>>defaultElement (in category 'accessing') ----- - defaultElement - "Return the default element of the receiver" - ^0! Item was removed: - ----- Method: WordArray>>replaceFrom:to:with:startingAt: (in category 'private') ----- - replaceFrom: start to: stop with: replacement startingAt: repStart - <primitive: 105> - ^super replaceFrom: start to: stop with: replacement startingAt: repStart !

7 16

[ANN] prototype for reading National Instrument TDMS files
by Nicolas Cellier 04 May '20

04 May '20

Hi all, I have published NITDMSReader, a prototype and proof of concept for reading National Instrument TDMS data files. Those binary files are produced by N.I. softwares like Labview and are mainly used for data acquisition of various sensors. The interesting bytes is that I tried to carry bulk data transfer via BitBlt. I published a BulkDataTransfer package for that too. I think it may be of general use for transfer of bytes across bit arrays. An example usage is: AndreasSystemProfiler spyOn: [NITDMSFileReader new filename: 'c:\MyPath\MyFile.tdms'; scan; readValuesForChannel: #('MyGroup' 'MyChannel').] I can extract one channel of 60k records from a 16MBytes file in approximately half a second, but Time seems dominated by file access. This is all on STEM, http://www.squeaksource.com/STEM.html. For now the package rely on BinaryStream, MultipleDimensionArray and on my inbox Collection refactorings (Long64Array) and recent Float64Array too, as well as ExternalFloatComplexArray from Smallapack... If ever you try to lad the package, don't be surprised to see a few undeclared. I'll clean that later and will provide some Metacello recipe.

3 2

Why does nvidia.settings app require mesa (croquet related)
by gettimothy 04 May '20

04 May '20

Hi folks During a new install on the NVme drives, i decided to test my hypithesis that perhaps mesa was interfering somehow . I removed mesa from the install and installed the nvidia driver and its 32 bit support libs. Hoping that bypassing nesa, i could hack croquet to hit the nvidia libs. To my surprise, the nvidia-settings configuration tool does not work without mesa. My goal is, on the 64 bit machine with the nvidia 32 bit libs tovget Hello Triangle OpenGL app working from squeak. Sent from phone with tiny koydchvtsd

2 2

The Trunk: Morphic-mt.1655.mcz
by commits＠source.squeak.org 04 May '20

04 May '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1655.mcz ==================== Summary ==================== Name: Morphic-mt.1655 Author: mt Time: 4 May 2020, 11:28:00.740912 am UUID: a7baaad5-39dc-9c43-adce-02c055e280e2 Ancestors: Morphic-fn.1654 In fill-in dialogs, it should always be possible to accept the contents even if they are empty or appear otherwise unchanged. Note that "hasUnacceptedEdits: true" might not be needed anymore. Anyway, the MorphicToolBuilder gave me some hints on how #askBeforeDiscardingEdits and #alwaysAccept are related. =============== Diff against Morphic-fn.1654 =============== Item was changed: ----- Method: FillInTheBlankMorph>>createTextPaneAcceptOnCR: (in category 'initialization') ----- createTextPaneAcceptOnCR: acceptBoolean textPane := PluggableTextMorph on: self text: #response accept: #response: readSelection: #selectionInterval menu: #codePaneMenu:shifted:. textPane showScrollBarsOnlyWhenNeeded; wantsFrameAdornments: false; hasUnacceptedEdits: true; + askBeforeDiscardingEdits: false; + setProperty: #alwaysAccept toValue: true; acceptOnCR: acceptBoolean; setNameTo: 'textPane'; layoutFrame: (LayoutFrame fractions: (0@0 corner: 1@1)); hResizing: #spaceFill; vResizing: #spaceFill; scrollToTop. ^ textPane!

2 1

The Trunk: Tools-jr.966.mcz
by commits＠source.squeak.org 04 May '20

04 May '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-jr.966.mcz ==================== Summary ==================== Name: Tools-jr.966 Author: jr Time: 2 May 2020, 12:16:24.578946 am UUID: eceadafb-7b97-1742-84a2-e714d188a3bb Ancestors: Tools-mt.965 Avoid inlining of #class for proxies/decorators in Inspector. The instance variables and indexed variables are accessed by sending a message to the inspected object, which probably passes through any transparent proxies. If the list of variables is just obtained from "object class" (which will not actually send a message to the object), the list will contain the variables of the proxy. Thus, there is a mismatch between the inspector's schema of the object (the fields) and the schema which is queried for values (the schema of the object behind the proxy). Also send a message to find out the class, so it is aligned with how the values are retrieved. Also mind this when initializing the styler. =============== Diff against Tools-mt.965 =============== Item was changed: ----- Method: Inspector>>streamInstanceVariablesOn: (in category 'fields - streaming') ----- streamInstanceVariablesOn: aStream + (self object perform: #class "do not inline send of #class, receiver could be a proxy") allInstVarNames doWithIndex: [:name :index | - self object class allInstVarNames doWithIndex: [:name :index | aStream nextPut: ((self newFieldForType: #instVar key: name) shouldStyleName: true; valueGetter: [:object | object instVarNamed: name]; valueSetter: [:object :value | object instVarNamed: name put: value]; yourself)].! Item was changed: ----- Method: Inspector>>updateStyler:requestor: (in category 'user interface - styling') ----- updateStyler: aStyler requestor: anObject "Use this method to update our fieldListStyler and all view stylers." aStyler environment: self environment; + classOrMetaClass: (self doItReceiver perform: #class "do not inline send of #class, receiver could be a proxy"); - classOrMetaClass: self doItReceiver class; context: self doItContext; parseAMethod: false.!

1 0

The Inbox: Tools-jr.966.mcz
by commits＠source.squeak.org 04 May '20

04 May '20

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-jr.966.mcz ==================== Summary ==================== Name: Tools-jr.966 Author: jr Time: 2 May 2020, 12:16:24.578946 am UUID: eceadafb-7b97-1742-84a2-e714d188a3bb Ancestors: Tools-mt.965 Avoid inlining of #class for proxies/decorators in Inspector. The instance variables and indexed variables are accessed by sending a message to the inspected object, which probably passes through any transparent proxies. If the list of variables is just obtained from "object class" (which will not actually send a message to the object), the list will contain the variables of the proxy. Thus, there is a mismatch between the inspector's schema of the object (the fields) and the schema which is queried for values (the schema of the object behind the proxy). Also send a message to find out the class, so it is aligned with how the values are retrieved. Also mind this when initializing the styler. =============== Diff against Tools-mt.965 =============== Item was changed: ----- Method: Inspector>>streamInstanceVariablesOn: (in category 'fields - streaming') ----- streamInstanceVariablesOn: aStream + (self object perform: #class "do not inline send of #class, receiver could be a proxy") allInstVarNames doWithIndex: [:name :index | - self object class allInstVarNames doWithIndex: [:name :index | aStream nextPut: ((self newFieldForType: #instVar key: name) shouldStyleName: true; valueGetter: [:object | object instVarNamed: name]; valueSetter: [:object :value | object instVarNamed: name put: value]; yourself)].! Item was changed: ----- Method: Inspector>>updateStyler:requestor: (in category 'user interface - styling') ----- updateStyler: aStyler requestor: anObject "Use this method to update our fieldListStyler and all view stylers." aStyler environment: self environment; + classOrMetaClass: (self doItReceiver perform: #class "do not inline send of #class, receiver could be a proxy"); - classOrMetaClass: self doItReceiver class; context: self doItContext; parseAMethod: false.!

3 3

Jump to page: