Packages May 2012

packages@lists.squeakfoundation.org

1 participants
138 discussions

The Trunk: KernelTests-nice.223.mcz
by commits＠source.squeak.org 26 May '12

26 May '12

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.223.mcz ==================== Summary ==================== Name: KernelTests-nice.223 Author: nice Time: 26 May 2012, 7:36:21.885 pm UUID: 27c70a24-3bf7-40b0-ad12-a09f140c4f84 Ancestors: KernelTests-nice.221 Simplify TimeTest - readFrom: (ReadStream on: ...) is exactly #readFromString: so just use it - no reason to use ReadWriteStream when WriteStream does the job =============== Diff against KernelTests-nice.221 =============== Item was changed: ----- Method: TimeTest>>testAddSeconds (in category 'testing') ----- testAddSeconds + self assert: (aTime addSeconds: 1) = (Time readFromString: '12:34:57'). + self assert: (aTime addSeconds: 60) = (Time readFromString: '12:35:56'). + self assert: (aTime addSeconds: 3600) = (Time readFromString: '13:34:56'). + self assert: (aTime addSeconds: 24*60*60) = (Time readFromString: '12:34:56').! - self assert: (aTime addSeconds: 1) = (Time readFrom: (ReadStream on: '12:34:57')). - self assert: (aTime addSeconds: 60) = (Time readFrom: (ReadStream on: '12:35:56')). - self assert: (aTime addSeconds: 3600) = (Time readFrom: (ReadStream on: '13:34:56')). - self assert: (aTime addSeconds: 24*60*60) = (Time readFrom: (ReadStream on: '12:34:56')).! Item was changed: ----- Method: TimeTest>>testAddTime (in category 'testing') ----- testAddTime + self assert: (aTime addTime: aTime) = (Time readFromString: '01:09:52'). - self assert: (aTime addTime: aTime) = (Time readFrom: (ReadStream on: '01:09:52')). ! Item was changed: ----- Method: TimeTest>>testEqual (in category 'testing') ----- testEqual + self assert: aTime = (Time readFromString: '12:34:56').! - self assert: aTime = (Time readFrom: (ReadStream on: '12:34:56')).! Item was changed: ----- Method: TimeTest>>testLessThan (in category 'testing') ----- testLessThan + self assert: aTime < (Time readFromString: '12:34:57').! - self assert: aTime < (Time readFrom: (ReadStream on: '12:34:57')).! Item was changed: ----- Method: TimeTest>>testPrint24On (in category 'testing') ----- testPrint24On + | referenceString printed | + referenceString := '12:34:56'. + printed := WriteStream on: ''. + aTime print24: true on: printed. + self assert: printed contents = referenceString! - | cs rw | - cs := ReadStream on: '12:34:56'. - rw := ReadWriteStream on: ''. - aTime print24: true on: rw. - self assert: rw contents = cs contents! Item was changed: ----- Method: TimeTest>>testPrint24OnWithPM (in category 'testing') ----- testPrint24OnWithPM + | referenceString printed | + referenceString := '12:34:56 pm'. + printed := WriteStream on: ''. + aTime print24: false on: printed. + ^ self assert: printed contents = referenceString! - | cs rw | - cs := ReadStream on: '12:34:56 pm'. - rw := ReadWriteStream on: ''. - aTime print24: false on: rw. - ^ self assert: rw contents = cs contents! Item was changed: ----- Method: TimeTest>>testPrint24OnWithoutSeconds (in category 'testing') ----- testPrint24OnWithoutSeconds + | referenceString printed | + referenceString := '12:34'. + printed := WriteStream on: ''. + aTime print24: true showSeconds: false on: printed. + self assert: printed contents = referenceString! - | cs rw | - cs := ReadStream on: '12:34:56'. - rw := ReadWriteStream on: ''. - aTime print24: true showSeconds: true on: rw. - self assert: rw contents = cs contents! Item was changed: ----- Method: TimeTest>>testPrintOn (in category 'testing') ----- testPrintOn + | referenceString printed | + referenceString := '12:34:56 pm'. + printed := WriteStream on: ''. + aTime printOn: printed. + self assert: printed contents = referenceString! - | cs rw | - cs := ReadStream on: '12:34:56 pm'. - rw := ReadWriteStream on: ''. - aTime printOn: rw. - self assert: rw contents = cs contents! Item was changed: ----- Method: TimeTest>>testStoreOn (in category 'testing') ----- testStoreOn + | referenceString stored | + referenceString := '''12:34:56 pm'' asTime'. + stored := WriteStream on: ''. + aTime storeOn: stored. + self assert: stored contents = referenceString! - | cs rw | - cs := ReadStream on: '''12:34:56 pm'' asTime'. - rw := ReadWriteStream on: ''. - aTime storeOn: rw. - self assert: rw contents = cs contents!

1 0

The Trunk: KernelTests-nice.223.mcz
by commits＠source.squeak.org 26 May '12

26 May '12

1 0

The Trunk: KernelTests-nice.223.mcz
by commits＠source.squeak.org 26 May '12

26 May '12

1 0

The Trunk: Tools-cmm.408.mcz
by commits＠source.squeak.org 24 May '12

24 May '12

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.408.mcz ==================== Summary ==================== Name: Tools-cmm.408 Author: cmm Time: 23 May 2012, 9:50:41.756 pm UUID: d27badb8-f76b-4bde-8445-82da3de74220 Ancestors: Tools-eem.407 - Don't put comments in generated accessors. =============== Diff against Tools-eem.407 =============== Item was changed: ----- Method: Browser>>createInstVarAccessors (in category 'class functions') ----- createInstVarAccessors "Create getters and setters for all inst vars defined at the level of the current class selection, except do NOT clobber or override any selectors already understood by the instances of the selected class" self selectedClassOrMetaClass ifNotNil: [:aClass| | cr | cr := String with: Character cr. aClass instVarNames do: [:aName | | newMessage setter | (aClass canUnderstand: aName asSymbol) ifFalse: [newMessage := + aName, cr, cr, - aName, cr, - ' "Answer the value of ', aName, '"', cr, cr, ' ^ ', aName. aClass compile: newMessage classified: #accessing notifying: nil]. (aClass canUnderstand: (setter := aName, ':') asSymbol) ifFalse: [newMessage := + setter, ' anObject', cr, cr, - setter, ' anObject', cr, - ' "Set the value of ', aName, '"', cr, cr, (aClass settersReturnValue ifTrue: [' ^'] ifFalse: [' ']), aName, ' := anObject'. aClass compile: newMessage classified: #accessing notifying: nil]]]!

1 0

The Trunk: Tools-cmm.408.mcz
by commits＠source.squeak.org 24 May '12

24 May '12

1 0

The Trunk: Tools-cmm.408.mcz
by commits＠source.squeak.org 24 May '12

24 May '12

1 0

The Trunk: KernelTests-nice.221.mcz
by commits＠source.squeak.org 22 May '12

22 May '12

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.221.mcz ==================== Summary ==================== Name: KernelTests-nice.221 Author: nice Time: 22 May 2012, 10:46:19.006 pm UUID: c4f656c0-9acc-426f-b05e-f80f3623ff33 Ancestors: KernelTests-nice.220 Now that Float print exactly, avoid using low level private implementation #absPrintExactlyOn:base: in tests. We might deprecate it in the future. =============== Diff against KernelTests-nice.220 =============== Item was changed: ----- Method: SqNumberParserTest>>testFloatGradualUnderflow (in category 'tests - Float') ----- testFloatGradualUnderflow "Gradual underflow are tricky. This is a non regression test for http://bugs.squeak.org/view.php?id=6976" | float trueFraction str | "as a preamble, use a base 16 representation to avoid round off error and check that number parsing is correct" trueFraction := 16r2D2593D58B4FC4 / (16 raisedTo: 256+13). "Parse the number in base 16 if possible - it is impossible if lowercase letter are allowed digits due to exponent letter ambiguity." float := self areLowercaseDigitsAllowed ifFalse: [SqNumberParser parse: '16r2.D2593D58B4FC4e-256'] ifTrue: [trueFraction asFloat].. self assert: float asTrueFraction = trueFraction. self assert: float = trueFraction asFloat. "now print in base 10" str := (String new: 32) writeStream. + float printOn: str base: 10. - float absPrintExactlyOn: str base: 10. "verify if SqNumberParser can read it back" self assert: (SqNumberParser parse: str contents) = float. ! Item was changed: ----- Method: SqNumberParserTest>>testFloatPrintString (in category 'tests - Float') ----- testFloatPrintString "self debug: #testFloatPrintString" | f r bases | f := Float basicNew: 2. r := Random new seed: 1234567. "printing a Float in base other than 10 is broken if lowercase digits are allowed" bases := self areLowercaseDigitsAllowed ifTrue: [#(10)] ifFalse: [#(2 8 10 16)]. 100 timesRepeat: [f basicAt: 1 put: (r nextInt: 16r100000000)- 1. f basicAt: 2 put: (r nextInt: 16r100000000) - 1. bases do: [:base | | str | str := (String new: 64) writeStream. f negative ifTrue: [str nextPut: $-]. str print: base; nextPut: $r. + f abs printOn: str base: base. - f absPrintExactlyOn: str base: base. self assert: (SqNumberParser parse: str contents) = f]]. "test big num near infinity" 10 timesRepeat: [f basicAt: 1 put: 16r7FE00000 + ((r nextInt: 16r100000) - 1). f basicAt: 2 put: (r nextInt: 16r100000000) - 1. bases do: [:base | | str | str := (String new: 64) writeStream. f negative ifTrue: [str nextPut: $-]. str print: base; nextPut: $r. + f abs printOn: str base: base. - f absPrintExactlyOn: str base: base. self assert: (SqNumberParser parse: str contents) = f]]. "test infinitesimal (gradual underflow)" 10 timesRepeat: [f basicAt: 1 put: 0 + ((r nextInt: 16r100000) - 1). f basicAt: 2 put: (r nextInt: 16r100000000) - 1. bases do: [:base | | str | str := (String new: 64) writeStream. f negative ifTrue: [str nextPut: $-]. str print: base; nextPut: $r. + f abs printOn: str base: base. - f absPrintExactlyOn: str base: base. self assert: (SqNumberParser parse: str contents) = f]].!

1 0

The Trunk: KernelTests-nice.221.mcz
by commits＠source.squeak.org 22 May '12

22 May '12

1 0

The Trunk: KernelTests-nice.221.mcz
by commits＠source.squeak.org 22 May '12

22 May '12

1 0

The Trunk: Kernel-nice.691.mcz
by commits＠source.squeak.org 22 May '12

22 May '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.691.mcz ==================== Summary ==================== Name: Kernel-nice.691 Author: nice Time: 22 May 2012, 10:14:29.897 pm UUID: f69b524f-83bb-4ef0-b084-e7a96dd5d33e Ancestors: Kernel-eem.690, Kernel-nice.690 Grace period is over, publish and merge the changes for printing Floating point with fixed precision. =============== Diff against Kernel-eem.690 =============== Item was added: + ----- Method: Float>>absPrintExactlyOn:base:decimalPlaces:showTrailingFractionalZeros: (in category 'printing') ----- + absPrintExactlyOn: aStream base: base decimalPlaces: placesDesired showTrailingFractionalZeros: showtrailingZeros + "Print my value on a stream in the given base with fixed number of digits after floating point. + When placesDesired are beyond Float precision, zeroes are appended. + When showtrailingZeros is false, the trailing zeroes after decimal point will be omitted. + If all fractional digits are zeros, the decimal point is omitted too. + Assumes that my value is strictly positive; negative numbers, zero, and NaNs have already been handled elsewhere. + Based upon the algorithm outlined in: + Robert G. Burger and R. Kent Dybvig + Printing Floating Point Numbers Quickly and Accurately + ACM SIGPLAN 1996 Conference on Programming Language Design and Implementation + June 1996.." + + | significand exp baseExpEstimate r s mPlus mMinus scale roundingLowIncludesLimits roundingHighIncludesLimits d tc1 tc2 decPointCount slowbit shead delta | + self isInfinite ifTrue: [aStream nextPutAll: 'Infinity'. ^ self]. + significand := self significandAsInteger. + exp := (self exponent - 52) max: MinValLogBase2. + exp >= 0 + ifTrue: + [significand ~= 16r10000000000000 + ifTrue: + [r := significand bitShift: 1 + exp. + s := 2. + mPlus := mMinus := 1 bitShift: exp] + ifFalse: + [r := significand bitShift: 2 + exp. + s := 4. + mPlus := 2 * (mMinus := 1 bitShift: exp)]] + ifFalse: + [(exp = MinValLogBase2 or: [significand ~= 16r10000000000000]) + ifTrue: + [r := significand bitShift: 1. + s := 1 bitShift: 1 - exp. + mPlus := mMinus := 1] + ifFalse: + [r := significand bitShift: 2. + s := 1 bitShift: 2 - exp. + mPlus := 2. + mMinus := 1]]. + delta := s / 2 / (base raisedTo: placesDesired). + roundingLowIncludesLimits := (mMinus < delta and: [mMinus := delta. true]) or: [significand even]. + roundingHighIncludesLimits := (mPlus < delta and: [mPlus := delta. true]) or: [significand even]. + baseExpEstimate := (self exponent * base asFloat reciprocalLogBase2 - 1.0e-10) ceiling. + baseExpEstimate >= 0 + ifTrue: [s := s * (base raisedToInteger: baseExpEstimate)] + ifFalse: + [scale := base raisedToInteger: baseExpEstimate negated. + r := r * scale. + mPlus := mPlus * scale. + mMinus := mMinus * scale]. + ((r + mPlus >= s) and: [roundingHighIncludesLimits or: [r + mPlus > s]]) + ifTrue: [baseExpEstimate := baseExpEstimate + 1] + ifFalse: + [r := r * base. + mPlus := mPlus * base. + mMinus := mMinus * base]. + decPointCount := baseExpEstimate. + baseExpEstimate <= 0 + ifTrue: + [placesDesired + baseExpEstimate <= 0 + ifTrue: + [aStream nextPut: $0. + (showtrailingZeros and: [placesDesired > 0]) ifTrue: [aStream nextPut: $.; nextPutAll: (String new: placesDesired withAll: $0)]. + ^self]. + aStream nextPutAll: '0.'; nextPutAll: (String new: 0 - baseExpEstimate withAll: $0)]. + slowbit := 1 - s lowBit . + shead := s bitShift: slowbit. + [d := (r bitShift: slowbit) // shead. + r := r - (d * s). + (tc1 := (r <= mMinus) and: [roundingLowIncludesLimits or: [r < mMinus]]) | + (tc2 := (r + mPlus >= s) and: [roundingHighIncludesLimits or: [r + mPlus > s]])] whileFalse: + [aStream nextPut: (Character digitValue: d). + r := r * base. + mPlus := mPlus * base. + mMinus := mMinus * base. + (decPointCount := decPointCount - 1) = 0 ifTrue: [aStream nextPut: $.]]. + tc2 ifTrue: + [(tc1 not or: [r * 2 >= s]) ifTrue: [d := d + 1]]. + aStream nextPut: (Character digitValue: d). + decPointCount > 0 + ifTrue: + [decPointCount - 1 to: 1 by: -1 do: [:i | aStream nextPut: $0]. + (showtrailingZeros and: [placesDesired > 0]) ifTrue: [aStream nextPut: $.; nextPutAll: (String new: placesDesired withAll: $0)]] + ifFalse: + [(showtrailingZeros and: [placesDesired + decPointCount > 1]) ifTrue: [aStream nextPutAll: (String new: placesDesired + decPointCount - 1 withAll: $0)]].! Item was changed: + ----- Method: Float>>absPrintOn:base:digitCount: (in category 'printing') ----- - ----- Method: Float>>absPrintOn:base:digitCount: (in category 'private') ----- 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 < 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]! Item was added: + ----- Method: Float>>printOn:maxDecimalPlaces: (in category 'printing') ----- + printOn: aStream maxDecimalPlaces: placesDesired + "Refine super implementation in order to avoid any rounding error caused by rounded or roundTo:" + + self isFinite ifFalse: [^self printOn: aStream]. + self > 0.0 + ifTrue: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: false] + ifFalse: + [self sign = -1 + ifTrue: [aStream nextPutAll: '-']. + self = 0.0 + ifTrue: [aStream nextPutAll: '0.0'] + ifFalse: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: false]]! Item was added: + ----- Method: Float>>printOn:showingDecimalPlaces: (in category 'printing') ----- + printOn: aStream showingDecimalPlaces: placesDesired + "Refine super implementation in order to avoid any rounding error caused by rounded or roundTo:" + + self isFinite ifFalse: [^self printOn: aStream]. + self > 0.0 + ifTrue: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: true] + ifFalse: + [self sign = -1 + ifTrue: [aStream nextPutAll: '-']. + self = 0.0 + ifTrue: [aStream nextPutAll: '0.0'] + ifFalse: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: true]]! Item was removed: - ----- Method: Float>>printShowingDecimalPlaces: (in category 'printing') ----- - printShowingDecimalPlaces: placesDesired - "This implementation avoids any rounding error caused by rounded or roundTo:" - - self isFinite ifFalse: [^self printString]. - ^self asTrueFraction printShowingDecimalPlaces: placesDesired!

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 May 2012