Squeak-dev December 2012

squeak-dev@lists.squeakfoundation.org

58 participants
216 discussions

statistics: standard deviation
by Joseph J Alotta 05 Dec '12

05 Dec '12

Does anyone know where I can find methods for statistics, like standard deviation? Regression would be nice also. Sincerely, Joe.

7 8

[ANN] Squeak gets second server from the SFC/Gandi.net
by Chris Cunnington 05 Dec '12

05 Dec '12

I'm happy to announce that the Squeak community is in the process right now of taking possession of a second server courtesy of the Software Freedom Conservancy and Gandi.net. With the servers Squeak has taken possession of over the last six weeks, all services will be moved to a new home. The era where several times a year our servers go down at random is about to end. Chris

1 0

[ANN] Control releases for 4.3, 4.4
by Frank Shearar 05 Dec '12

05 Dec '12

Squeak 4.3 now has a SqueakMap release for Control 1.1. Squeak 4.4 now has a SqueakMap release for Control 1.2.dev. It occurs to me that it might be nice for a new release to result in an automatic [ANN] to squeak-dev? Or at least to an RSS feed (unless SM already does that). frank

1 0

VM as a Xen guest
by Colin Putney 05 Dec '12

05 Dec '12

I wonder if we could do something like this with Squeak. It would be neat if the whole "Smalltalk wants to be a whole operating system" thing could work for us for a change. http://erlangonxen.org/

3 2

Daily Commit Log
by commits＠source.squeak.org 05 Dec '12

05 Dec '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-December/005570.h… Name: Tests-ar.176 Ancestors: Tests-cwp.175 More tests for potential breakage in valueWithin:onTimeout:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-December/005571.h… Name: Kernel-ar.718 Ancestors: Kernel-cmm.717 Fix broken behavior in nested valueWithin:onTimeout: usage. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-December/005572.h… Name: CollectionsTests-ul.194 Ancestors: CollectionsTests-ul.193 Added a new, longer test string to StringTest >> #testBase64 which should fail if String >> #base64Encoded returns multi-line results. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-December/005573.h… Name: Collections-ul.495 Ancestors: Collections-ul.494 The result of String >> #base64Encoded shouldn't contain any white space. =============================================

1 0

[squeak-def] Host Window support (was porposed 4.4 changelog)
by Chris Cunningham 04 Dec '12

04 Dec '12

Hi. I just saw this: * Add host window support, letting you display things in a host window. (Currently only on Windows and Mac.) Apparently I missed this when it happened. Is there a pointer for where to find this (or where to start looking)? As a side note about he changelog - most of the changes listed stand by themselves - probably need little direction of where to go to make use of them. This one (host windows) and the Monticello browsing changes are the only ones that a little more help on how to utilize the changes would be helpful. -Chris

5 4

The Trunk: Collections-ul.495.mcz
by commits＠source.squeak.org 04 Dec '12

04 Dec '12

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.495.mcz ==================== Summary ==================== Name: Collections-ul.495 Author: ul Time: 30 October 2012, 2:12:19.35 am UUID: ae1e71c2-3b27-4dfb-8d35-22e2e2562b79 Ancestors: Collections-ul.494 The result of String >> #base64Encoded shouldn't contain any white space. =============== Diff against Collections-ul.494 =============== Item was changed: ----- Method: String>>base64Encoded (in category 'converting') ----- base64Encoded "Encode the receiver as base64" "'Hello World' base64Encoded" + + ^(Base64MimeConverter + mimeEncode: (ReadStream on: self) + multiLine: false) contents! - ^(Base64MimeConverter mimeEncode: (ReadStream on: self)) contents!

1 0

The Trunk: CollectionsTests-ul.194.mcz
by commits＠source.squeak.org 04 Dec '12

04 Dec '12

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.194.mcz ==================== Summary ==================== Name: CollectionsTests-ul.194 Author: ul Time: 30 October 2012, 2:17:26.486 am UUID: de2b8b9b-a96b-4d8e-bdf9-fdcc41fc4409 Ancestors: CollectionsTests-ul.193 Added a new, longer test string to StringTest >> #testBase64 which should fail if String >> #base64Encoded returns multi-line results. =============== Diff against CollectionsTests-ul.193 =============== Item was changed: ----- Method: StringTest>>testBase64 (in category 'tests - converting') ----- testBase64 + + self + assert: 'SGVsbG8gV29ybGQ=' base64Decoded = 'Hello World'; + assert: 'Hello World' base64Encoded = 'SGVsbG8gV29ybGQ='; + assert: (String new: 100 withAll: $x) base64Encoded = 'eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eA=='! - self assert: 'SGVsbG8gV29ybGQ=' base64Decoded = 'Hello World'. - self assert: 'Hello World' base64Encoded = 'SGVsbG8gV29ybGQ='.!

1 0

The Trunk: Kernel-ar.718.mcz
by commits＠source.squeak.org 04 Dec '12

04 Dec '12

Andreas Raab uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ar.718.mcz ==================== Summary ==================== Name: Kernel-ar.718 Author: ar Time: 4 December 2012, 8:40:21.883 pm UUID: 34faba8b-abd8-a749-b293-9e843f1b1eeb Ancestors: Kernel-cmm.717 Fix broken behavior in nested valueWithin:onTimeout: usage. =============== Diff against Kernel-cmm.717 =============== Item was changed: ----- Method: BlockClosure>>valueWithin:onTimeout: (in category 'evaluating') ----- valueWithin: aDuration onTimeout: timeoutBlock "Evaluate the receiver. If the evaluation does not complete in less than aDuration evaluate the timeoutBlock instead" + | theProcess delay watchdog tag | - | theProcess delay watchdog | aDuration <= Duration zero ifTrue: [^ timeoutBlock value ]. "the block will be executed in the current process" theProcess := Processor activeProcess. delay := aDuration asDelay. + tag := self. "make a watchdog process" watchdog := [ delay wait. "wait for timeout or completion" + theProcess ifNotNil:[ theProcess signalException: (TimedOut new tag: tag)] - theProcess ifNotNil:[ theProcess signalException: TimedOut ] ] newProcess. "Watchdog needs to run at high priority to do its job (but not at timing priority)" watchdog priority: Processor timingPriority-1. "catch the timeout signal" ^ [ watchdog resume. "start up the watchdog" self ensure:[ "evaluate the receiver" theProcess := nil. "it has completed, so ..." delay delaySemaphore signal. "arrange for the watchdog to exit" + ]] on: TimedOut do: [ :e | + e tag == tag + ifTrue:[ timeoutBlock value ] + ifFalse:[ e pass]].! - ]] on: TimedOut do: [ :e | timeoutBlock value ]. - ! Item was changed: ----- Method: BlockContext>>valueWithin:onTimeout: (in category 'evaluating') ----- valueWithin: aDuration onTimeout: timeoutBlock "Evaluate the receiver. If the evaluation does not complete in less than aDuration evaluate the timeoutBlock instead" + | theProcess delay watchdog tag | - | theProcess delay watchdog | aDuration <= Duration zero ifTrue: [^ timeoutBlock value ]. "the block will be executed in the current process" theProcess := Processor activeProcess. delay := aDuration asDelay. + tag := self. "make a watchdog process" watchdog := [ delay wait. "wait for timeout or completion" + theProcess ifNotNil:[ theProcess signalException: (TimedOut new tag: tag)] - theProcess ifNotNil:[ theProcess signalException: TimedOut ] ] newProcess. "Watchdog needs to run at high priority to do its job (but not at timing priority)" watchdog priority: Processor timingPriority-1. "catch the timeout signal" ^ [ watchdog resume. "start up the watchdog" self ensure:[ "evaluate the receiver" theProcess := nil. "it has completed, so ..." delay delaySemaphore signal. "arrange for the watchdog to exit" + ]] on: TimedOut do: [ :e | + e tag == tag + ifTrue:[ timeoutBlock value ] + ifFalse:[ e pass]].! - ]] on: TimedOut do: [ :e | timeoutBlock value ]. - !

1 0

The Trunk: Tests-ar.176.mcz
by commits＠source.squeak.org 04 Dec '12

04 Dec '12

Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ar.176.mcz ==================== Summary ==================== Name: Tests-ar.176 Author: ar Time: 4 December 2012, 8:38:55.713 pm UUID: 21394b1b-43e1-5641-9730-4f18c45e2a27 Ancestors: Tests-cwp.175 More tests for potential breakage in valueWithin:onTimeout:. =============== Diff against Tests-cwp.175 =============== Item was added: + ----- Method: TestValueWithinFix>>testValueWithinTimingBasic (in category 'tests') ----- + testValueWithinTimingBasic + "Test timing of valueWithin:onTimeout:" + | time | + time := [ + [1000 milliSeconds asDelay wait] + valueWithin: 100 milliSeconds onTimeout: [] + ] durationToRun. + self assert: time < 150 milliSeconds.! Item was added: + ----- Method: TestValueWithinFix>>testValueWithinTimingNestedInner (in category 'tests') ----- + testValueWithinTimingNestedInner + "Test nested timing of valueWithin:onTimeout:" + | time | + time := [ + [ + [5 seconds asDelay wait] + valueWithin: 100 milliSeconds onTimeout: [] + ] valueWithin: 500 milliSeconds onTimeout: [] + ] durationToRun. + self assert: time < 150 milliSeconds. + ! Item was added: + ----- Method: TestValueWithinFix>>testValueWithinTimingNestedOuter (in category 'tests') ----- + testValueWithinTimingNestedOuter + "Test nested timing of valueWithin:onTimeout:" + | time | + time := [ + [ + 3 timesRepeat: [ + [5 seconds asDelay wait] + valueWithin: 100 milliSeconds onTimeout: []] + ] valueWithin: 150 milliSeconds onTimeout: [] + ] durationToRun. + self assert: time > 100 milliSeconds. + self assert: time < 200 milliSeconds. + ! Item was added: + ----- Method: TestValueWithinFix>>testValueWithinTimingRepeat (in category 'tests') ----- + testValueWithinTimingRepeat + "Test timing of valueWithin:onTimeout:" + | time | + time := [ + 3 timesRepeat: [ + [500 milliSeconds asDelay wait] + valueWithin: 100 milliSeconds onTimeout: []] + ] durationToRun. + self assert: time < 350 milliSeconds. + !

1 0

Jump to page: