Squeak-dev June 2012

squeak-dev@lists.squeakfoundation.org

41 participants
155 discussions

The Trunk: KernelTests-nice.226.mcz
by commits＠source.squeak.org 07 Jun '12

07 Jun '12

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.226.mcz ==================== Summary ==================== Name: KernelTests-nice.226 Author: nice Time: 7 June 2012, 1:12:48.044 am UUID: d84ccfc2-ae1e-4e9e-b3e1-3382f15c40c0 Ancestors: KernelTests-nice.225 Document #significand, #exponent and #significandAsInteger with some tests. Note that I don't expect an implied leading one in case of exceptional values. Reclassify a few miss-classified Float tests =============== Diff against KernelTests-nice.225 =============== Item was changed: + ----- Method: FloatTest>>testArcTan (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testArcTan (in category 'testing') ----- testArcTan self assert: ((100 arcTan: 100) closeTo: Float pi / 4). self assert: ((-100 arcTan: 100) closeTo: Float pi / -4). self assert: ((100 arcTan: -100) closeTo: Float pi * 3 / 4). self assert: ((-100 arcTan: -100) closeTo: Float pi * -3 / 4). self assert: ((0 arcTan: 100) closeTo: 0). self assert: ((0 arcTan: -100) closeTo: Float pi). self assert: ((100 arcTan: 0) closeTo: Float pi / 2). self assert: ((-100 arcTan: 0) closeTo: Float pi / -2). self assert: ((Float negativeZero arcTan: 100) closeTo: 0). self assert: ((Float negativeZero arcTan: -100) closeTo: Float pi * -1). self assert: (0 arcTan: 0) = 0. self assert: (Float negativeZero arcTan: 0) = 0. self assert: ((0 arcTan: Float negativeZero) closeTo: Float pi). self assert: ((Float negativeZero arcTan: Float negativeZero) closeTo: Float pi negated). ! Item was changed: + ----- Method: FloatTest>>testReciprocal (in category 'testing - arithmetic') ----- - ----- Method: FloatTest>>testReciprocal (in category 'NaN behavior') ----- testReciprocal self assert: 1.0 reciprocal = 1.0; assert: 2.0 reciprocal = 0.5; assert: -1.0 reciprocal = -1.0; assert: -2.0 reciprocal = -0.5. self should: [ 0.0 reciprocal ] raise: ZeroDivide! Item was added: + ----- Method: FloatTest>>testSignificandAndExponent (in category 'characterization') ----- + testSignificandAndExponent + | denormals exceptionals normals | + + normals := {Float pi. Float pi * 100.0. Float pi/ -100.0. Float fmax. Float fminNormalized}. + denormals := {0.0. Float negativeZero. Float fminNormalized predecessor. Float fmin negated}. + exceptionals := {Float nan. Float infinity. Float infinity negated.}. + + normals , denormals , exceptionals do: [:aFloat | + "Any Float can be decomposed into its significand and exponent, and the significand holds the sign" + aFloat isNaN + ifTrue: [self assert: (aFloat significand timesTwoPower: aFloat exponent) isNaN] + ifFalse: [self + assert: (aFloat significand timesTwoPower: aFloat exponent) + equals: aFloat]]. + + normals , denormals do: [:aFloat | + "The significand magnitude is in interval [1.0,2.0( " + aFloat = 0.0 + ifTrue: [self assert: aFloat significand equals: 0] + ifFalse: [self + assert: aFloat significand abs >= 1.0; + assert: aFloat significand abs < 2.0]]! Item was added: + ----- Method: FloatTest>>testSignificandAsInteger (in category 'characterization') ----- + testSignificandAsInteger + | mantissaBits denormalPowersOfTwo denormals exceptionals normalPowersOfTwo normals | + "There are 52 bits used for representing the mantissa (plus an eventual leading 1, see below)" + mantissaBits := Float precision - 1. + + normals := {Float pi. Float pi * 100.0. Float pi/ -100.0. Float fmax. Float fminNormalized}. + denormals := {0.0. Float negativeZero. Float fminNormalized predecessor. Float fmin negated}. + exceptionals := {Float nan. Float infinity. Float infinity negated.}. + normalPowersOfTwo := (-10 to: 10) collect: [:i | 1.0 timesTwoPower: i]. + denormalPowersOfTwo := (Float emin - mantissaBits to: Float emin - 1) collect: [:i | 1.0 timesTwoPower: i]. + + normals do: [:aNormalFloat | + "Assume the mantissa is written in least 52 bits of hex format, with an implied 1 on position 53" + self + assert: (((Integer readFrom: aNormalFloat hex base: 16) bitAnd: 1<<mantissaBits-1) bitOr: 1<<mantissaBits) + equals: aNormalFloat significandAsInteger]. + + denormals , exceptionals do: [:aDenormalOrExceptionalFloat | + "For every other Float, zero, denormal or exceptional, no implied leading one" + self + assert: ((Integer readFrom: aDenormalOrExceptionalFloat hex base: 16) bitAnd: 1<<mantissaBits-1) + equals: aDenormalOrExceptionalFloat significandAsInteger]. + + normalPowersOfTwo do: [:aNormalPowerOfTwoFloat | + "The significand of a power of two is a power of two, with high bit of expected precision" + self assert: aNormalPowerOfTwoFloat significandAsInteger isPowerOfTwo. + self assert: aNormalPowerOfTwoFloat significandAsInteger highBit equals: Float precision. + self assert: aNormalPowerOfTwoFloat successor significandAsInteger equals: aNormalPowerOfTwoFloat significandAsInteger + 1. + "The last one is not true for fminNormalized" + aNormalPowerOfTwoFloat = Float fminNormalized or: [ + self assert: aNormalPowerOfTwoFloat predecessor significandAsInteger equals: aNormalPowerOfTwoFloat significandAsInteger * 2 - 1]]. + + denormalPowersOfTwo do: [:aDenormalPowerOfTwoFloat | + "The significand of a denormal power of two is a power of two, just with less bits" + self assert: aDenormalPowerOfTwoFloat significandAsInteger isPowerOfTwo. + self assert: aDenormalPowerOfTwoFloat significandAsInteger highBit equals: Float precision + aDenormalPowerOfTwoFloat exponent - Float emin. + aDenormalPowerOfTwoFloat successor = Float fminNormalized or: [ + self assert: aDenormalPowerOfTwoFloat successor significandAsInteger equals: aDenormalPowerOfTwoFloat significandAsInteger + 1]. + self assert: aDenormalPowerOfTwoFloat predecessor significandAsInteger equals: aDenormalPowerOfTwoFloat significandAsInteger - 1.]. + + "Well known value for a few extremal cases" + self assert: Float fmax significandAsInteger equals: 1 << Float precision - 1. + self assert: Float fmin significandAsInteger equals: 1. + self assert: 0.0 significandAsInteger equals: 0. + self assert: Float infinity significandAsInteger equals: 0. + self assert: Float nan significandAsInteger > 0! Item was removed: - ----- Method: FloatTest>>testZeroSignificandAsInteger (in category 'zero behavior') ----- - testZeroSignificandAsInteger - "This is about http://bugs.squeak.org/view.php?id=6990" - - self assert: 0.0 significandAsInteger = 0!

1 0

The Trunk: Tools-yo.411.mcz
by commits＠source.squeak.org 07 Jun '12

07 Jun '12

Yoshiki Ohshima uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-yo.411.mcz ==================== Summary ==================== Name: Tools-yo.411 Author: yo Time: 6 June 2012, 4:04:13.28 pm UUID: 1f8d0814-04ac-4aa7-bc64-39a6e292f566 Ancestors: Tools-fbs.410 The list of messages in Change Sorters consistently shows the method category names as opposed to their package names or the method category names when an entry is in a different package. If the method is not in a different package, you can tell its package from the class list. If it is in a different package, you can tell it by looking at the asterisk. So, showing method category names consistently is more helpful. =============== Diff against Tools-fbs.410 =============== Item was changed: ----- Method: ChangeSorter>>messageList (in category 'message list') ----- messageList + | thisClass organization | - | thisClass | (thisClass := self selectedClassOrMetaClass) ifNil: [^ #() ] . + organization := thisClass organization. ^self basicMessageList collect: [ :each | + each asString , (self noteString: (organization categoryOfElement: each))]. - each asString , (self packageNoteForClass: thisClass selector: each) ] . !

1 0

The Trunk: Monticello-cmm.511.mcz
by commits＠source.squeak.org 06 Jun '12

06 Jun '12

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.511.mcz ==================== Summary ==================== Name: Monticello-cmm.511 Author: cmm Time: 6 June 2012, 11:13:18.89 am UUID: 7e15dcac-a840-4a57-8b0b-b6033ef3e0e4 Ancestors: Monticello-bf.510 Strengthen MCSnapshot>>#=. =============== Diff against Monticello-bf.510 =============== Item was changed: ----- Method: MCSnapshot>>= (in category 'accessing') ----- = other + self == other ifTrue: [ ^ true ]. + self species = other species ifFalse: [ ^ false ]. ^ definitions asArray = other definitions asArray!

1 0

How to deprecate a package? (was: deprecate Universes?)
by Chris Muller 06 Jun '12

06 Jun '12

> Good idea, please extract/remove it. What would you say the best way to remove an entire package from the trunk? Just remove it from the update.mcm and unload it as part of the ReleaseBuilder script for the next release?

3 2

Re: [squeak-dev] The Trunk: Collections-dtl.477.mcz
by Bert Freudenberg 06 Jun '12

06 Jun '12

Assuming you uploaded this, David, why do you have Edgar's credentials in your image? Or is our source server confused about your identity? - Bert - On 05.06.2012, at 22:52, commits(a)source.squeak.org wrote: > Edgar J. De Cleene uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-dtl.477.mcz > > ==================== Summary ==================== > > Name: Collections-dtl.477 > Author: dtl > Time: 5 June 2012, 6:52:09.889 pm > UUID: fac99769-10b0-4276-86d6-5ae545cc7c52 > Ancestors: Collections-dtl.476 > > Revert previous change, asSocketAddress belongs in the Network package. > > =============== Diff against Collections-dtl.476 =============== > > Item was removed: > - ----- Method: ByteArray>>asSocketAddress (in category 'converting') ----- > - asSocketAddress > - ^SocketAddress fromOldByteAddress: self! > >

1 0

Re: [squeak-dev] The Inbox: Network-dtl.126.mcz
by David T. Lewis 06 Jun '12

06 Jun '12

I'm not entirely sure if this is consistent with the original intent of the UseOldNetwork flag in NetNameResolver, but in any case it seems to provide a workable solution that should behave reasonably for VMs that do not have the ipv6 network primitives. The approach taken here is that NetNameResolver sets the flag at #startup time, and the network unit tests are expected to give the same results regardless of VM. Currently there are no specific unit tests for the ipv6 functionality, so we should come up with some new tests for this at some point too. I have only tested this on Linux, and it seems like we may be getting different test results on OS X, so any additional testing on Mac and/or Windows would be helpful. Dave On Wed, Jun 06, 2012 at 12:07:38PM +0000, commits(a)source.squeak.org wrote: > A new version of Network was added to project The Inbox: > http://source.squeak.org/inbox/Network-dtl.126.mcz > > ==================== Summary ==================== > > Name: Network-dtl.126 > Author: dtl > Time: 6 June 2012, 8:07:34.782 am > UUID: f6ad35b2-fac8-4cc8-8ca8-1742bd941685 > Ancestors: Network-dtl.125 > > Set the UseOldNetwork flag at image startup if ipv6 primitives are not present in the VM. > > =============== Diff against Network-dtl.125 =============== > > Item was added: > + ----- Method: NetNameResolver class>>hasIpv6PrimSupport (in category 'system startup') ----- > + hasIpv6PrimSupport > + "True if the VM includes the ipv6 primitives" > + ^[NetNameResolver primHostNameSize. true] > + on: Error > + do: [false] > + ! > > Item was changed: > ----- Method: NetNameResolver class>>initialize (in category 'class initialization') ----- > initialize > "NetNameResolver initialize" > "Note: On the Mac, the name resolver is asynchronous (i.e., Squeak can do other things while it is working), but can only handle one request at a time. On other platforms, such as Unix, the resolver is synchronous; a call to, say, the name lookup primitive will block all Squeak processes until it returns." > > "Resolver Status Values" > ResolverUninitialized := 0. "network is not initialized" > ResolverReady := 1. "resolver idle, last request succeeded" > ResolverBusy := 2. "lookup in progress" > ResolverError := 3. "resolver idle, last request failed" > > DefaultHostName := ''. > + > + UseOldNetwork := self hasIpv6PrimSupport not. > + Smalltalk addToStartUpList: self. > + > ! > > Item was added: > + ----- Method: NetNameResolver class>>startUp: (in category 'system startup') ----- > + startUp: resuming > + "Set the UseOldNetwork flag if ipv6 primitives are not present" > + > + resuming ifTrue: [UseOldNetwork := self hasIpv6PrimSupport not]! >

1 0

The Inbox: Network-dtl.126.mcz
by commits＠source.squeak.org 06 Jun '12

06 Jun '12

A new version of Network was added to project The Inbox: http://source.squeak.org/inbox/Network-dtl.126.mcz ==================== Summary ==================== Name: Network-dtl.126 Author: dtl Time: 6 June 2012, 8:07:34.782 am UUID: f6ad35b2-fac8-4cc8-8ca8-1742bd941685 Ancestors: Network-dtl.125 Set the UseOldNetwork flag at image startup if ipv6 primitives are not present in the VM. =============== Diff against Network-dtl.125 =============== Item was added: + ----- Method: NetNameResolver class>>hasIpv6PrimSupport (in category 'system startup') ----- + hasIpv6PrimSupport + "True if the VM includes the ipv6 primitives" + ^[NetNameResolver primHostNameSize. true] + on: Error + do: [false] + ! Item was changed: ----- Method: NetNameResolver class>>initialize (in category 'class initialization') ----- initialize "NetNameResolver initialize" "Note: On the Mac, the name resolver is asynchronous (i.e., Squeak can do other things while it is working), but can only handle one request at a time. On other platforms, such as Unix, the resolver is synchronous; a call to, say, the name lookup primitive will block all Squeak processes until it returns." "Resolver Status Values" ResolverUninitialized := 0. "network is not initialized" ResolverReady := 1. "resolver idle, last request succeeded" ResolverBusy := 2. "lookup in progress" ResolverError := 3. "resolver idle, last request failed" DefaultHostName := ''. + + UseOldNetwork := self hasIpv6PrimSupport not. + Smalltalk addToStartUpList: self. + ! Item was added: + ----- Method: NetNameResolver class>>startUp: (in category 'system startup') ----- + startUp: resuming + "Set the UseOldNetwork flag if ipv6 primitives are not present" + + resuming ifTrue: [UseOldNetwork := self hasIpv6PrimSupport not]!

1 0

Daily Commit Log
by commits＠source.squeak.org 06 Jun '12

06 Jun '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-June/005370.html Name: Collections-dtl.476 Ancestors: Collections-bf.475 Adopt ByteArray>>asSocketAddress from Etoys, required for IPV6 socket updates to follow. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-June/005371.html Name: Collections-dtl.477 Ancestors: Collections-dtl.476 Revert previous change, asSocketAddress belongs in the Network package. =============================================

1 0

The Inbox: Network-dtl.125.mcz
by commits＠source.squeak.org 06 Jun '12

06 Jun '12

A new version of Network was added to project The Inbox: http://source.squeak.org/inbox/Network-dtl.125.mcz ==================== Summary ==================== Name: Network-dtl.125 Author: dtl Time: 5 June 2012, 7:16:12.186 pm UUID: f4e48ec0-15ea-4970-ad81-a6ac01e1699e Ancestors: Network-bf.124 Move ByteArray>>asSocketAddress to Network package =============== Diff against Network-bf.124 =============== Item was added: + ----- Method: ByteArray>>asSocketAddress (in category '*Network-converting') ----- + asSocketAddress + ^SocketAddress fromOldByteAddress: self!

1 0

The Trunk: Collections-dtl.477.mcz
by commits＠source.squeak.org 06 Jun '12

06 Jun '12

Edgar J. De Cleene uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-dtl.477.mcz ==================== Summary ==================== Name: Collections-dtl.477 Author: dtl Time: 5 June 2012, 6:52:09.889 pm UUID: fac99769-10b0-4276-86d6-5ae545cc7c52 Ancestors: Collections-dtl.476 Revert previous change, asSocketAddress belongs in the Network package. =============== Diff against Collections-dtl.476 =============== Item was removed: - ----- Method: ByteArray>>asSocketAddress (in category 'converting') ----- - asSocketAddress - ^SocketAddress fromOldByteAddress: self!

1 0

Jump to page: