Packages March 2014

packages@lists.squeakfoundation.org

1 participants
99 discussions

The Trunk: Tools-nice.520.mcz
by commits＠source.squeak.org 16 Mar '14

16 Mar '14

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.520.mcz ==================== Summary ==================== Name: Tools-nice.520 Author: nice Time: 16 March 2014, 11:29:13.449 pm UUID: e598c82f-69b9-4cda-b326-cae8d1447712 Ancestors: Tools-cmm.519 Don't reference #reciprocalFloorLog: in MethodFinder, it should be deprecated. =============== Diff against Tools-cmm.519 =============== Item was changed: ----- Method: MethodFinder>>initialize (in category 'initialize') ----- (excessive size, no diff calculated)

1 0

The Trunk: Tools-nice.520.mcz
by commits＠source.squeak.org 16 Mar '14

16 Mar '14

1 0

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

16 Mar '14

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.842.mcz ==================== Summary ==================== Name: Kernel-nice.842 Author: nice Time: 16 March 2014, 11:21:19.525 pm UUID: c5833439-ae84-4711-a40a-b2db5d766cb3 Ancestors: Kernel-nice.841 Avoid using #reciprocalFloorLog: #reciprocalFloorLog: does the same as #floorLog: just with more noise. Once upon a time it was required, but it is not anymore and should be deprecated. Note that floorLog: already cumulates 3 rounding errors via (self ln / base ln) (-1 to: (Float fminDenormalized floorLog: 10) + 1 by: -1) count: [:i | | pow | pow := 10 raisedTo: i. (pow asFloat floorLog: 10) < i and: [pow asFloat >= pow]]. 89 But reciprocalFloorLog: is even worse: (-1 to: (Float fminDenormalized floorLog: 10) + 1 by: -1) count: [:i | | pow | pow := 10 raisedTo: i. (pow asFloat reciprocalFloorLog: 10) < i and: [pow asFloat >= pow]]. 149 =============== Diff against Kernel-nice.841 =============== Item was changed: ----- Method: Float>>absPrintOn:base:digitCount: (in category 'printing') ----- absPrintOn: aStream base: base digitCount: digitCount "Print me in the given base, using digitCount significant figures." | fuzz x exp q fBase scale logScale xi | self isInfinite ifTrue: [^ aStream nextPutAll: 'Inf']. fBase := base asFloat. "x is myself normalized to [1.0, fBase), exp is my exponent" + exp := self floorLog: fBase. - exp := - self < 1.0 - ifTrue: [self reciprocalFloorLog: fBase] - ifFalse: [self floorLog: fBase]. scale := 1.0. logScale := 0. [(x := fBase raisedTo: (exp + logScale)) = 0] whileTrue: [scale := scale * fBase. logScale := logScale + 1]. x := self * scale / x. fuzz := fBase raisedTo: 1 - digitCount. "round the last digit to be printed" x := 0.5 * fuzz + x. x >= fBase ifTrue: ["check if rounding has unnormalized x" x := x / fBase. exp := exp + 1]. (exp < 6 and: [exp > -4]) ifTrue: ["decimal notation" q := 0. exp < 0 ifTrue: [1 to: 1 - exp do: [:i | aStream nextPut: ('0.0000' at: i)]]] ifFalse: ["scientific notation" q := exp. exp := 0]. [x >= fuzz] whileTrue: ["use fuzz to track significance" xi := x asInteger. aStream nextPut: (Character digitValue: xi). x := x - xi asFloat * fBase. fuzz := fuzz * fBase. exp := exp - 1. exp = -1 ifTrue: [aStream nextPut: $.]]. [exp >= -1] whileTrue: [aStream nextPut: $0. exp := exp - 1. exp = -1 ifTrue: [aStream nextPut: $.]]. q ~= 0 ifTrue: [aStream nextPut: $e. q printOn: aStream]!

1 0

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

16 Mar '14

1 0

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

16 Mar '14

1 0

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

15 Mar '14

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.263.mcz ==================== Summary ==================== Name: KernelTests-nice.263 Author: nice Time: 15 March 2014, 2:54:09.654 pm UUID: fe4da289-e902-4c1e-b0a7-18df9444d488 Ancestors: KernelTests-nice.262 Rename misleading variable (powers of 6 are 6^0, 6^1, 6^2, ... we want 2^6, 3^6, etc...) Make a bit more explicit that they are raised to 6. =============== Diff against KernelTests-nice.262 =============== Item was changed: ----- Method: IntegerTest>>testNthRootExactness (in category 'tests - mathematical functions') ----- testNthRootExactness + | inexactRoots largeRaisedTo6 | + largeRaisedTo6 := (2 to: 100) collect: [:k | (k raisedTo: 11) raisedTo: 6]. + inexactRoots := largeRaisedTo6 reject: [:e | (e nthRoot: 6) isInteger]. - | 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.263.mcz
by commits＠source.squeak.org 15 Mar '14

15 Mar '14

1 0

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

15 Mar '14

1 0

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: ShoutCore-nice.41.mcz
by commits＠source.squeak.org 14 Mar '14

14 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