Packages March 2014

packages@lists.squeakfoundation.org

1 participants
99 discussions

The Trunk: ShoutCore-nice.41.mcz
by commits＠source.squeak.org 14 Mar '14

14 Mar '14

Nicolas Cellier uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-nice.41.mcz ==================== Summary ==================== Name: ShoutCore-nice.41 Author: nice Time: 14 March 2014, 11:13:43.751 pm UUID: 3974817a-996f-4fa8-b397-d727f7c27542 Ancestors: ShoutCore-cwp.40 There can be more characters after a vertical bar (|) in a binary selector for a while now, tell Shout about it. =============== Diff against ShoutCore-cwp.40 =============== Item was changed: ----- Method: SHParserST80>>scanBinary (in category 'scan') ----- scanBinary | c d | c := self currentChar. currentTokenSourcePosition := sourcePosition. currentToken := c asString. d := self nextChar. ((self isSelectorCharacter: c) or: [c == $:]) ifFalse: [^currentToken]. (c == $: and: [d == $=]) ifTrue: [" := assignment" currentToken := currentToken , d asString. self nextChar. ^currentToken]. - c == $| ifTrue:["| cannot precede a longer token" ^currentToken]. [self isSelectorCharacter: d] whileTrue: [ currentToken := currentToken , d asString. d := self nextChar]. ^currentToken!

1 0

The Trunk: Kernel-nice.841.mcz
by commits＠source.squeak.org 13 Mar '14

13 Mar '14

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.841.mcz ==================== Summary ==================== Name: Kernel-nice.841 Author: nice Time: 13 March 2014, 2:58:18.732 am UUID: e651c760-2924-469e-874b-deafb85737a0 Ancestors: Kernel-nice.840 Provide a somehow slower, but correct version of Integer>>#nthRoot: w.r.t. exactness =============== Diff against Kernel-nice.840 =============== Item was changed: ----- Method: Integer>>nthRoot: (in category 'mathematical functions') ----- nthRoot: aPositiveInteger "Answer the nth root of the receiver. + Answer an Integer if root is exactly this Integer, else answer the Float nearest the exact root." - See #nthRootAlt: for an alternative implementation." + | guess p | - | selfAsFloat floatResult guess delta higher lower raised | - selfAsFloat := self asFloat. + guess := self nthRootRounded: aPositiveInteger. + (guess raisedTo: aPositiveInteger) = self - "If we can't do Float arithmetic because we are too big, then look for an exact answer in exact arithmetic" - selfAsFloat isInfinite ifTrue: [ - guess := self nthRootTruncated: aPositiveInteger. - (guess raisedToInteger: aPositiveInteger) = self - ifTrue: [ ^ guess ]. - "Nothing else can be done. No exact answer means answer must be a Float. - Answer the best we have." - ^guess asFloat ]. - - floatResult := selfAsFloat nthRoot: aPositiveInteger. - guess := floatResult rounded. - - "If got an exact answer, answer it." - raised := guess raisedToInteger: aPositiveInteger. - raised = self ifTrue: [ ^ guess ]. + p := Float precision - guess highBitOfMagnitude. + p < 0 ifTrue: [ ^ guess asFloat ]. - "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 1(jmv): This algorithm is faster than #nthRootTruncated: for big n (aPositiveInteger) - but fails if self asFloat isInfinite. - Note 2(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 ]]]. + guess := self << (p * aPositiveInteger) nthRootRounded: aPositiveInteger. + ^(guess / (1 << p)) asFloat! - "We need an approximate result" - ^floatResult! Item was added: + ----- Method: Integer>>nthRootRounded: (in category 'mathematical functions') ----- + nthRootRounded: aPositiveInteger + "Answer the integer nearest the nth root of the receiver." + | guess | + self = 0 ifTrue: [^0]. + self negative + ifTrue: + [aPositiveInteger even ifTrue: [ ArithmeticError signal: 'Negative numbers don''t have even roots.' ]. + ^(self negated nthRootRounded: aPositiveInteger) negated]. + guess := self nthRootTruncated: aPositiveInteger. + ^self * 2 > ((guess + 1 raisedTo: aPositiveInteger) + (guess raisedTo: aPositiveInteger)) + ifTrue: [guess + 1] + ifFalse: [guess]!

1 0

The Trunk: Kernel-nice.841.mcz
by commits＠source.squeak.org 13 Mar '14

13 Mar '14

1 0

The Trunk: Kernel-nice.841.mcz
by commits＠source.squeak.org 13 Mar '14

13 Mar '14

1 0

The Trunk: KernelTests-nice.262.mcz
by commits＠source.squeak.org 13 Mar '14

13 Mar '14

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.262.mcz ==================== Summary ==================== Name: KernelTests-nice.262 Author: nice Time: 13 March 2014, 1:52:32.328 am UUID: c70b95a4-48a3-47aa-b9e8-b6abdbf8004f Ancestors: KernelTests-nice.261 Assert that nthRoot is exact on more cases. Note how current implementation fails. =============== Diff against KernelTests-nice.261 =============== Item was added: + ----- Method: IntegerTest>>testNthRootExactness (in category 'tests - mathematical functions') ----- + testNthRootExactness + | inexactRoots largeExactPowersOf6 | + largeExactPowersOf6 := (2 to: 100) collect: [:k | k raisedTo: 66]. + inexactRoots := largeExactPowersOf6 reject: [:e | (e nthRoot: 6) isInteger]. + self assert: inexactRoots isEmpty description: 'Failed to find the exact 6th root of these numbers'!

1 0

The Trunk: KernelTests-nice.262.mcz
by commits＠source.squeak.org 13 Mar '14

13 Mar '14

1 0

The Trunk: KernelTests-nice.262.mcz
by commits＠source.squeak.org 13 Mar '14

13 Mar '14

1 0

The Trunk: System-cmm.667.mcz
by commits＠source.squeak.org 07 Mar '14

07 Mar '14

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.667.mcz ==================== Summary ==================== Name: System-cmm.667 Author: cmm Time: 7 March 2014, 11:05:02.41 am UUID: 5687957c-9a9d-4e72-9db9-14480a1a52e2 Ancestors: System-dtl.666 - Added method to get a valid MethodReference from a stale, invalid one. =============== Diff against System-dtl.666 =============== Item was added: + ----- Method: MethodReference>>asValid (in category 'converting') ----- + asValid + "Sometimes persistent MethodReferences may become stale after a refactoring which moved some methods to a superclass. This method answers the new valid MethodReference if that happened." + ^ self isValid + ifTrue: [ self ] + ifFalse: + [ | cm | + cm := self actualClass lookupSelector: self selector. + cm ifNotNil: [ cm methodReference ] ]! Item was changed: ----- Method: SmalltalkImage>>haltOrQuit (in category 'command line') ----- haltOrQuit + self isHeadless - Smalltalk isHeadless ifTrue: [ self snapshot: false andQuit: true ] ifFalse: [ self halt ]! Item was changed: ----- Method: SmalltalkImage>>run: (in category 'command line') ----- + run: aBlock - run: aBlock [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ]) + ifTrue: + [ "Allow a large, variable number of arguments to be passed as an Array to aBlock." + aBlock value: self arguments ] + ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] - ifTrue: [ aBlock value: self arguments ] - ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] on: ProgressInitiationException do: [ : pie | "Don't want to log this notification." pie defaultAction ] ] on: Notification , Warning do: [ : noti | FileStream stdout nextPutAll: DateAndTime now asString ; space ; nextPutAll: noti description ; cr. noti resume ] on: SyntaxErrorNotification do: [ : err | FileStream stdout nextPutAll: err errorCode ; cr. self haltOrQuit ] on: Error do: [ : err | err printVerboseOn: FileStream stderr. self haltOrQuit. err isResumable ifTrue: [ err resume ] ]!

1 0

The Trunk: System-cmm.667.mcz
by commits＠source.squeak.org 07 Mar '14

07 Mar '14

1 0

The Trunk: System-cmm.667.mcz
by commits＠source.squeak.org 07 Mar '14

07 Mar '14

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2014