Packages October 2011

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Kernel-ael.643.mcz
by commits＠source.squeak.org 20 Oct '11

20 Oct '11

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ael.643.mcz ==================== Summary ==================== Name: Kernel-ael.643 Author: ael Time: 19 October 2011, 4:09:37.67 pm UUID: 1fb9163b-7fc4-7946-a812-27626936cc50 Ancestors: Kernel-nice.642 Proposed change for enabling both Yellow and Blue buttons from a two-button mouse in Cog VM =============== Diff against Kernel-nice.642 =============== Item was changed: ----- Method: EventSensor>>processEvent: (in category 'private-I/O') ----- processEvent: evt "Process a single event. This method is run at high priority." + | type buttons | - | type | type := evt at: 1. "Tackle mouse events first" type = EventTypeMouse + ifTrue: [buttons := (ButtonDecodeTable at: (evt at: 5) + 1). + evt at: 5 put: (Smalltalk platformName = 'Mac OS' + ifTrue: [ buttons ] + ifFalse: [ self mapButtons: buttons modifiers: (evt at: 6) ]). - ifTrue: [evt - at: 5 - put: (ButtonDecodeTable at: (evt at: 5) - + 1). self queueEvent: evt. self processMouseEvent: evt . ^self]. "Store the event in the queue if there's any" type = EventTypeKeyboard ifTrue: [ "Check if the event is a user interrupt" ((evt at: 4) = 0 and: [((evt at: 3) bitOr: (((evt at: 5) bitAnd: 8) bitShift: 8)) = interruptKey]) ifTrue: ["interrupt key is meta - not reported as event" ^ interruptSemaphore signal]. "Else swap ctrl/alt keys if neeeded. Look at the Unicode char first, then ascii." KeyDecodeTable at: {evt at: 6. evt at: 5} ifPresent: [:a | evt at: 6 put: a first; at: 5 put: a second]. KeyDecodeTable at: {evt at: 3. evt at: 5} ifPresent: [:a | evt at: 3 put: a first; at: 5 put: a second]. self queueEvent: evt. self processKeyboardEvent: evt . ^self ]. "Handle all events other than Keyborad or Mouse." self queueEvent: evt. !

1 0

The Trunk: Kernel-ael.643.mcz
by commits＠source.squeak.org 20 Oct '11

20 Oct '11

1 0

The Trunk: Kernel-ael.643.mcz
by commits＠source.squeak.org 20 Oct '11

20 Oct '11

1 0

The Trunk: Kernel-nice.642.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.642.mcz ==================== Summary ==================== Name: Kernel-nice.642 Author: nice Time: 19 October 2011, 10:11:56.9 pm UUID: 26bbac76-79b8-4600-ac86-f60a02ad6da3 Ancestors: Kernel-nice.641 Correct my own bugs, (-3/2) log should raise a DomainError, not an infinite loop... =============== Diff against Kernel-nice.641 =============== Item was changed: ----- Method: Fraction>>ln (in category 'mathematical functions') ----- ln "This function is defined because super ln might overflow. Note that < 1 is tested before converting to float in order to avoid precision loss due to gradual underflow." | res int | - self < 1 ifTrue: [^self reciprocal ln negated]. self <= 0 ifTrue: [DomainError signal: 'ln is only defined for x > 0']. + self < 1 ifTrue: [^self reciprocal ln negated]. res := super ln. res isFinite ifTrue: [^res]. int := self integerPart. ^int ln + (self / int) ln! Item was changed: ----- Method: Fraction>>log (in category 'mathematical functions') ----- log "This function is defined because super log might overflow. Note that < 1 is tested before converting to float in order to avoid precision loss due to gradual underflow." | res int | - self < 1 ifTrue: [^self reciprocal log negated]. self <= 0 ifTrue: [DomainError signal: 'log is only defined for x > 0']. + self < 1 ifTrue: [^self reciprocal log negated]. res := super log. res isFinite ifTrue: [^res]. int := self integerPart. ^int log + (self / int) log!

1 0

The Trunk: Kernel-nice.642.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

1 0

The Trunk: Kernel-nice.642.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

1 0

The Trunk: KernelTests-nice.206.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.206.mcz ==================== Summary ==================== Name: KernelTests-nice.206 Author: nice Time: 19 October 2011, 9:05:49.567 pm UUID: f0d273b9-8a0e-4689-8c36-ecd3b6c75f33 Ancestors: KernelTests-nice.205 More tests for #nthRoot: and #nthRootTruncated: =============== Diff against KernelTests-nice.205 =============== Item was added: + ----- Method: FractionTest>>testNthRoot (in category 'tests - mathematical functions') ----- + testNthRoot + self assert: ((-2 raisedTo: 35) / (3 raisedTo: 20) raisedTo: 1/5) equals: (-2 raisedTo: 7) / (3 raisedTo: 4). + self assert: (1 / (1 << 2000) raisedTo: 1/100) equals: 1 / (1 << 20)! Item was added: + ----- Method: IntegerTest>>testNthRoot (in category 'tests - mathematical functions') ----- + testNthRoot + + self shouldnt: [ (1 << 2000 nthRoot: 100) ] raise: ArithmeticError. + self assert: (1 << 2000 nthRoot: 100) equals: 1 << 20! Item was added: + ----- Method: IntegerTest>>testNthRootTruncated (in category 'tests - mathematical functions') ----- + testNthRootTruncated + <timeout: 5 "seconds"> + | tooBigToBeAFloat large | + tooBigToBeAFloat := 1 << 2000. + self assert: (tooBigToBeAFloat nthRootTruncated: 100) equals: 1 << 20. + self assert: (tooBigToBeAFloat + 1 nthRootTruncated: 100) equals: 1 << 20. + self assert: (tooBigToBeAFloat - 1 nthRootTruncated: 100) equals: 1 << 20 - 1. + + large := -3 raisedTo: 255. + self assert: (large nthRootTruncated: 17) equals: (-3 raisedTo: 15). + self assert: (large + 11 nthRootTruncated: 17) equals: (-3 raisedTo: 15) + 1. + self assert: (large - 11 nthRootTruncated: 17) equals: (-3 raisedTo: 15). + + 2 to: 10 do: [:thePower | + 1 to: 10000 do: [:n | + | theTruncatedRoot | + theTruncatedRoot := n nthRootTruncated: thePower. + self assert: (theTruncatedRoot raisedTo: thePower) <= n. + self assert: (theTruncatedRoot + 1 raisedTo: thePower) > n]]!

1 0

The Trunk: KernelTests-nice.206.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

1 0

The Trunk: KernelTests-nice.206.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

1 0

The Trunk: Kernel-nice.641.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.641.mcz ==================== Summary ==================== Name: Kernel-nice.641 Author: nice Time: 19 October 2011, 8:44:12.297 pm UUID: e31730ef-2db4-42e3-aa0e-299e45c955ac Ancestors: Kernel-nice.640 Correct #nthRootTruncated: (it did call #nthRootFloor:) Let #nthRoot: retry in exact arithmetic if ever Float overflows. =============== Diff against Kernel-nice.640 =============== Item was changed: ----- Method: Integer>>nthRoot: (in category 'mathematical functions') ----- nthRoot: aPositiveInteger "Answer the nth root of the receiver." | selfAsFloat floatResult guess raised higher lower delta | selfAsFloat := self asFloat. floatResult := selfAsFloat nthRoot: aPositiveInteger. + "If we can't do Float arithmetic, then look for an exact answer in exact arithmetic" - "If we can't do Float arithmetic, currently we can't look for an exact answer" floatResult isInfinite ifTrue: [ + guess := self nthRootTruncated: aPositiveInteger. + (guess raisedToInteger: aPositiveInteger) = self ifTrue: [^guess]. ^floatResult ]. guess := floatResult rounded. "If got an exact answer, answer it." raised := guess raisedToInteger: aPositiveInteger. raised = self ifTrue: [ ^ guess ]. "In this case, maybe it failed because we are such a big integer that the Float method gets inexact, even if we are a whole square number. Note (jmv): The algorithms I found for computing the nthRoot would havily use very large fractions. I wrote this one, that doesn't create fractions." selfAsFloat abs >= (Float maxExactInteger asFloat raisedToInteger: aPositiveInteger) ifTrue: [ raised > self ifTrue: [ higher := guess. delta := floatResult predecessor - floatResult. [ floatResult := floatResult + delta. lower := floatResult rounded. (lower raisedToInteger: aPositiveInteger) > self ] whileTrue: [ delta := delta * 2. higher := lower ] ] ifFalse: [ lower := guess. delta := floatResult successor - floatResult. [ floatResult := floatResult + delta. higher := floatResult rounded. (higher raisedToInteger: aPositiveInteger) < self ] whileTrue: [ delta := delta * 2. lower := higher ]]. [ higher - lower > 1 ] whileTrue: [ guess := lower + higher // 2. raised := guess raisedToInteger: aPositiveInteger. raised = self ifTrue: [ ^ guess ]. raised > self ifTrue: [ higher := guess ] ifFalse: [ lower := guess ]]]. "We need an approximate result" ^floatResult! Item was changed: ----- Method: Integer>>nthRootTruncated: (in category 'mathematical functions') ----- nthRootTruncated: aPositiveInteger "Answer the integer part of the nth root of the receiver." | guess guessToTheNthMinusOne delta | self = 0 ifTrue: [^0]. self negative ifTrue: [aPositiveInteger even ifTrue: [ ArithmeticError signal: 'Negative numbers don''t have even roots.' ]. + ^(self negated nthRootTruncated: aPositiveInteger) negated]. - ^(self negated nthRootFloor: aPositiveInteger) negated]. guess := 1 bitShift: self highBitOfMagnitude + aPositiveInteger - 1 // aPositiveInteger. [ guessToTheNthMinusOne := guess raisedTo: aPositiveInteger - 1. delta := (guess * guessToTheNthMinusOne - self) // (guessToTheNthMinusOne * aPositiveInteger). delta = 0 ] whileFalse: [ guess := guess - delta ]. ( (guess := guess - 1) raisedTo: aPositiveInteger) > self ifTrue: [ guess := guess - 1 ]. ^guess!

1 0

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

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 2011