Packages September 2020

packages@lists.squeakfoundation.org

1 participants
56 discussions

FFI: ConfigurationOfFFI-mt.43.mcz
by commits＠source.squeak.org 15 Sep '20

15 Sep '20

Marcel Taeumel uploaded a new version of ConfigurationOfFFI to project FFI: http://source.squeak.org/FFI/ConfigurationOfFFI-mt.43.mcz ==================== Summary ==================== Name: ConfigurationOfFFI-mt.43 Author: mt Time: 15 September 2020, 3:18:22.281259 pm UUID: 8223cd49-aca7-4902-aa47-c43fd4af59ba Ancestors: ConfigurationOfFFI-nice.42 Adds version 2.0 to make FFI loadable through this configuration in Squeak 6.0alpha. =============== Diff against ConfigurationOfFFI-nice.42 =============== Item was added: + ----- Method: ConfigurationOfFFI>>baseline20: (in category 'baselines') ----- + baseline20: spec + <version: '2.0-baseline'> + + spec for: #common do: [ + spec blessing: #baseline. + spec repository: 'http://source.squeakfoundation.org/FFI'. + + spec + package: 'FFI-Pools'; + package: 'FFI-Kernel' with: [ spec requires: 'FFI-Pools' ]; + package: 'FFI-Callbacks' with: [ spec requires: 'FFI-Pools' ]; "Experimental. Not compatible with Alien." + package: 'FFI-Tools' with: [ spec requires: 'FFI-Kernel' ]; + + package: 'FFI-Tests' with: [ spec requires: 'FFI-Kernel' ]; + package: 'FFI-PoolsTests' with: [ spec requires: 'FFI-Pools' ]; + + package: 'FFI-MacOS' with: [ spec requires: 'FFI-Kernel' ]; + package: 'FFI-Unix' with: [ spec requires: 'FFI-Kernel' ]; + package: 'FFI-Win32' with: [ spec requires: 'FFI-Kernel' ]. + + spec + group: 'default' with: #('Core' 'Tools' 'Examples' 'Tests'); + group: 'dev' with: #('Core' 'Callbacks' 'Tools' 'Examples' 'Tests'); "Experimental. Not compatible with Alien." + + group: 'Core' with: #('FFI-Pools' 'FFI-Kernel'); + group: 'Tools' with: #('FFI-Tools'); + group: 'Callbacks' with: #('FFI-Callbacks'); "Experimental. Not compatible with Alien." + + group: 'Examples' with: #('FFI-MacOS' 'FFI-Unix' 'FFI-Win32'); + group: 'Tests' with: #('FFI-Tests') ].! Item was changed: ----- Method: ConfigurationOfFFI>>development: (in category 'symbolic versions') ----- development: spec <symbolicVersion: #development> + spec for: #squeakCommon version: '2.0-baseline'.! - spec for: #common version: '1.4-baseline'.! Item was changed: ----- Method: ConfigurationOfFFI>>stable: (in category 'symbolic versions') ----- stable: spec <symbolicVersion: #'stable'> + spec for: #squeakCommon version: '1.5'. + spec for: #pharo version: '1.7'. spec for: #'pharo3.x' version: '1.8'. spec for: #'pharo4.x' version: '1.9'. spec for: #'pharo5.x' version: '1.10.1'. + spec for: #'squeak' version: '1.12'. spec for: #'squeak5.x' version: '1.13'. + + spec for: #'squeak6.x' version: '2.0'. - spec for: #'squeak6.x' version: '1.13'. - spec for: #squeakCommon version: '1.5'. ! Item was added: + ----- Method: ConfigurationOfFFI>>version20: (in category 'versions') ----- + version20: spec + <version: '2.0' imports: #('2.0-baseline')> + + spec for: #common do: [ + spec + blessing: #release; + package: 'FFI-Pools' with: 'FFI-Pools-mt.25'; + package: 'FFI-Kernel' with: 'FFI-Kernel-mt.119'; + package: 'FFI-Tools' with: 'FFI-Tools-mt.20'; + package: 'FFI-Callbacks' with: 'FFI-Callbacks-mt.3'; "Experimental. Not compatible with Alien." + + package: 'FFI-Tests' with: 'FFI-Tests-mt.21'; + package: 'FFI-PoolsTests' with: 'FFI-PoolsTests-mt.10'; + + package: 'FFI-MacOS' with: 'FFI-MacOS-mt.6'; + package: 'FFI-Win32' with: 'FFI-Win32-nice.20'; + package: 'FFI-Unix' with: 'FFI-Unix-mtf.4'].!

1 0

The Trunk: Collections-eem.911.mcz
by commits＠source.squeak.org 14 Sep '20

14 Sep '20

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.911.mcz ==================== Summary ==================== Name: Collections-eem.911 Author: eem Time: 14 September 2020, 11:03:02.426231 am UUID: 28806f32-6ba9-4ef5-b940-571d50d3f942 Ancestors: Collections-eem.910 Correct the redirect logc so that it is the Transcript, and not any old TranscriptStream, that gets redirected to stdout when the redirectToStdOut preference is set Fix a regression in the redefinition of endEntry (forgot to send reset). =============== Diff against Collections-eem.910 =============== Item was changed: ----- Method: TranscriptStream>>endEntry (in category 'stream extensions') ----- endEntry "Display all the characters since the last endEntry, and reset the stream" self lock critical: + [(self == Transcript and: [self class redirectToStdOut]) + ifTrue: + [FileStream stdout nextPutAll: self contents; flush] + ifFalse: + [self changed: (self class forceUpdate - [self changed: (self class forceUpdate ifTrue: [#appendEntry] + ifFalse: [#appendEntryLater])]. + self reset]! - ifFalse: [#appendEntryLater])]! Item was removed: - ----- Method: TranscriptStream>>nextPut: (in category 'stream extensions') ----- - nextPut: anObject - self target == self ifFalse: [self target nextPut: anObject]. "delegated to stdout" - ^ super nextPut: anObject.! Item was removed: - ----- Method: TranscriptStream>>nextPutAll: (in category 'stream extensions') ----- - nextPutAll: aCollection - self target == self ifFalse: [self target nextPutAll: aCollection]. "delegated to stdout" - ^ super nextPutAll: aCollection.! Item was changed: ----- Method: TranscriptStream>>target (in category 'stream extensions') ----- target + ^(self == Transcript and: [self class redirectToStdOut]) - - ^ self class redirectToStdOut ifTrue: [FileStream stdout] ifFalse: [self]!

1 0

The Trunk: Collections-eem.910.mcz
by commits＠source.squeak.org 14 Sep '20

14 Sep '20

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.910.mcz ==================== Summary ==================== Name: Collections-eem.910 Author: eem Time: 14 September 2020, 10:50:35.614055 am UUID: e9380f4a-daa8-441f-bc2e-a5e6445e4452 Ancestors: Collections-eem.909 Travelling on the one after 909, fix a slip in that last fix. =============== Diff against Collections-eem.909 =============== Item was changed: ----- Method: TranscriptStream>>endEntry (in category 'stream extensions') ----- endEntry "Display all the characters since the last endEntry, and reset the stream" self lock critical: [self changed: (self class forceUpdate ifTrue: [#appendEntry] + ifFalse: [#appendEntryLater])]! - ifFalse: [self changed: #appendEntryLater])]!

1 0

The Trunk: Collections-eem.909.mcz
by commits＠source.squeak.org 14 Sep '20

14 Sep '20

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.909.mcz ==================== Summary ==================== Name: Collections-eem.909 Author: eem Time: 14 September 2020, 10:40:20.674349 am UUID: de499e36-5394-4102-86f7-aa1def93b595 Ancestors: Collections-mt.908 Make TranscriptStream's access protect an inst var and a Mutex. =============== Diff against Collections-mt.908 =============== Item was changed: WriteStream subclass: #TranscriptStream + instanceVariableNames: 'lastChar lock' + classVariableNames: 'CharacterLimit ForceUpdate RedirectToStdOut' - instanceVariableNames: 'lastChar' - classVariableNames: 'AccessSema CharacterLimit ForceUpdate RedirectToStdOut' poolDictionaries: '' category: 'Collections-Streams'! !TranscriptStream commentStamp: 'fbs 12/30/2013 09:53' prior: 0! This class is a much simpler implementation of Transcript protocol that supports multiple views and very simple conversion to morphic. Because it inherits from Stream, it is automatically compatible with code that is designed to write to streams.! Item was changed: ----- Method: TranscriptStream>>endEntry (in category 'stream extensions') ----- endEntry "Display all the characters since the last endEntry, and reset the stream" + self lock critical: + [self changed: (self class forceUpdate + ifTrue: [#appendEntry] + ifFalse: [self changed: #appendEntryLater])]! - self semaphore critical:[ - self class forceUpdate - ifTrue: [self changed: #appendEntry] - ifFalse: [self changed: #appendEntryLater]. - self reset. - ].! Item was added: + ----- Method: TranscriptStream>>lock (in category 'private') ----- + lock + ^lock ifNil:[lock := Mutex new]! Item was removed: - ----- Method: TranscriptStream>>semaphore (in category 'private') ----- - semaphore - ^AccessSema ifNil:[AccessSema := Semaphore forMutualExclusion]!

1 0

The Trunk: Collections-mt.908.mcz
by commits＠source.squeak.org 14 Sep '20

14 Sep '20

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.908.mcz ==================== Summary ==================== Name: Collections-mt.908 Author: mt Time: 14 September 2020, 6:27:49.862914 pm UUID: abfcedd9-2516-7c49-b6e9-714619e50986 Ancestors: Collections-eem.907 Fixes some error messages regarding #become(Forward):. =============== Diff against Collections-eem.907 =============== Item was changed: ----- Method: Array>>elementsExchangeIdentityWith: (in category 'converting') ----- elementsExchangeIdentityWith: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. At the same time, all pointers to the elements of otherArray are replaced by pointers to the corresponding elements of this array. The identityHashes remain with the pointers rather than with the objects so that objects in hashed structures should still be properly indexed after the mutation." <primitive: 128 error: ec> ec == #'no modification' ifTrue: [^self modificationForbiddenFor: otherArray becomeSelector: #elementsExchangeIdentityWith:]. ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array + ifFalse: ['arg must be of class Array'] + ifTrue: ['receiver and argument must have the same size'])]. - ifTrue: ['arg must be of class Array'] - ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. ec == #'insufficient object memory' ifTrue: [| maxRequired | "In Spur, two-way become may involve making each pair of objects into a forwarder into a copy of the other. So if become fails with #'insufficient object memory', garbage collect, and if necessary, grow memory." maxRequired := (self detectSum: [:obj | obj class byteSizeOfInstanceOfSize: obj basicSize]) + (otherArray detectSum: [:obj | obj class byteSizeOfInstanceOfSize: obj basicSize]). (Smalltalk garbageCollectMost < maxRequired and: [Smalltalk garbageCollect < maxRequired]) ifTrue: [Smalltalk growMemoryByAtLeast: maxRequired]. ^self elementsExchangeIdentityWith: otherArray]. self primitiveFailed! Item was changed: ----- Method: Array>>elementsForwardIdentityAndHashTo: (in category 'converting') ----- elementsForwardIdentityAndHashTo: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. The identityHashes remain with the pointers rather than with the objects so that the objects in this array should still be properly indexed in any existing hashed structures after the mutation." <primitive: 72 error: ec> ec == #'no modification' ifTrue: [^self modificationForbiddenFor: otherArray becomeSelector: #elementsForwardIdentityAndHashTo:]. ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array + ifFalse: ['arg must be of class Array'] + ifTrue: ['receiver and argument must have the same size'])]. - ifTrue: ['arg must be of class Array'] - ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. ec == #'insufficient object memory' ifTrue: [self error: 'The virtual machine is out-of-date. Please upgrade.']. self primitiveFailed! Item was changed: ----- Method: Array>>elementsForwardIdentityTo: (in category 'converting') ----- elementsForwardIdentityTo: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. The identityHashes are not copied to the target objects so that the objects in otherArray should still be properly indexed in any existing hashed structures after the mutation." <primitive: 248 error: ec> ec == #'no modification' ifTrue: [^self modificationForbiddenFor: otherArray becomeSelector: #elementsForwardIdentityTo:]. ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array + ifFalse: ['arg must be of class Array'] + ifTrue: ['receiver and argument must have the same size'])]. - ifTrue: ['arg must be of class Array'] - ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. ec == #'insufficient object memory' ifTrue: [self error: 'The virtual machine is out-of-date. Please upgrade.']. self primitiveFailed! Item was changed: ----- Method: Array>>elementsForwardIdentityTo:copyHash: (in category 'converting') ----- elementsForwardIdentityTo: otherArray copyHash: copyHash "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. If copyHash is true, the identityHashes remain with the pointers rather than with the objects so that the objects in the receiver should still be properly indexed in any existing hashed structures after the mutation. If copyHash is false, then the hashes of the objects in otherArray remain unchanged. If you know what you're doing this may indeed be what you want." <primitive: 249 error: ec> ec == #'no modification' ifTrue: [^self modificationForbiddenFor: otherArray argument: copyHash becomeSelector: #elementsForwardIdentityTo:copyHash:]. ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array + ifFalse: ['arg must be of class Array'] + ifTrue: ['receiver and argument must have the same size'])]. - ifTrue: ['arg must be of class Array'] - ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. self primitiveFailed!

1 0

The Trunk: Kernel-ul.1339.mcz
by commits＠source.squeak.org 12 Sep '20

12 Sep '20

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1339.mcz ==================== Summary ==================== Name: Kernel-ul.1339 Author: ul Time: 12 September 2020, 1:52:36.827997 pm UUID: 11d71615-1cc2-4e25-9ac8-d637679f3abd Ancestors: Kernel-ct.1338 - fixed Context >> #copyTo: which did not stop copying when aContext was reached - fixed a typo in SmallInteger >> #scaledIdentityHash's comment =============== Diff against Kernel-ct.1338 =============== Item was changed: ----- Method: Context>>copyTo: (in category 'query') ----- copyTo: aContext "Copy self and my sender chain down to, but not including, aContext. End of copied chain will have nil sender. Assume that there is no loop in the context chain." | currentContext senderContext copy | self == aContext ifTrue: [ ^nil ]. currentContext := copy := self copy. [ + senderContext := currentContext sender ifNil: [ ^copy ]. + senderContext == aContext ifTrue: [ + currentContext privSender: nil. + ^copy ]. + senderContext := senderContext copy. - senderContext := (currentContext sender ifNil: [ ^copy ]) copy. currentContext privSender: senderContext. currentContext := senderContext ] repeat! Item was changed: ----- Method: SmallInteger>>scaledIdentityHash (in category 'comparing') ----- scaledIdentityHash "For identityHash values returned by primitive 75, answer + such values times 2^8. Otherwise, match the existing - such values times 2^18. Otherwise, match the existing identityHash implementation" ^self!

1 0

The Trunk: KernelTests-ul.386.mcz
by commits＠source.squeak.org 12 Sep '20

12 Sep '20

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.386.mcz ==================== Summary ==================== Name: KernelTests-ul.386 Author: ul Time: 12 September 2020, 1:49:16.062715 pm UUID: 7c7b8abb-7226-47e6-929e-b220b49cd714 Ancestors: KernelTests-ct.385 - added a test for Context >> #copyTo: =============== Diff against KernelTests-ct.385 =============== Item was added: + ----- Method: MethodContextTest>>testCopyTo (in category 'tests') ----- + testCopyTo + + | context depth targetSender | + context := thisContext. + depth := 1. + targetSender := context. + [ (targetSender := targetSender sender) isNil ] whileFalse: [ + | original copy | + original := context. + copy := context copyTo: targetSender. + 1 to: depth do: [ :index | + index = 1 ifFalse: [ + "Since we're copying thisContext, the pc and stackPtr may be different for the current frame." + self + assert: original pc equals: copy pc; + assert: original stackPtr equals: copy stackPtr ]. + self + deny: original == copy; + assert: original method equals: copy method; + assert: original closure equals: copy closure; + assert: original receiver equals: copy receiver. + original := original sender. + copy := copy sender ]. + self + assert: copy isNil; + assert: original == targetSender. + depth := depth + 1 ]!

1 0

The Trunk: Chronology-Core-dtl.60.mcz
by commits＠source.squeak.org 11 Sep '20

11 Sep '20

David T. Lewis uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-dtl.60.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.60 Author: dtl Time: 8 September 2020, 7:42:44.062725 pm UUID: afcc86c3-7fb2-4ecd-b9ae-9840f100393c Ancestors: Chronology-Core-ul.58 Fix Time>>addSeconds: to maintain nanoseconds. =============== Diff against Chronology-Core-ul.58 =============== Item was changed: ----- Method: Time>>addSeconds: (in category 'smalltalk-80') ----- addSeconds: nSeconds "Answer a Time that is nSeconds after the receiver." + | secondsToAdd newNanos | + (secondsToAdd := nSeconds truncated) = nSeconds + ifTrue: [newNanos := nanos] + ifFalse: [(newNanos := nanos + (nSeconds - secondsToAdd * NanosInSecond)) > NanosInSecond + ifTrue: [secondsToAdd := secondsToAdd + 1. + newNanos := newNanos - NanosInSecond]]. + ^ self class seconds: seconds + secondsToAdd nanoSeconds: newNanos! - ^ self class seconds: self asSeconds + nSeconds!

1 0

The Trunk: Chronology-Tests-dtl.24.mcz
by commits＠source.squeak.org 11 Sep '20

11 Sep '20

David T. Lewis uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-dtl.24.mcz ==================== Summary ==================== Name: Chronology-Tests-dtl.24 Author: dtl Time: 8 September 2020, 7:41:58.606243 pm UUID: b399c1e6-4dfe-4240-b44e-19ec5abf3a74 Ancestors: Chronology-Tests-mt.23 Add tests for Time>>addSeconds: to ensure that nanosecond values are preserved. =============== Diff against Chronology-Tests-mt.23 =============== Item was added: + ----- Method: TimeTest>>testAddSecondsNanoSecondRollover (in category 'testing') ----- + testAddSecondsNanoSecondRollover + + | time1 time2 time3 time4 time5 time6 time7 time8 | + time1 := Time fromSeconds: 1.2s. + time2 := time1 addSeconds: 1.3s. + "n.b. use ticks second to access seconds instvar because #asSeconds is + questionable and possibly subject to future change -dtl" + self assert: 2 equals: time2 ticks second. + self assert: 500000000 equals: time2 nanoSecond. + time3 := Time fromSeconds: 1.9s. + time4 := time3 addSeconds: 1.2s. + self assert: 3 equals: time4 ticks second. + self assert: 100000000 equals: time4 nanoSecond. + time5 := Time fromSeconds: 0.9s. + time6 := time5 addSeconds: 0.2s. + self assert: 1 equals: time6 ticks second. + self assert: 100000000 equals: time6 nanoSecond. + time7 := time5 addSeconds: 1. + self assert: 1 equals: time7 ticks second. + self assert: 900000000 equals: time7 nanoSecond. + "midnight rollover" + time8 := '11:59:59.505 pm' asTime addSeconds: 1.0101. + self assert: 0 equals: time8 ticks second. + self assert: 515100000 equals: time8 nanoSecond. + ! Item was added: + ----- Method: TimeTest>>testAddSecondsWithNanos (in category 'testing') ----- + testAddSecondsWithNanos + self assert: (timeWithNanos addSeconds: 1) = (Time readFromString: '4:02:48.42 am'). + self assert: (timeWithNanos addSeconds: 60) = (Time readFromString: '4:03:47.42 am'). + self assert: (timeWithNanos addSeconds: 3600) = (Time readFromString: '5:02:47.42 am'). + self assert: (timeWithNanos addSeconds: 24*60*60) = (Time readFromString: '4:02:47.42 am'). + "rollover after midnight" + self assert: (timeWithNanos addSeconds: 71832) = (Time readFromString: '11:59:59.42 pm'). + self assert: (timeWithNanos addSeconds: 71833) = (Time readFromString: '00:00:00.42 am'). + !

1 0

The Trunk: Chronology-Core-ul.58.mcz
by commits＠source.squeak.org 06 Sep '20

06 Sep '20

Levente Uzonyi uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-ul.58.mcz ==================== Summary ==================== Name: Chronology-Core-ul.58 Author: ul Time: 6 September 2020, 2:28:59.102076 pm UUID: 67bb8acc-c81b-4e0c-a6f2-e9603c284236 Ancestors: Chronology-Core-dtl.57 Simplify DateAndTime class>>unixEpoch =============== Diff against Chronology-Core-dtl.57 =============== Item was changed: ----- Method: DateAndTime class>>unixEpoch (in category 'squeak protocol') ----- unixEpoch "Answer a DateAndTime representing the Unix epoch (1 January 1970, midnight UTC)" + ^self utcMicroseconds: 0 offset: 0! - ^ self basicNew - ticks: #(2440588 0 0) offset: Duration zero; - yourself. - !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2020