Packages October 2010

packages@lists.squeakfoundation.org

2 participants
204 discussions

The Trunk: Collections-ul.399.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.399.mcz ==================== Summary ==================== Name: Collections-ul.399 Author: ul Time: 31 October 2010, 11:36:48.538 pm UUID: d9152061-bf6c-eb4a-8a87-4a9bef73ea7e Ancestors: Collections-ul.398 - added a postscript to apply the changes =============== Diff against Collections-ul.398 =============== Item was changed: + (PackageInfo named: 'Collections') postscript: 'WeakRegistry allInstancesDo: [ :each | each installFinalizer ]'! - (PackageInfo named: 'Collections') postscript: 'WeakFinalizationRegistry migrateOldRegistries'!

1 0

The Trunk: Collections-ul.399.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

1 0

The Trunk: Collections-ul.399.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

1 0

The Trunk: Collections-ul.398.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.398.mcz ==================== Summary ==================== Name: Collections-ul.398 Author: ul Time: 31 October 2010, 10:06:44.386 pm UUID: a696b0b6-1bd2-dc45-9606-33aebcfdc74c Ancestors: Collections-ar.397 - restore the behavior of the old finalization scheme =============== Diff against Collections-ar.397 =============== Item was changed: Collection subclass: #WeakRegistry + instanceVariableNames: 'list valueDictionary sema executors' - instanceVariableNames: 'list valueDictionary sema' classVariableNames: 'Default' poolDictionaries: '' category: 'Collections-Weak'! !WeakRegistry commentStamp: 'ul 9/26/2010 02:51' prior: 0! I am a registry for objects needing finalization. When an object is added the object as well as its executor is stored. When the object is garbage collected, the executor can take the appropriate action for any resources associated with the object. This kind of WeakRegistry is using a new VM feature, which allows a more robust finalization support. In contrast to the old implementation, it doesn't spend linear time checking which elements became garbage. See also: Object executor Object actAsExecutor Object finalize! Item was changed: ----- Method: WeakRegistry>>finalizeValues (in category 'finalization') ----- finalizeValues "Finalize any values, which happen to stocked in our list, due to some weak references become garbage" | finalizer | - WeakFinalizationList hasNewFinalization ifFalse: [ + self protected: [ + valueDictionary finalizeValues. + finalizer := executors. + executors := nil ]. + finalizer ifNotNil: [ + finalizer do: [ :each | each finalizeValues ] ]. - self protected: [ valueDictionary finalizeValues ]. ^ self ]. + finalizer := self protected: [ list swapWithNil ]. - self protected: [ finalizer := list swapWithNil ]. "We don't need to protect a following loop from concurrent access, because at the moment we're finalizing values, only we can access this list of finalizers, because valueDictionary already see them as an unused slots, because they're associated with key == nil" [ finalizer notNil ] whileTrue: [ | next | next := finalizer next. finalizer finalizeValues. + finalizer := next ]. - finalizer := next - ]. ! Item was changed: ----- Method: WeakRegistry>>installFinalizer (in category 'initialize-release') ----- installFinalizer + valueDictionary finalizer: [ :executor | + WeakFinalizationList hasNewFinalization + ifTrue: [ executor finalizeValues ] + ifFalse: [ + (executors ifNil: [ executors := OrderedCollection new ]) add: executor ] ]! - valueDictionary finalizer: #finalizeValues!

1 0

The Trunk: Collections-ul.398.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

1 0

The Trunk: Collections-ul.398.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

1 0

The Trunk: Kernel-nice.510.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.510.mcz ==================== Summary ==================== Name: Kernel-nice.510 Author: nice Time: 31 October 2010, 10:25:03.794 pm UUID: 80b9fa44-3abc-4414-adae-10f3f03b0420 Ancestors: Kernel-ul.509 Provide an implementation of #degreeCos and #degreeSin such that results are exact for any multiple of 90. Care is also taken to evaluate the sine between -90° and 90°, this will avoid #degreesToRadians and i386 FPU sine fonction to accumulate round off errors due to approximate representation of pi. We can thus evaluate 240 degreeCos with at most 1 ulp error. It's not perfect, but better than previous implementation. For cosine, we know that: cosd(x)=cosd(abs(x)) cosd(x)=sind(90-x) thus the trick is to evaluate: cosd(x)=sind(90-abs(x)) after appropriate modulo in [-180,180[ This way, we are sure to evaluate the sine between -90° and 90° The #degreesToRadians and #sin are used rather than #degreeSin to avoid cycles. For sine, it would be necessary to evaluate either sind(x) if abs(x) <=90 or sind(180-x) if abs(x) >= 90 A possible implementation would be: | x | x := 90 + self \\ 360 - 90. x >= 180 ifTrue: [x := 180 - x]. ^x degreesToRadians sin We prefer evaluating cosd(90-x) thus providing a branch free implementation. =============== Diff against Kernel-ul.509 =============== Item was changed: ----- Method: Float>>degreeCos (in category 'mathematical functions') ----- degreeCos + "Take care of exceptional values" + + self isFinite ifTrue: [^super degreeCos]. + ^self radiansToDegrees cos! - "Answer the cosine of the receiver taken as an angle in degrees." - - ^ self degreesToRadians cos! Item was changed: ----- Method: Float>>degreeSin (in category 'mathematical functions') ----- degreeSin + "Take care of exceptional values" + + self isFinite ifTrue: [^super degreeSin]. + ^self radiansToDegrees sin! - "Answer the sine of the receiver taken as an angle in degrees." - - ^ self degreesToRadians sin! Item was changed: ----- Method: Number>>degreeCos (in category 'mathematical functions') ----- degreeCos "Answer the cosine of the receiver taken as an angle in degrees." + ^ (90 - (180 + self \\ 360 - 180) abs) degreesToRadians sin! - ^ (90 + self) degreeSin! Item was changed: ----- Method: Number>>degreeSin (in category 'mathematical functions') ----- degreeSin "Answer the sine of the receiver taken as an angle in degrees." + ^(90 - self) degreeCos! - ^ self asFloat degreesToRadians sin!

1 0

The Trunk: Kernel-nice.510.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

1 0

The Trunk: Kernel-nice.510.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

1 0

The Trunk: KernelTests-nice.167.mcz
by commits＠source.squeak.org 31 Oct '10

31 Oct '10

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.167.mcz ==================== Summary ==================== Name: KernelTests-nice.167 Author: nice Time: 31 October 2010, 9:55:18.943 pm UUID: 669b4442-43de-4da0-83d3-649e77bca967 Ancestors: KernelTests-nice.166 Assert that #degreeCos and #degreeSin are exact for any multiple of 90. This is a nice property to have that radianCos and radianSin cannot afford due to approximate floating point representation of pi. =============== Diff against KernelTests-nice.166 =============== Item was added: + ----- Method: FloatTest>>testDegreeCos (in category 'test - mathematical functions') ----- + testDegreeCos + self shouldnt: [ 45.0 degreeCos] raise: Error. + "Following tests use approximate equality, because cosine are generally evaluated using inexact Floating point arithmetic" + self assert: (45.0 degreeCos squared - 0.5) abs <= Float epsilon. + self assert: (60.0 degreeCos - 0.5) abs <= Float epsilon. + self assert: (120.0 degreeCos + 0.5) abs <= Float epsilon. + -360.0 to: 360.0 do: [:i | + self assert: (i degreeCos closeTo: i degreesToRadians cos)]. + + "Following tests use strict equality which is a requested property of degreeCos" + -10.0 to: 10.0 do: [:k | + self assert: (k*360 + 90) degreeCos = 0. + self assert: (k*360 - 90) degreeCos = 0. + self assert: (k*360 + 180) degreeCos + 1 = 0. + self assert: (k*360) degreeCos - 1 = 0.].! Item was added: + ----- Method: FloatTest>>testDegreeCosForExceptionalValues (in category 'test - mathematical functions') ----- + testDegreeCosForExceptionalValues + self assert: Float nan degreeCos isNaN. + self assert: Float infinity degreeCos isNaN. + self assert: Float infinity negated degreeCos isNaN.! Item was added: + ----- Method: FloatTest>>testDegreeSin (in category 'test - mathematical functions') ----- + testDegreeSin + self shouldnt: [ 45.0 degreeSin] raise: Error. + "Following tests use approximate equality, because sine are generally evaluated using inexact Floating point arithmetic" + self assert: (45.0 degreeSin squared - 0.5) abs <= Float epsilon. + self assert: (30.0 degreeSin - 0.5) abs <= Float epsilon. + self assert: (-30.0 degreeSin + 0.5) abs <= Float epsilon. + -360.0 to: 360.0 do: [:i | + self assert: (i degreeSin closeTo: i degreesToRadians sin)]. + + "Following tests use strict equality which is a requested property of degreeSin" + -10.0 to: 10.0 do: [:k | + self assert: (k*360 + 90) degreeSin - 1 = 0. + self assert: (k*360 - 90) degreeSin + 1= 0. + self assert: (k*360 + 180) degreeSin = 0. + self assert: (k*360) degreeSin = 0.].! Item was added: + ----- Method: FloatTest>>testDegreeSinForExceptionalValues (in category 'test - mathematical functions') ----- + testDegreeSinForExceptionalValues + self assert: Float nan degreeSin isNaN. + self assert: Float infinity degreeSin isNaN. + self assert: Float infinity negated degreeSin isNaN.! Item was changed: + ----- Method: FractionTest>>testDegreeCos (in category 'tests - mathematical functions') ----- - ----- Method: FractionTest>>testDegreeCos (in category 'tests - sinuses') ----- testDegreeCos "self run: #testDegreeCos" self shouldnt: [ (4/3) degreeCos] raise: Error. + -361/3 to: 359/3 do: [:i | + self assert: (i degreeCos closeTo: i degreesToRadians cos)].! - self assert: (1/3) degreeCos printString = '0.999983076857744'! Item was changed: + ----- Method: FractionTest>>testDegreeSin (in category 'tests - mathematical functions') ----- - ----- Method: FractionTest>>testDegreeSin (in category 'tests - sinuses') ----- testDegreeSin "self run: #testDegreeSin" self shouldnt: [ (4/3) degreeSin] raise: Error. + -361/3 to: 359/3 do: [:i | + self assert: (i degreeSin closeTo: i degreesToRadians sin)].! - self assert: (1/3) degreeSin printString = '0.005817731354993834'.! Item was changed: + ----- Method: IntegerTest>>testDegreeCos (in category 'tests - mathematical functions') ----- - ----- Method: IntegerTest>>testDegreeCos (in category 'tests - basic') ----- testDegreeCos "self run: #testDegreeCos" self shouldnt: [ 45 degreeCos] raise: Error. + "Following tests use approximate equality, because cosine are generally evaluated using inexact Floating point arithmetic" + self assert: (45 degreeCos squared - (1/2)) abs <= Float epsilon. + self assert: (60 degreeCos - (1/2)) abs <= Float epsilon. + self assert: (120 degreeCos + (1/2)) abs <= Float epsilon. + -360 to: 360 do: [:i | + self assert: (i degreeCos closeTo: i degreesToRadians cos)]. + + "Following tests use strict equality which is a requested property of degreeCos" + -10 to: 10 do: [:k | + self assert: (k*360 + 90) degreeCos = 0. + self assert: (k*360 - 90) degreeCos = 0. + self assert: (k*360 + 180) degreeCos + 1 = 0. + self assert: (k*360) degreeCos - 1 = 0.].! - self assert: 45 degreeCos printString = (2 sqrt / 2) asFloat printString ! Item was added: + ----- Method: IntegerTest>>testDegreeSin (in category 'tests - mathematical functions') ----- + testDegreeSin + "self run: #testDegreeSin" + + self shouldnt: [ 45 degreeSin] raise: Error. + + "Following tests use approximate equality, because sine are generally evaluated using inexact Floating point arithmetic" + self assert: (45 degreeSin squared - (1/2)) abs <= Float epsilon. + self assert: (30 degreeSin - (1/2)) abs <= Float epsilon. + self assert: (-30 degreeSin + (1/2)) abs <= Float epsilon. + -360 to: 360 do: [:i | + self assert: (i degreeSin closeTo: i degreesToRadians sin)]. + + "Following tests use strict equality which is a requested property of degreeSin" + -10 to: 10 do: [:k | + self assert: (k*360 + 90) degreeSin - 1 = 0. + self assert: (k*360 - 90) degreeSin + 1= 0. + self assert: (k*360 + 180) degreeSin = 0. + self assert: (k*360) degreeSin = 0].!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2010