Squeak-dev February 2016

squeak-dev@lists.squeakfoundation.org

28 participants
207 discussions

The Inbox: Collections-pre.679.mcz
by commits＠source.squeak.org 26 Feb '16

26 Feb '16

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-pre.679.mcz ==================== Summary ==================== Name: Collections-pre.679 Author: pre Time: 26 February 2016, 4:04:56.205127 pm UUID: 2ac5821c-d6f5-418c-ab07-ed3c2b9de62c Ancestors: Collections-eem.678 This is a new iteration method which allows the iteration over asymmetric pairs. I have found this useful in game collision detections or duplicate detections. Alternatively we might want to take a second collection as input and create asymmetric pairs from self and this second collection. =============== Diff against Collections-eem.678 =============== Item was added: + ----- Method: Collection>>asymmetricPairsDo: (in category 'accessing') ----- + asymmetricPairsDo: aBlock + + | iterationCollection currentElement | + iterationCollection := self copy. + + [currentElement := iterationCollection anyOne. + iterationCollection remove: currentElement. + iterationCollection isEmpty not] + whileTrue: [ iterationCollection + do: [:element | aBlock value: currentElement value: element]].!

1 0

The Trunk: Monticello-topa.627.mcz
by commits＠source.squeak.org 26 Feb '16

26 Feb '16

Tobias Pape uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-topa.627.mcz ==================== Summary ==================== Name: Monticello-topa.627 Author: topa Time: 26 February 2016, 1:10:40.42795 pm UUID: 65a5a11e-e321-40e0-bf4b-7e80a90509a7 Ancestors: Monticello-mt.626 Fix MCStReader for 'new' Spur class types =============== Diff against Monticello-mt.626 =============== Item was changed: ----- Method: MCStReader>>typeOfSubclass: (in category 'as yet unclassified') ----- typeOfSubclass: aSymbol #( (subclass: normal) (variableSubclass: variable) (variableByteSubclass: bytes) (variableWordSubclass: words) (weakSubclass: weak) + (ephemeronSubclass: ephemeron) + (immediateSubclass: immediate) ) do: [:ea | ea first = aSymbol ifTrue: [^ ea second]]. self error: 'Unrecognized class definition'!

1 0

Re: [squeak-dev] The Trunk: Network-eem.172.mcz
by Eliot Miranda 26 Feb '16

26 Feb '16

Hi All, while the changes below are correct, in that they prevent primitive failures that shouldn't happen, they cause the testSocketReuse test to now lock up the system. I;m trying to understand what's going on and develop a proper fix. Levente, you allude to a VM bug in waitForDataIfClosed . Can you be more precise? It seems to me that the bug is that a socket's semaphore is not necessarily signalled when a socket becomes invalid, closes, etc. Is that right? I suppose that the primitive failures are preferrable to a lock up wuerh running the test suite, so perhaps we should revert the changes below. But it feels wrong to mask a bug with a primitive failure. It would be nicer to have something in the code that explicitly prevented getting into the lockup, even if by raising an error. On Thu, Feb 25, 2016 at 1:07 PM, <commits(a)source.squeak.org> wrote: > Eliot Miranda uploaded a new version of Network to project The Trunk: > http://source.squeak.org/trunk/Network-eem.172.mcz > > ==================== Summary ==================== > > Name: Network-eem.172 > Author: eem > Time: 25 February 2016, 1:07:33.303622 pm > UUID: 5c73783a-d4e2-413e-b5eb-f04ad8decee2 > Ancestors: Network-ul.171 > > Fix two failures to check if a socket is closed (socketHandle is nil) > before attempting to read from the socket. > > =============== Diff against Network-ul.171 =============== > > Item was changed: > ----- Method: Socket>>receiveDataInto:startingAt: (in category > 'receiving') ----- > receiveDataInto: aStringOrByteArray startingAt: aNumber > "Receive data into the given buffer and return the number of bytes > received. > Note the given buffer may be only partially filled by the received > data. > Waits for data once. The answer may be zero (indicating that no > data was > available before the socket closed)." > > + | bytesRead open | > - | bytesRead closed | > bytesRead := 0. > + open := true. > + [open and: [bytesRead = 0]] whileTrue: > + [self waitForDataIfClosed: [open := false]. > + open ifTrue: > + [bytesRead := self primSocket: socketHandle > + > receiveDataInto: aStringOrByteArray > + > startingAt: aNumber > + count: > aStringOrByteArray size - aNumber + 1]]. > - closed := false. > - [closed not and: [bytesRead = 0]] > - whileTrue: [ > - self waitForDataIfClosed: [closed := true]. > - bytesRead := self primSocket: socketHandle > - receiveDataInto: aStringOrByteArray > - startingAt: aNumber > - count: aStringOrByteArray size-aNumber+1]. > ^bytesRead > ! > > Item was changed: > ----- Method: Socket>>waitForDataIfClosed: (in category 'waiting') ----- > waitForDataIfClosed: closedBlock > "Wait indefinitely for data to arrive. This method will block > until > data is available or the socket is closed." > > + [(socketHandle ~~ nil > + and: [self primSocketReceiveDataAvailable: socketHandle]) ifTrue: > + [^self]. > + self isConnected ifFalse: > + [^closedBlock value]. > + "ul 8/13/2014 21:16 > + Providing a maximum for the time for waiting is a workaround for > a VM bug which > + causes sockets waiting for data forever in some rare cases, > because the semaphore > + doesn't get signaled. Replace the ""waitTimeoutMSecs: self class > maximumReadSemaphoreWaitTimeout"" > + part with ""wait"" when the bug is fixed." > + self readSemaphore waitTimeoutMSecs: self class > maximumReadSemaphoreWaitTimeout] repeat! > - [ > - (self primSocketReceiveDataAvailable: socketHandle) > - ifTrue: [^self]. > - self isConnected > - ifFalse: [^closedBlock value]. > - "Providing a maximum for the time for waiting is a > workaround for a VM bug which causes sockets waiting for data forever in > some rare cases, because the semaphore doesn't get signaled. Replace the > ""waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout"" part with > ""wait"" when the bug is fixed." > - self readSemaphore waitTimeoutMSecs: self class > maximumReadSemaphoreWaitTimeout ] repeat > - ! > > > -- _,,,^..^,,,_ best, Eliot

2 1

Daily Commit Log
by commits＠source.squeak.org 25 Feb '16

25 Feb '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-February/009455.h… Name: Files-cmm.149 Ancestors: Files-topa.148 - API compatibility for #asDirectoryEntry with DirectoryEntry. - Check for existence of a directory of same name (not just a file) when renaming a file or directory. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009456.h… Name: MorphicExtras-cmm.169 Ancestors: MorphicExtras-kfr.168 Don't DNU when searching Object catalog. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009457.h… Name: Network-eem.172 Ancestors: Network-ul.171 Fix two failures to check if a socket is closed (socketHandle is nil) before attempting to read from the socket. =============================================

1 0

The Trunk: Network-eem.172.mcz
by commits＠source.squeak.org 25 Feb '16

25 Feb '16

Eliot Miranda uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-eem.172.mcz ==================== Summary ==================== Name: Network-eem.172 Author: eem Time: 25 February 2016, 1:07:33.303622 pm UUID: 5c73783a-d4e2-413e-b5eb-f04ad8decee2 Ancestors: Network-ul.171 Fix two failures to check if a socket is closed (socketHandle is nil) before attempting to read from the socket. =============== Diff against Network-ul.171 =============== Item was changed: ----- Method: Socket>>receiveDataInto:startingAt: (in category 'receiving') ----- receiveDataInto: aStringOrByteArray startingAt: aNumber "Receive data into the given buffer and return the number of bytes received. Note the given buffer may be only partially filled by the received data. Waits for data once. The answer may be zero (indicating that no data was available before the socket closed)." + | bytesRead open | - | bytesRead closed | bytesRead := 0. + open := true. + [open and: [bytesRead = 0]] whileTrue: + [self waitForDataIfClosed: [open := false]. + open ifTrue: + [bytesRead := self primSocket: socketHandle + receiveDataInto: aStringOrByteArray + startingAt: aNumber + count: aStringOrByteArray size - aNumber + 1]]. - closed := false. - [closed not and: [bytesRead = 0]] - whileTrue: [ - self waitForDataIfClosed: [closed := true]. - bytesRead := self primSocket: socketHandle - receiveDataInto: aStringOrByteArray - startingAt: aNumber - count: aStringOrByteArray size-aNumber+1]. ^bytesRead ! Item was changed: ----- Method: Socket>>waitForDataIfClosed: (in category 'waiting') ----- waitForDataIfClosed: closedBlock "Wait indefinitely for data to arrive. This method will block until data is available or the socket is closed." + [(socketHandle ~~ nil + and: [self primSocketReceiveDataAvailable: socketHandle]) ifTrue: + [^self]. + self isConnected ifFalse: + [^closedBlock value]. + "ul 8/13/2014 21:16 + Providing a maximum for the time for waiting is a workaround for a VM bug which + causes sockets waiting for data forever in some rare cases, because the semaphore + doesn't get signaled. Replace the ""waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout"" + part with ""wait"" when the bug is fixed." + self readSemaphore waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout] repeat! - [ - (self primSocketReceiveDataAvailable: socketHandle) - ifTrue: [^self]. - self isConnected - ifFalse: [^closedBlock value]. - "Providing a maximum for the time for waiting is a workaround for a VM bug which causes sockets waiting for data forever in some rare cases, because the semaphore doesn't get signaled. Replace the ""waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout"" part with ""wait"" when the bug is fixed." - self readSemaphore waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout ] repeat - !

1 0

New Cog VMs available
by Eliot Miranda 25 Feb '16

25 Feb '16

... at http://www.mirandabanda.org/files/Cog/VM/VM.r3632. These include 64-bit VMs whose Smalltalk execution and FFI are functional. However, their SocketPlugin is more than somewhat broken. Executing the SocketPlugin tests results in a hard lockup, at least on Mac OS X. This is my next focus for 64-bits. ------------------------------------------------------------------------ CogVM binaries as per VMMaker.oscog-eem.1700/r3632 General: Fix serious bug in jitted perform: primitive. Thanks to Stephane Rollandin for finding and to Levente Uzoni for diagnosing the bug. If the argument count is one greater than the max number of register arguments (2 in Spur, hence perform:with:with:) then the code to remove the receiver and arguments from the stack neglects to remove the receiver and selector. Spur: Fix special selector arithmetic and comparison in the 64-bit Cogit. My original code for genJumpNotSmallIntegersIn:andScratchReg: merely jumped if the tags differed, hence not jumping if both arguments were SmallFloat64s (or both Characters). The new code requires an additional scratch register; hence add genJumpNotSmallIntegersIn:andScratch:scratch:. Fix bug in markAndTraceWeaklingsFrom:. Fields of weaklings may be immediate so must use followOopField:ofObject: not followObjField:ofObject:. Fix https://pharo.fogbugz.com/f/cases/17536/VM-Crash-when-adding-an-iVar-to-a-s… . When weaklings (and when ephemerons) are scan-marked forwarders must be coped with. 64-bit VMs: Fix a bug in printHex: for 64-bits (faulty arithmetic). ThreadedFFIPlugin: Fix the remaining 64-bit issues in the ThreadedFFIPlugin. The X64SysVFFIPlugin now passes the test suite. Hence include the FFI plugin in 64-bit VMs. Make the SqueakFFIPrims plugin internal in the Mac pharo builds. Mac VMs: Have the Mac OS X build install Localizable.strings. Add versions for Newspeak, Pharo and Squeak. Rename the key to SelectImagePanePrompt. Temporarily disable the Serial plugin in the Pharo Mac VM until we can track down the relevant platforms/iOS support for the Pharo extensions. Fix argument access on the iOS platform (Mac OS VMs). _,,,^..^,,,_ best, Eliot

1 1

Shift+Tab doesn't outdent on linux
by Levente Uzonyi 25 Feb '16

25 Feb '16

Hi All, As the subject says, outdenting is broken in the Trunk. It used to work short after Chris changed the keys, but it doesn't anymore. Does anyone know why? Does it work on other platforms? Levente

6 11

Re: [Pharo-dev] Process>>restart
by Eliot Miranda 25 Feb '16

25 Feb '16

Hi Ben, On Wed, Feb 24, 2016 at 10:44 PM, Ben Coman <btc(a)openinworld.com> wrote: > On Thu, Feb 25, 2016 at 3:06 AM, Eliot Miranda <eliot.miranda(a)gmail.com> > wrote: > > > > > > On Wed, Feb 24, 2016 at 7:23 AM, Ben Coman <btc(a)openinworld.com> wrote: > >> > >> Just sharing a passing thought so I don't forget it before I have time > >> to think more deeply on it. > >> > >> Several parts of Pharo (like SHTextStyler) are designed to have a > >> background process running, and when new input arrives that process is > >> killed so another can be immediately started - and sometimes we seem > >> to end up with large amounts of zombie processes. > >> > >> As I poke around Process>>terminate, I wonder if a different approach > >> would be to have a Process>>restart. I see there is Context>>restart. > >> > >> The starting the background process might look like... > >> > >> stylingProcess := [ [ "do stuff with nextData". self suspend ] > >> repeat ] forkAt: 30. > >> > >> and the code in the main morphic priority 40 thread might look like... > >> > >> sylingProcess suspend. > >> nextData := 'blah'. > >> sylingProcess restart. > > > > > > Hi Ben, so I'm assuming restart differs from resume. Am I right in > thinking > > it cuts back the process to the "start"? Is the start the block from > which > > the process was spawned, the argument to fork or forkAt:? > > Thats right. Essentially like Exception>>retry, to do something like > this... > > restart := false. > workAvailable := Semaphore new. > process := > [ [ Transcript crShow: 'At the start'. > work := 0. > [ work := work + 1. > Transcript crShow: 'working on ' , work printString. > 1 second wait. > work>8 ifTrue: > [ [Transcript crShow: 'Work complete.'] fork. > workAvailable wait. > restart := true. > ]. > restart ifTrue: [self error]. > work > ] repeat. > ] on: Error do: [:err| restart := false. err retry]. > ] newProcess name:'My Restartable Worker'. > process resume. > > "later do..." > restart := true. > "or after work complete..." > workAvailable signal. > > "later still do..." > process terminate > > ...except being able to interrupt the process anytime, > i.e. not needing to wait to get to "restart ifTrue: [self error]." > It can be built simply above signalException:. So... Process class methods for instance creation forBlock: aBlockClosure priority: anInteger "Answer an instance of me that has suspended aContext at priority anInteger." <primitive: 19> "Simulation guard" | newProcess | (newProcess := self new) suspendedContext: [[[newProcess result: aBlockClosure value. false] on: ProcessRestart do: [:ex| true]] whileTrue. "Since control is now at the bottom there is no need to terminate (which runs unwinds) since all unwinds have been run. Simply suspend. Note that we must use this form rather than e.g. Processor suspendActive so that isTerminated answers true. isTerminated requires that if there is a suspended context it is the bottom-most, but using a send would result in the process's suspendedContext /not/ being the bottom-most." newProcess suspend] asContext; priority: anInteger. ^newProcess Process methods for process state change restart self signalException: ProcessRestart btw, The requirement for the fork in "[Transcript crShow: 'Work > complete.'] fork" > is strange. Without it the semaphore does not wait, which seems a bug. > Is there a missing yield somewhere? > > btw2, I needed to hack OCUndeclaredVariableWarning>>defaultAction to > stop the transcript being polluted by unknown playground variables. No > warranty on whether this is suitable to be permanent... > className = 'UndefinedObject' ifFalse: [ > self methodNode selector ifNotNil: [self crTrace: className, > '>>', selector, ' '] > ifNil: [self traceCr:'']. > self traceCr: '(' , varName , ' is Undeclared1) '. > ]. > > > > > On Thu, Feb 25, 2016 at 2:56 AM, Max Leske <maxleske(a)gmail.com> wrote: > > Fast spawning processes are very hard to debug (e.g. in the process > browser). > > This is exactly the use case I was thinking of. Often they've been > and gone before you even know they are there. Having a permanent > process aids discoverability of system background functionality. > > cheers -ben > > -- _,,,^..^,,,_ best, Eliot

1 0

Where can I find neweer versions of FFI-Examples?
by Eliot Miranda 25 Feb '16

25 Feb '16

I see in http://www.hpi.uni-potsdam.de/hirschfeld/squeaksource/swasqueakinbox/FFI-Ex… the following: Name: FFI-Examples-StS.3 Author: StS Time: 06/16/2010, 10:16:20 UUID: 615f2492-5ba1-408f-bbbe-99925ba5bc30 Ancestors: FFI-Examples-StS.2 What repository is this ending up in? _,,,^..^,,,_ best, Eliot

2 3

The Trunk: MorphicExtras-cmm.169.mcz
by commits＠source.squeak.org 25 Feb '16

25 Feb '16

Chris Muller uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-cmm.169.mcz ==================== Summary ==================== Name: MorphicExtras-cmm.169 Author: cmm Time: 25 February 2016, 11:03:25.153465 am UUID: ac057a2a-213a-42f4-9000-e9cf9513d112 Ancestors: MorphicExtras-kfr.168 Don't DNU when searching Object catalog. =============== Diff against MorphicExtras-kfr.168 =============== Item was changed: ----- Method: TwoWayScrollPane>>colorForInsets (in category 'accessing') ----- colorForInsets "My submorphs use the surrounding color" + owner notNil and: + [ owner color isColor ifTrue: [ ^ owner color ] ]. - - owner color isColor ifTrue:[^ owner color]. ^ Color white!

1 0

← Newer
1
2
3
4
5
6
7
...
21
Older →

Jump to page: