Squeak-dev June 2014

squeak-dev@lists.squeakfoundation.org

41 participants
191 discussions

OpenGL procedural textures generator (by David Faught) for Squeak 4.4
by Nikolay Suslov 09 Jun '14

09 Jun '14

Hello, I have successfully proceeded in running TweakCore on the recent Squeak 4.4 trunk image (from Jenkins). And one of the famous existed applications developed in Tweak is the OpenGL procedural textures generator by David Faught. I make it also loadable to the current Squeak. You could download the ready to run image from here: http://krestianstvo.org/TweakCoreOpenGL-squeak44.zip or execute in the workspace in own image: "1. Load FFI" (Installer repository: 'http://source.squeak.org/FFI' ) install: 'FFI-Pools'; install: 'FFI-Kernel'; install: 'FFI-Tests'.. "2. Load CroquetGL " (Installer repository: 'http://www.squeaksource.com/CroquetGL') install: '3DTransform'; install: 'OpenGL-Pools'; install: 'OpenGL-Core'. "3. Load TweakCore and Procedural textures application for Tweak" (Installer repository: 'http://sdk.krestianstvo.org/sdk/inbox') install: 'tweakcore'; install: 'Tweak-OpenGL-sn.3'. "4. Set the default settings in Tweak" CDefaultWidgetLibrary setDefaultSettings. "5. Run one of two examples" CProjectMorph open: Wrinkle1. "or" CProjectMorph open: Wrinkle2. The attached screenshot shows the running application. Regards, Nikolay

7 9

Re: [squeak-dev] The Inbox: Kernel-nice.857.mcz
by Nicolas Cellier 09 Jun '14

09 Jun '14

Though I'm pretty happy with this solution, this late coding definitely needs more eyes, more tests and advice for rearmHandlerDuring: 2014-06-06 3:57 GMT+02:00 <commits(a)source.squeak.org>: > A new version of Kernel was added to project The Inbox: > http://source.squeak.org/inbox/Kernel-nice.857.mcz > > ==================== Summary ==================== > > Name: Kernel-nice.857 > Author: nice > Time: 6 June 2014, 3:56:46.41 am > UUID: 58fb31c3-1c03-4cf6-80d3-1f51f41f6d95 > Ancestors: Kernel-cmm.855 > > Resolve ExceptionTests>>testHandlerFromAction. > > Implementation details: > > Do so by intercepting any exception raised by the handle block in the > context which is invoking this block (see #handleSignal:) and by allways > propagating this new exception to a previously recorded outerHandler (temp > at: 3). Since this context is above the handlers (on:do:) on the stack, it > just has to be marked as a fake handler (<primitive: 199>) to do its > interceptor/propagator job. > > Do not use (temp at: 3) of handler (on:do:) as a marker of enablement > (true) or temporary disablement (false) during handle block execution, > since this is completely superseded by above mechanism. We should rather > rename the (temp at: 3) as outerHandler and set it to nil. > Since load order counts, and since some #on:do: context down the processes > stacks are not going to die soon, we have equipped #handleSignal: with a > workaround, so this change can wait. > > Attempt to preserve the possibility for an exception to > rearmHandlerDuring: aBlock by temporarily resetting the outerHandler temp > in the interceptorContext (which must be a new inst.var. recorded by the > Exception). > > Alas, the #testHandlerReentrancy is now failing, because it expects an > inner handler to be triggered by an exception raised from an outer handle > block, which is forbidden by above implementation. This test is hardly > compatible with testHandlerFromAction. > > I suggest adding an expected failure to document the change of behavior, > and creating a new test demonstrating how rearmHandlerDuring: could be used. > If we don't find a real interest in this message now that it cannot pass > then intercept, we can as well deprecate it. > > =============== Diff against Kernel-cmm.855 =============== > > Item was changed: > ----- Method: ContextPart>>canHandleSignal: (in category > 'private-exceptions') ----- > canHandleSignal: exception > "Sent to handler (on:do:) contexts only. If my exception class > (first arg) handles exception then return true, otherwise forward this > message to the next handler context. If none left, return false (see > nil>>canHandleSignal:)" > > + ^ (((self tempAt: 1) handles: exception)) > - ^ (((self tempAt: 1) handles: exception) and: [self tempAt: 3]) > or: [self nextHandlerContext canHandleSignal: exception]. > ! > > Item was changed: > ----- Method: ContextPart>>handleSignal: (in category > 'private-exceptions') ----- > handleSignal: exception > + "Sent to handler (on:do:) and propagator (handleSignal:) contexts > only. > + If I am a handler (on:do:), and if my exception class (first arg) > handles exception then execute my handle block (second arg), otherwise > forward this message to the next handler context. If none left, execute > exception's defaultAction (see nil>>handleSignal:). > + If I am a propagator (handleSignal:) I just forward the handling > to the outerHandler (temp at: 3). The propagator is allways above the > handlers on the stack. If an exception occurs while executing the handle > block, it will be intercepted by the propagator and redirected to the > previously recorded outer handler, effectively bypassing all inner and > current handler." > - "Sent to handler (on:do:) contexts only. If my exception class > (first arg) handles exception then execute my handle block (second arg), > otherwise forward this message to the next handler context. If none left, > execute exception's defaultAction (see nil>>handleSignal:)." > > + | val outerHandler | > + <primitive: 199> > + (self tempAt: 3) == true ifTrue: [self tempAt: 3 put: nil]. > "preserve compatibility with old handlerContext" > + ((self tempAt: 1) handles: exception) ifFalse: [ > + ^((self tempAt: 3) ifNil: [self nextHandlerContext]) > handleSignal: exception]. > + > + exception privHandlerContext: self contextTag from: thisContext > contextTag. > + outerHandler := self nextHandlerContext. "disable self and all > inner handlers while executing handle block" > + val := (self tempAt: 2) cull: exception. > - | val | > - (((self tempAt: 1) handles: exception) and: [self tempAt: 3]) > ifFalse: [ > - ^ self nextHandlerContext handleSignal: exception]. > - > - exception privHandlerContext: self contextTag. > - self tempAt: 3 put: false. "disable self while executing handle > block" > - val := [(self tempAt: 2) cull: exception ] > - ensure: [self tempAt: 3 put: true]. > self return: val. "return from self if not otherwise directed in > handle block" > ! > > Item was added: > + ----- Method: ContextPart>>rearmHandler:during: (in category > 'private-exceptions') ----- > + rearmHandler: aHandlerContext during: aBlock > + "Sent to interceptor (handleSignal:) contexts only, with a handler > context (on:do:) parameter. > + Makes aHandlerContext re-entrant for the duration of aBlock. Only > works in a closure-enabled image" > + > + | oldHandler | > + oldHandler := self tempAt: 3. > + ^ [self tempAt: 3 put: aHandlerContext. aBlock value] > + ensure: [self tempAt: 3 put: oldHandler]! > > Item was removed: > - ----- Method: ContextPart>>rearmHandlerDuring: (in category > 'private-exceptions') ----- > - rearmHandlerDuring: aBlock > - "Sent to handler (on:do:) contexts only. Makes me re-entrant for > the duration of aBlock. Only works in a closure-enabled image" > - > - ^ [self tempAt: 3 put: true. aBlock value] > - ensure: [self tempAt: 3 put: false]! > > Item was changed: > Object subclass: #Exception > + instanceVariableNames: 'messageText tag signalContext > handlerContext outerContext interceptorContext' > - instanceVariableNames: 'messageText tag signalContext > handlerContext outerContext' > classVariableNames: '' > poolDictionaries: '' > category: 'Kernel-Exceptions-Kernel'! > > !Exception commentStamp: '<historical>' prior: 0! > This is the main class used to implement the exception handling system > (EHS). It plays two distinct roles: that of the exception, and that of > the exception handler. More specifically, it implements the bulk of the > protocols laid out in the ANSI specification - those protocol names are > reflected in the message categories. > > Exception is an abstract class. Instances should neither be created nor > trapped. In most cases, subclasses should inherit from Error or > Notification rather than directly from Exception. > > In implementing this EHS, The Fourth Estate Inc. incorporated some ideas > and code from Craig Latta's EHS. His insights were crucial in allowing us > to implement BlockContext>>valueUninterruptably (and by extension, #ensure: > and #ifCurtailed:), and we imported the following methods with little or no > modification: > > ContextPart>>terminateTo: > ContextPart>>terminate > MethodContext>>receiver: > MethodContext>>answer: > > Thanks, Craig!!! > > Item was removed: > - ----- Method: Exception>>privHandlerContext: (in category 'priv > handling') ----- > - privHandlerContext: aContextTag > - > - handlerContext := aContextTag! > > Item was added: > + ----- Method: Exception>>privHandlerContext:from: (in category 'priv > handling') ----- > + privHandlerContext: aContextTag from: anotherContextTag > + > + handlerContext := aContextTag. > + interceptorContext := anotherContextTag! > > Item was changed: > ----- Method: Exception>>rearmHandlerDuring: (in category 'handling') > ----- > rearmHandlerDuring: aBlock > "Make the current error handler re-entrant while it is running aBlock. > Only works in a closure-enabled image" > > + ^ interceptorContext rearmHandler: handlerContext during: aBlock! > - ^ handlerContext rearmHandlerDuring: aBlock! > > >

2 4

Re: [Box-Admins] source.squeak.org is down
by David T. Lewis 09 Jun '14

09 Jun '14

For information: There is currently a problem with several services running on squeak.org, including source.squeak.org. Discussion is on the box-admins list, although the web interface to the list archives is also off line. The problem is related to URL mapping, as opposed to the services themselves, and source.squeak.org is currently accessible through http://source.squeak.org:9090. Dave On Mon, Jun 09, 2014 at 07:45:46AM -0400, David T. Lewis wrote: > On Mon, Jun 09, 2014 at 07:29:20AM -0400, David T. Lewis wrote: > > The problem seems to be back. The symptoms that I see are: > > > > - http://source.squeak.org and http://bugs.squeak.org are not responding > > - http://squeak.org is working normally > > - http://source.squeak.org:9090 brings up the source.squeak.org page > > > > Processes are running normally on box2.squeak.org. > > > > The last time this happened, restarting apache2 two times seems to have > > resolved the problem. I will try doing that now. > > > > I have restarted apache a total of three times (sudo /etc/init.d/apache2 restart), > and the problem remains. > > The last time this happened was one week ago, and at the time we noticed > an rsync backup job eating a lot of system resource. That is not the case > right now, but it's possible there is some issue associated with backup > jobs (run from cron) that somehow affects the apache addressing. > > I will probably not be able to take any further action on this today. My > suggestion is that someone (anyone) on box-admins restart the apache2 > service about an hour from now, and keep trying every hour until it decides > to start working. > > Dave > > > > On Mon, Jun 02, 2014 at 02:35:01PM +0200, Tobias Pape wrote: > > > Hi, > > > > > > On 02.06.2014, at 13:18, David T. Lewis <lewis(a)mail.msen.com> wrote: > > > > > > [?] > > > >> > > > >> Thanks Tobias, > > > >> > > > >> I will be away with no easy access to box2 for the next day, so I > > > >> don't want to touch anything that might cause a bigger problem that > > > >> I can't fix. That said ... I don't think the runaway rnapshot process > > > >> is the cause of the problem, although it might be a symptom of something > > > >> else. I can connect to source.squeak.org on 9090 and it works fine, so > > > >> the CPU usage is not directly causing a problem. > > > >> > > > >> I will try restarting apache (sudo /etc/init.d/apache2 restart) and see > > > >> if it helps. > > > >> > > > > > > > > No, that did not fix it. www.squeak.org remains active, but source.squeak.org > > > > and bugs.squeak.org are not available. > > > > > > > > As before, connecting to http://source.squeak.org:9090 brings up the web page > > > > normally. > > > > > > It turns out that apache did not successfully restart. > > > Why, remains a mystery. Yet I now have started it and > > > the pages should be fine again. > > > > > > Best > > > -Tobias > > > > >

2 1

DRAFT: list of accomplishments for SFC for FY-2013
by Chris Muller 08 Jun '14

08 Jun '14

To get the ball rolling, here's a list culled from the prior exchange we had. Let's see if we can stick to our words today and knock this out before next meeting! Expand it, trim it, word-it-up. :) Thanks. - Squeak release 4.5 with the initial alpha implementation of Environments. - Jenkins-bsaed automated builds and testing of the Squeak image. - Tim's new alpha-release of Scratch on the Rasberry Pi was mentioned in Ebon Upton's January 14th blog. http://www.raspberrypi.org/archives/5742. - Craig presented the "State of Squeak" presentation at FOSDEM in Brussels. - Eliot is about to release his first alpha of "Spur", the successor to the vaunted "Cog". Spur will further improve the raw peformance of Squeak applications by another significant factor, and paving the way for 64-bit Squeak VM expected in 2015.

5 4

Question about WebResponse>>#contentStream
by Chris Muller 06 Jun '14

06 Jun '14

While working with Andreas' WebClient today, I couldn't use the #contentStream of the WebResponse because it depends on the state of the retrieval; and since the retrieval had already finished it got a socket-closed error. So instead of simply: myWebResponse contentStream I have to write: myWebResponse content readStream By contrast, the #streamTo:size:progress: checks whether content has been already-retrieved and creates a transient readStream to stream from there, if it has. Wouldn't it be easier and more consistent if #contentStream behaved that way too?

1 0

opening a write-only file
by Douglas McPherson 06 Jun '14

06 Jun '14

Is there a way to open a write-only file in Squeak? On both Mac and Linux attempting to open such a file fails. For example, if you create a write-only file, i.e. in a shell, after cd to default directory echo nada > foo chmod 200 foo Then from Squeak StandardFileStream fileNamed: 'foo' returns nil. If the file is given read permission (i.e. chmod 600 foo) then Squeak can open it. Anyone know a workaround? Thanks, Doug

4 9

SMServer beta update
by Chris Cunnington 06 Jun '14

06 Jun '14

Nothing to see this week, I'm afraid. Not that there nothing happening. Everything I've done so far has been a small hack. Now I have to stand back, figure out how they're going to work together, and then refactor. Have a great weekend, Chris

1 0

The Inbox: Kernel-nice.857.mcz
by commits＠source.squeak.org 06 Jun '14

06 Jun '14

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-nice.857.mcz ==================== Summary ==================== Name: Kernel-nice.857 Author: nice Time: 6 June 2014, 3:56:46.41 am UUID: 58fb31c3-1c03-4cf6-80d3-1f51f41f6d95 Ancestors: Kernel-cmm.855 Resolve ExceptionTests>>testHandlerFromAction. Implementation details: Do so by intercepting any exception raised by the handle block in the context which is invoking this block (see #handleSignal:) and by allways propagating this new exception to a previously recorded outerHandler (temp at: 3). Since this context is above the handlers (on:do:) on the stack, it just has to be marked as a fake handler (<primitive: 199>) to do its interceptor/propagator job. Do not use (temp at: 3) of handler (on:do:) as a marker of enablement (true) or temporary disablement (false) during handle block execution, since this is completely superseded by above mechanism. We should rather rename the (temp at: 3) as outerHandler and set it to nil. Since load order counts, and since some #on:do: context down the processes stacks are not going to die soon, we have equipped #handleSignal: with a workaround, so this change can wait. Attempt to preserve the possibility for an exception to rearmHandlerDuring: aBlock by temporarily resetting the outerHandler temp in the interceptorContext (which must be a new inst.var. recorded by the Exception). Alas, the #testHandlerReentrancy is now failing, because it expects an inner handler to be triggered by an exception raised from an outer handle block, which is forbidden by above implementation. This test is hardly compatible with testHandlerFromAction. I suggest adding an expected failure to document the change of behavior, and creating a new test demonstrating how rearmHandlerDuring: could be used. If we don't find a real interest in this message now that it cannot pass then intercept, we can as well deprecate it. =============== Diff against Kernel-cmm.855 =============== Item was changed: ----- Method: ContextPart>>canHandleSignal: (in category 'private-exceptions') ----- canHandleSignal: exception "Sent to handler (on:do:) contexts only. If my exception class (first arg) handles exception then return true, otherwise forward this message to the next handler context. If none left, return false (see nil>>canHandleSignal:)" + ^ (((self tempAt: 1) handles: exception)) - ^ (((self tempAt: 1) handles: exception) and: [self tempAt: 3]) or: [self nextHandlerContext canHandleSignal: exception]. ! Item was changed: ----- Method: ContextPart>>handleSignal: (in category 'private-exceptions') ----- handleSignal: exception + "Sent to handler (on:do:) and propagator (handleSignal:) contexts only. + If I am a handler (on:do:), and if my exception class (first arg) handles exception then execute my handle block (second arg), otherwise forward this message to the next handler context. If none left, execute exception's defaultAction (see nil>>handleSignal:). + If I am a propagator (handleSignal:) I just forward the handling to the outerHandler (temp at: 3). The propagator is allways above the handlers on the stack. If an exception occurs while executing the handle block, it will be intercepted by the propagator and redirected to the previously recorded outer handler, effectively bypassing all inner and current handler." - "Sent to handler (on:do:) contexts only. If my exception class (first arg) handles exception then execute my handle block (second arg), otherwise forward this message to the next handler context. If none left, execute exception's defaultAction (see nil>>handleSignal:)." + | val outerHandler | + <primitive: 199> + (self tempAt: 3) == true ifTrue: [self tempAt: 3 put: nil]. "preserve compatibility with old handlerContext" + ((self tempAt: 1) handles: exception) ifFalse: [ + ^((self tempAt: 3) ifNil: [self nextHandlerContext]) handleSignal: exception]. + + exception privHandlerContext: self contextTag from: thisContext contextTag. + outerHandler := self nextHandlerContext. "disable self and all inner handlers while executing handle block" + val := (self tempAt: 2) cull: exception. - | val | - (((self tempAt: 1) handles: exception) and: [self tempAt: 3]) ifFalse: [ - ^ self nextHandlerContext handleSignal: exception]. - - exception privHandlerContext: self contextTag. - self tempAt: 3 put: false. "disable self while executing handle block" - val := [(self tempAt: 2) cull: exception ] - ensure: [self tempAt: 3 put: true]. self return: val. "return from self if not otherwise directed in handle block" ! Item was added: + ----- Method: ContextPart>>rearmHandler:during: (in category 'private-exceptions') ----- + rearmHandler: aHandlerContext during: aBlock + "Sent to interceptor (handleSignal:) contexts only, with a handler context (on:do:) parameter. + Makes aHandlerContext re-entrant for the duration of aBlock. Only works in a closure-enabled image" + + | oldHandler | + oldHandler := self tempAt: 3. + ^ [self tempAt: 3 put: aHandlerContext. aBlock value] + ensure: [self tempAt: 3 put: oldHandler]! Item was removed: - ----- Method: ContextPart>>rearmHandlerDuring: (in category 'private-exceptions') ----- - rearmHandlerDuring: aBlock - "Sent to handler (on:do:) contexts only. Makes me re-entrant for the duration of aBlock. Only works in a closure-enabled image" - - ^ [self tempAt: 3 put: true. aBlock value] - ensure: [self tempAt: 3 put: false]! Item was changed: Object subclass: #Exception + instanceVariableNames: 'messageText tag signalContext handlerContext outerContext interceptorContext' - instanceVariableNames: 'messageText tag signalContext handlerContext outerContext' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Exceptions-Kernel'! !Exception commentStamp: '<historical>' prior: 0! This is the main class used to implement the exception handling system (EHS). It plays two distinct roles: that of the exception, and that of the exception handler. More specifically, it implements the bulk of the protocols laid out in the ANSI specification - those protocol names are reflected in the message categories. Exception is an abstract class. Instances should neither be created nor trapped. In most cases, subclasses should inherit from Error or Notification rather than directly from Exception. In implementing this EHS, The Fourth Estate Inc. incorporated some ideas and code from Craig Latta's EHS. His insights were crucial in allowing us to implement BlockContext>>valueUninterruptably (and by extension, #ensure: and #ifCurtailed:), and we imported the following methods with little or no modification: ContextPart>>terminateTo: ContextPart>>terminate MethodContext>>receiver: MethodContext>>answer: Thanks, Craig!!! Item was removed: - ----- Method: Exception>>privHandlerContext: (in category 'priv handling') ----- - privHandlerContext: aContextTag - - handlerContext := aContextTag! Item was added: + ----- Method: Exception>>privHandlerContext:from: (in category 'priv handling') ----- + privHandlerContext: aContextTag from: anotherContextTag + + handlerContext := aContextTag. + interceptorContext := anotherContextTag! Item was changed: ----- Method: Exception>>rearmHandlerDuring: (in category 'handling') ----- rearmHandlerDuring: aBlock "Make the current error handler re-entrant while it is running aBlock. Only works in a closure-enabled image" + ^ interceptorContext rearmHandler: handlerContext during: aBlock! - ^ handlerContext rearmHandlerDuring: aBlock!

1 0

Re: [squeak-dev] The Inbox: Kernel-nice.856.mcz
by Nicolas Cellier 06 Jun '14

06 Jun '14

This change resolved the failing test for me, and I did not yet find what else it may break... In this danger zone, more eyes are required, so up to you to refute the method :) 2014-06-05 23:11 GMT+02:00 <commits(a)source.squeak.org>: > A new version of Kernel was added to project The Inbox: > http://source.squeak.org/inbox/Kernel-nice.856.mcz > > ==================== Summary ==================== > > Name: Kernel-nice.856 > Author: nice > Time: 5 June 2014, 11:11:07.752 pm > UUID: 44668d33-00c2-4e36-b95b-69d83b0d7544 > Ancestors: Kernel-cmm.855 > > Attempt to fix ExceptionTests>>#testHandlerFromAction. > When the handler does not handle an Exception, simply mark the handler > context as inactive (self tempAt: 3 put: false). > > =============== Diff against Kernel-cmm.855 =============== > > Item was changed: > ----- Method: ContextPart>>handleSignal: (in category > 'private-exceptions') ----- > handleSignal: exception > "Sent to handler (on:do:) contexts only. If my exception class > (first arg) handles exception then execute my handle block (second arg), > otherwise forward this message to the next handler context. If none left, > execute exception's defaultAction (see nil>>handleSignal:)." > > | val | > + ((((self tempAt: 1) handles: exception) or: [self tempAt: 3 put: > false]) > + and: [self tempAt: 3]) ifFalse: [ > - (((self tempAt: 1) handles: exception) and: [self tempAt: 3]) > ifFalse: [ > ^ self nextHandlerContext handleSignal: exception]. > > exception privHandlerContext: self contextTag. > self tempAt: 3 put: false. "disable self while executing handle > block" > val := [(self tempAt: 2) cull: exception ] > ensure: [self tempAt: 3 put: true]. > self return: val. "return from self if not otherwise directed in > handle block" > ! > > >

1 2

The Inbox: Kernel-nice.856.mcz
by commits＠source.squeak.org 05 Jun '14

05 Jun '14

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-nice.856.mcz ==================== Summary ==================== Name: Kernel-nice.856 Author: nice Time: 5 June 2014, 11:11:07.752 pm UUID: 44668d33-00c2-4e36-b95b-69d83b0d7544 Ancestors: Kernel-cmm.855 Attempt to fix ExceptionTests>>#testHandlerFromAction. When the handler does not handle an Exception, simply mark the handler context as inactive (self tempAt: 3 put: false). =============== Diff against Kernel-cmm.855 =============== Item was changed: ----- Method: ContextPart>>handleSignal: (in category 'private-exceptions') ----- handleSignal: exception "Sent to handler (on:do:) contexts only. If my exception class (first arg) handles exception then execute my handle block (second arg), otherwise forward this message to the next handler context. If none left, execute exception's defaultAction (see nil>>handleSignal:)." | val | + ((((self tempAt: 1) handles: exception) or: [self tempAt: 3 put: false]) + and: [self tempAt: 3]) ifFalse: [ - (((self tempAt: 1) handles: exception) and: [self tempAt: 3]) ifFalse: [ ^ self nextHandlerContext handleSignal: exception]. exception privHandlerContext: self contextTag. self tempAt: 3 put: false. "disable self while executing handle block" val := [(self tempAt: 2) cull: exception ] ensure: [self tempAt: 3 put: true]. self return: val. "return from self if not otherwise directed in handle block" !

1 0

Jump to page: