Squeak-dev January 2017

squeak-dev@lists.squeakfoundation.org

34 participants
77 discussions

Font size of world and docking bar menus?
by H. Hirzel 28 Jan '17

28 Jan '17

Hello How do I set the font size of the world menu and the docking bar menus? I found nothing in the preferences. Did this change? Regards Hannes

2 2

Character variants / leadingChar / Han unification
by Bert Freudenberg 28 Jan '17

28 Jan '17

Thanks for the historic account, Chris! So we didn't replace the leadingChar mechanism, we just redefined "leadingChar = 0" to mean "unicode" rather than "latin1". The mechanism itself is still in place. It's a hack, admittedly, but as long as we're passing plain strings around we have no other way of retaining language information. A better way may be to support Unicode variation selectors. Then again, I don't know too much about that. Any native speaker to help us out? - Bert - On Thu, Jan 26, 2017 at 11:36 PM, Chris Cunningham <cunningham.cb(a)gmail.com> wrote: > So, back in 2009, Andreas proposed: > > --------------------------- > What I would propose to do here is to define that "leadingChar = 0" which > currently means "Latin1 encoding, language neutral" is being redefined to > "Unicode encoding, language neutral". What this does is that "Character > value: 353" and "Unicode value: 353" become the same, if the environment is > considered language neutral which by default it would be. > --------------------- > > In 2010, he pushed this into Squeak Trunk. > > Then, in 2011, there was a conversation where Andreas stated: > > ------------------- > On 1/8/2011 2:16 AM, Sean P. DeNigris wrote: > #leadingChar > "In Squeak Character encoding, bits above 16r3FFFFF don't encode the > character, but hold information about the language environment and the > encoding which should be used to interpret the charCode. The background of > which is Han unification (http://en.wikipedia.org/wiki/Han_unification)." > > How's that as a method comment? Is it really "In Squeak... encoding..." or > does this apply to unicode in general? > > It is Squeak specific. Unicode does not have a leading char. > > Cheers, > - Andreas > --------------------- > > Maybe this later email was the one that you were interested in? > > I can't find any mention in the commit list or other discussions where the > leadingChar was dropped, but I'm not an expert in this space (just > interested). > > Thanks, > cbc > >

2 1

The Trunk: KernelTests-nice.317.mcz
by commits＠source.squeak.org 27 Jan '17

27 Jan '17

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.317.mcz ==================== Summary ==================== Name: KernelTests-nice.317 Author: nice Time: 27 January 2017, 10:04:37.372536 pm UUID: 42d2ef78-acd4-4909-aa38-c4a709f40482 Ancestors: KernelTests-eem.316 Change the expectation of -0.0 sign, it is now 0 rather than -1. Consequently adopt the new way to test a negativeZero result using signBit rather than sign. =============== Diff against KernelTests-eem.316 =============== Item was added: + ----- Method: FloatTest>>assertIsNegativeZero: (in category 'accessing') ----- + assertIsNegativeZero: aFloat + "Assert that aFloat is Float negativeZero" + self assert: aFloat = 0.0. + self assert: aFloat signBit = 1! Item was added: + ----- Method: FloatTest>>assertIsPositiveZero: (in category 'accessing') ----- + assertIsPositiveZero: aFloat + "Assert that aFloat is Float zero (the positive one)" + self assert: aFloat = 0.0. + self assert: aFloat signBit = 0! Item was changed: ----- Method: FloatTest>>testArSinh (in category 'tests - mathematical functions') ----- testArSinh + self assertIsPositiveZero: 0.0 arSinh. + self assertIsNegativeZero: Float negativeZero arSinh. - self assert: 0.0 arSinh = 0.0. - self assert: Float negativeZero arSinh = 0.0. - self assert: Float negativeZero arSinh sign = -1. self deny: Float infinity arSinh isFinite. self assert: (0.5 arSinh negated closeTo: 0.5 negated arSinh). self assert: (0.5 arSinh sinh closeTo: 0.5). self assert: (-2.5 arSinh sinh closeTo: -2.5).! Item was changed: ----- Method: FloatTest>>testArTanh (in category 'tests - mathematical functions') ----- testArTanh + self assertIsPositiveZero: 0.0 arTanh. + self assertIsNegativeZero: Float negativeZero arTanh. - self assert: 0.0 arTanh = 0.0. - self assert: Float negativeZero arTanh = 0.0. - self assert: Float negativeZero arTanh sign = -1. self deny: 1 arTanh isFinite. self assert: (0.5 arTanh negated closeTo: 0.5 negated arTanh). self assert: (0.5 arTanh tanh closeTo: 0.5). self assert: (-0.5 arTanh tanh closeTo: -0.5).! Item was changed: ----- Method: FloatTest>>testCharacterization (in category 'characterization') ----- testCharacterization "Test the largest finite representable floating point value" self assert: Float fmax successor = Float infinity. self assert: Float infinity predecessor = Float fmax. self assert: Float fmax negated predecessor = Float negativeInfinity. self assert: Float negativeInfinity successor = Float fmax negated. "Test the smallest positive representable floating point value" self assert: Float fmin predecessor = 0.0. self assert: 0.0 successor = Float fmin. self assert: Float fmin negated successor = 0.0. self assert: 0.0 predecessor = Float fmin negated. "Test the relative precision" self assert: Float one + Float epsilon > Float one. self assert: Float one + Float epsilon = Float one successor. self assert: Float one + (Float epsilon / Float radix) = Float one. "Test maximum and minimum exponent" self assert: Float fmax exponent = Float emax. self assert: Float fminNormalized exponent = Float emin. Float denormalized ifTrue: [ self assert: Float fminDenormalized exponent = (Float emin + 1 - Float precision)]. "Alternative tests for maximum and minimum" self assert: (Float radix - Float epsilon) * (Float radix raisedTo: Float emax) = Float fmax. self assert: Float epsilon * (Float radix raisedTo: Float emin) = Float fmin. "Test sucessors and predecessors" self assert: Float one predecessor successor = Float one. self assert: Float one successor predecessor = Float one. self assert: Float one negated predecessor successor = Float one negated. self assert: Float one negated successor predecessor = Float one negated. self assert: Float infinity successor = Float infinity. self assert: Float negativeInfinity predecessor = Float negativeInfinity. + self assertIsNegativeZero: Float fmin negated successor. - self assert: Float fmin negated successor = 0.0. - self assert: Float fmin negated successor sign = -1. self assert: Float nan predecessor isNaN. self assert: Float nan successor isNaN. "SPECIFIC FOR IEEE 754 double precision - 64 bits" self assert: Float fmax hex = '7FEFFFFFFFFFFFFF'. self assert: Float fminDenormalized hex = '0000000000000001'. self assert: Float fminNormalized hex = '0010000000000000'. self assert: 0.0 hex = '0000000000000000'. self assert: Float negativeZero hex = '8000000000000000'. self assert: Float one hex = '3FF0000000000000'. self assert: Float infinity hex = '7FF0000000000000'. self assert: Float negativeInfinity hex = 'FFF0000000000000'.! Item was changed: ----- Method: FloatTest>>testCopySign (in category 'zero behavior') ----- testCopySign self assert: (0.0 copySignTo: 1) = 1. self assert: (Float negativeZero copySignTo: 1) = -1. + self assertIsNegativeZero: (-1 copySignTo: 0.0). + self assertIsPositiveZero: (1 copySignTo: Float negativeZero).! - self assert: (-1 copySignTo: 0.0) = 0.0. - self assert: (-1 copySignTo: 0.0) sign = -1. - self assert: (1 copySignTo: Float negativeZero) sign = 0.! Item was changed: ----- Method: FloatTest>>testFractionAsFloatWithUnderflow (in category 'testing - conversion') ----- testFractionAsFloatWithUnderflow "test rounding to nearest even" | underflowPower | underflowPower := Float emin - Float precision. self assert: (2 raisedTo: underflowPower) asFloat = 0.0. self assert: (2 raisedTo: underflowPower) negated asFloat = 0.0. + self assert: (2 raisedTo: underflowPower) negated asFloat signBit = 1 description: 'a negative underflow should return a negative zero'.! - self assert: (2 raisedTo: underflowPower) negated asFloat sign = -1 description: 'a negative underflow should return a negative zero'.! Item was changed: ----- Method: FloatTest>>testLiteralEqualityOfZeroAndNegativeZero (in category 'testing compare') ----- testLiteralEqualityOfZeroAndNegativeZero + self assert: 1 + equals: (Compiler evaluate: '1>2 ifTrue: [0.0] ifFalse: [-0.0]') signBit - self assert: -1 - equals: (Compiler evaluate: '1>2 ifTrue: [0.0] ifFalse: [-0.0]') sign description: 'Float zero and negativeZero are not literally substituable'.! Item was changed: ----- Method: FloatTest>>testNegativeZeroAbs (in category 'zero behavior') ----- testNegativeZeroAbs + self assert: Float negativeZero abs signBit = 0 description: 'the absolute value of a negative zero is zero'! - self assert: Float negativeZero abs sign positive description: 'the absolute value of a negative zero is zero'! Item was changed: ----- Method: FloatTest>>testNegativeZeroSign (in category 'zero behavior') ----- testNegativeZeroSign + self assert: Float negativeZero sign = 0. + self assert: Float negativeZero signBit = 1 "That's how we can distinguish from positive zero"! - self assert: Float negativeZero sign = -1! Item was changed: ----- Method: FloatTest>>testSign (in category 'testing') ----- testSign "Set up" | negatives negz positives strictNegatives strictPositives zero | strictPositives := {2. 2.5. Float infinity}. strictNegatives := {-3. -3.25. Float negativeInfinity}. zero := 0.0. negz := Float negativeZero. positives := strictPositives copyWith: zero. negatives := strictNegatives copyWith: negz. "The sign of non zeros" strictPositives do: [:aPositive | self assert: aPositive sign = 1]. strictNegatives do: [:aNegative | self assert: aNegative sign = -1]. "The sign of zeros" self assert: zero sign = 0. + self assert: negz sign = 0. "remark that negz can't be distinguished from zero and is thus considered positive..." + self assert: negz signBit = 1. "but we can differentiate" - self assert: negz sign = -1. "remark though that negz >= 0.0, and is thus considered positive... Weird" "Test the copy sign functions" positives do: [:aPositiveSign | positives do: [:aPositive | self assert: (aPositive sign: aPositiveSign) = aPositive]. negatives do: [:aNegative | self assert: (aNegative sign: aPositiveSign) = aNegative negated]. + (zero sign: aPositiveSign) signBit = 0. + (negz sign: aPositiveSign) signBit = 0]. - (zero sign: aPositiveSign) sign = 0. - (negz sign: aPositiveSign) sign = 0]. negatives do: [:aNegativeSign | positives do: [:aPositive | self assert: (aPositive sign: aNegativeSign) = aPositive negated]. negatives do: [:aNegative | self assert: (aNegative sign: aNegativeSign) = aNegative]. + (zero sign: aNegativeSign) signBit = 1. + (negz sign: aNegativeSign) signBit = 1].! - (zero sign: aNegativeSign) sign = -1. - (negz sign: aNegativeSign) sign = -1].! Item was changed: ----- Method: FloatTest>>testSinh (in category 'tests - mathematical functions') ----- testSinh + self assertIsPositiveZero: 0.0 sinh. + self assertIsNegativeZero: Float negativeZero sinh. - self assert: 0.0 sinh = 0.0. - self assert: Float negativeZero sinh = 0.0. - self assert: Float negativeZero sinh sign = -1. self deny: Float infinity sinh isFinite. self assert: (2.0 cosh squared - 2.0 sinh squared closeTo: 1). self assert: (2.0 sinh negated closeTo: 2.0 negated sinh).! Item was changed: ----- Method: FloatTest>>testTanh (in category 'tests - mathematical functions') ----- testTanh + self assertIsPositiveZero: 0.0 tanh. + self assertIsNegativeZero: Float negativeZero tanh. - self assert: 0.0 tanh = 0.0. - self assert: Float negativeZero tanh = 0.0. - self assert: Float negativeZero tanh sign = -1. self assert: (Float infinity tanh closeTo: 1). self assert: (2.0 cosh squared - 2.0 sinh squared closeTo: 1). self assert: (2.0 tanh negated closeTo: 2.0 negated tanh).!

1 0

The Trunk: Kernel-nice.1054.mcz
by commits＠source.squeak.org 27 Jan '17

27 Jan '17

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1054.mcz ==================== Summary ==================== Name: Kernel-nice.1054 Author: nice Time: 27 January 2017, 9:44:46.83377 pm UUID: ef21d74d-ba81-47c6-9bb7-92fb4140f494 Ancestors: Kernel-eem.1053 Change -0.0 sign to answer 0 instead of -1. Introduce a new message signBit for recognition of Float negativeZero. Rationale: 1) The value of Float negativeZero cannot be distinguished from zero. Thus (Float negativeZero = 0.0) We can then expect sign to be symmetric for (positive) zero and negativeZero 2) ANSI Smalltalk requires above behavior. This will reduce un-necessary difference with Gemstone for example. About NaN: Note that with old implementation, the sign of "positive" nan was 0, while it was -1 for "negative" nan. New implementation will allways answer 0 for nans. We may as well answer Float nan, but currently sign will allways answer an Integer (-1,0 or 1). Until it is well specified by a standard, let's not bother. Otherwise, we could answer a Float if receiver is a Float like: sign self > 0.0 ifTrue: [ ^1.0]. self < 0.0 ifTrue: [ ^-1.0]. ^self =============== Diff against Kernel-eem.1053 =============== Item was changed: ----- Method: Float>>arcTan: (in category 'mathematical functions') ----- arcTan: denominator + "Answer the angle in radians, taking care of 4 quadrants. + Implementation note: use signBit and sign: in order to catch cases of negativeZero" - "Answer the angle in radians. - Optional. See Object documentation whatIsAPrimitive. - Implementation note: use sign in order to catch cases of negativeZero" + self = 0.0 + ifTrue: + [denominator signBit = 0 ifTrue: [ ^0.0 ]. + ^Pi sign: self ]. + denominator = 0.0 ifTrue: [ ^Halfpi sign: self ]. + denominator > 0.0 ifTrue: [ ^(self / denominator) arcTan ]. + ^(self / denominator) arcTan + (Pi sign: self)! - self = 0.0 ifTrue: [ - denominator sign >= 0 ifTrue: [ ^0.0 ]. - self sign >= 0 ifTrue: [ ^Pi ]. - ^0.0 - Pi ]. - denominator = 0.0 ifTrue: [ - self > 0.0 ifTrue: [ ^Halfpi ]. - ^0.0 - Halfpi ]. - denominator > 0.0 ifTrue: [ ^(self / denominator) arcTan ]. - self > 0.0 ifTrue: [ ^(self / denominator) arcTan + Pi ]. - ^(self / denominator) arcTan - Pi! Item was changed: ----- Method: Float>>byteEncode:base: (in category 'printing') ----- byteEncode: aStream base: base "Handle sign, zero, and NaNs; all other values passed to absPrintOn:base:" self isNaN ifTrue: [aStream print: 'NaN'. ^ self]. "check for NaN before sign" self > 0.0 ifTrue: [self absByteEncode: aStream base: base] ifFalse: + [self signBit = 1 - [self sign = -1 ifTrue: [aStream print: '-']. self = 0.0 ifTrue: [aStream print: '0.0'. ^ self] ifFalse: [aStream writeNumber:self negated base: base]]! Item was removed: - ----- Method: Float>>copySignTo: (in category 'mathematical functions') ----- - copySignTo: aNumber - "Return a number with same magnitude as aNumber and same sign as self. - Implementation note: take care of Float negativeZero, which is considered as having a negative sign." - - (self > 0.0 or: [(self at: 1) = 0]) ifTrue: [^ aNumber abs]. - ^aNumber withNegativeSign! Item was changed: ----- Method: Float>>printOn:base: (in category 'printing') ----- printOn: aStream base: base "Print the receiver with the minimal number of digits that describes it unambiguously. This way, every two different Float will have a different printed representation. More over, every Float can be reconstructed from its printed representation with #readFrom:." self isNaN ifTrue: [aStream nextPutAll: 'NaN'. ^ self]. "check for NaN before sign" self > 0.0 ifTrue: [self absPrintExactlyOn: aStream base: base] ifFalse: + [self signBit = 1 - [self sign = -1 ifTrue: [aStream nextPutAll: '-']. self = 0.0 ifTrue: [aStream nextPutAll: '0.0'] ifFalse: [self negated absPrintExactlyOn: aStream base: base]]! Item was changed: ----- 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 signBit = 1 - [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 changed: ----- 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 signBit = 1 - [self sign = -1 ifTrue: [aStream nextPutAll: '-']. self = 0.0 ifTrue: [aStream nextPut: $0. placesDesired > 0 ifTrue: [aStream nextPut: $.; next: placesDesired put: $0]] ifFalse: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: true]]! Item was removed: - ----- Method: Float>>sign (in category 'mathematical functions') ----- - sign - "Answer 1 if the receiver is greater than 0, -1 if less than 0, else 0. - Handle IEEE-754 negative-zero by reporting a sign of -1" - - self > 0.0 ifTrue: [ ^1 ]. - self < 0.0 ifTrue: [ ^-1 ]. - ^0 - ((self at: 1) bitShift: -31) "-1 for negative zero, 0 otherwise"! Item was removed: - ----- Method: Float>>sign: (in category 'mathematical functions') ----- - sign: aNumber - "Return a Number with the same sign as aNumber and same magnitude as self. - Implementation is different from super to handle the special case of Float negativeZero." - - (self = 0.0 and: [aNumber sign negative]) ifTrue: [^Float negativeZero]. - ^aNumber copySignTo: self! Item was added: + ----- Method: Float>>signBit (in category 'mathematical functions') ----- + signBit + "Answer 1 if the receiver has sign bit set (including case of IEEE-754 negative-zero). + Answer 0 otherwise" + + ^((self at: 1) bitShift: -31)! Item was changed: ----- Method: Float>>storeOn:base: (in category 'printing') ----- storeOn: aStream base: base "Print the Number exactly so it can be interpreted back unchanged" self isFinite + ifTrue: [self signBit = 1 ifTrue: [aStream nextPutAll: '-']. - ifTrue: [self sign = -1 ifTrue: [aStream nextPutAll: '-']. base = 10 ifFalse: [aStream print: base; nextPut: $r]. self = 0.0 ifTrue: [aStream nextPutAll: '0.0'] ifFalse: [self abs absPrintExactlyOn: aStream base: base]] ifFalse: [self isNaN ifTrue: [aStream nextPutAll: 'Float nan'] ifFalse: [self > 0.0 ifTrue: [aStream nextPutAll: 'Float infinity'] ifFalse: [aStream nextPutAll: 'Float infinity negated']]]! Item was removed: - ----- Method: Float>>withNegativeSign (in category 'converting') ----- - withNegativeSign - "Same as super, but handle the subtle case of Float negativeZero" - - self = 0.0 ifTrue: [^self class negativeZero]. - ^super withNegativeSign! Item was added: + ----- Method: LargeNegativeInteger>>signBit (in category 'testing') ----- + signBit + "Optimization." + + ^1 + ! Item was added: + ----- Method: LargePositiveInteger>>signBit (in category 'testing') ----- + signBit + "Optimization." + + ^0! Item was changed: ----- Method: Number>>copySignTo: (in category 'mathematical functions') ----- copySignTo: aNumber "Return a number with same magnitude as aNumber and same sign as self." + ^ self signBit = 0 - ^ self positive ifTrue: [aNumber abs] + ifFalse: [aNumber abs negated].! - ifFalse: [aNumber withNegativeSign].! Item was added: + ----- Method: Number>>signBit (in category 'mathematical functions') ----- + signBit + "Answer 1 if the receiver is negative, zero otherwise." + + self < 0 ifTrue: [^1]. + ^0! Item was removed: - ----- Method: Number>>withNegativeSign (in category 'converting') ----- - withNegativeSign - "Answer a number with same magnitude than receiver and negative sign." - ^self abs negated!

1 0

Re: [squeak-dev] The Inbox: System-monty.907.mcz
by monty 27 Jan '17

27 Jan '17

I remembered Andreas posting something here saying it was no longer needed. But what if I just upload packages that (1) add copies of these methods with the name spelled correctly to String and ByteString, (2) change the senders in MOFile and (old) XMLParser to use the new correctly spelled messages, (3) change the incorrectly spelled (old) XMLParser extension methods to just send the new, correctly spelled messages? > Sent: Tuesday, January 24, 2017 at 9:32 AM > From: "Tobias Pape" <Das.Linux(a)gmx.de> > To: "The general-purpose Squeak developers list" <squeak-dev(a)lists.squeakfoundation.org>, monty <monty2(a)programmer.net> > Subject: Re: [squeak-dev] The Inbox: System-monty.907.mcz > > > On 24.01.2017, at 14:16, Bert Freudenberg <bert(a)freudenbergs.de> wrote: > > > On Sun, Jan 22, 2017 at 4:55 PM, <commits(a)source.squeak.org> wrote: > > > > Name: System-monty.907 > > Author: monty > > Time: 22 January 2017, 10:54:27.872661 am > > UUID: 96a2d0cb-8ed1-467d-9e62-24b719b285cc > > Ancestors: System-mt.906 > > > > Removed sends of the old XMLParser's applyLanguageInfomation: (sic) from MOFile that I don't believe is still needed (it's leadingChar-based) > > > > Did we replace the leadingChar mechanism with something else? > > not that I know. > Monty? > > > > > - Bert - > > > > > >

2 2

Fwd: [Glass] Negative infinity and positive infinity have the same sign
by Tobias Pape 27 Jan '17

27 Jan '17

Hi all, it seems, we also suffer from this bug: { 0 sign. 0.0 sign. -0 sign. -0.0 sign. } "=> #(0 0 0 -1)" Begin forwarded message: > From: Martin McClure via Glass <glass(a)lists.gemtalksystems.com> > Subject: Re: [Glass] Negative infinity and positive infinity have the same sign > Date: 26. Januar 2017 21:10:32 MEZ > To: monty <monty2(a)programmer.net>, glass(a)lists.gemtalksystems.com > Reply-To: Martin McClure <martin.mcclure(a)gemtalksystems.com> > Delivered-To: glass(a)mail.commonhouse.net > > On 01/25/2017 12:45 PM, monty via Glass wrote: >> On 3.3.0, "-0.0 sign = 0.0 sign". On Pharo, "-1 sign = -1", "-0.0 sign = -1", "0.0 sign = 0", and "1 sign = 1". IEEE Standard 754 mandates that negative zero have the same sign bit as a negative number. >> _______________________________________________ > Hi Monty, > > The ANSI Smalltalk standard says that #sign should answer 0 if "the > receiver equals zero". This agrees with ISO/IEC 10967 Portable Numerics > standard, which says the same thing. The IEEE 754 spec does not specify > a "sign" operation. The closest equivalent I see is the "isSignMinus" > operation. We don't currently have that message in GemStone, but we > might add it. In GemStone, you can distinguish positive and negative > zero by sending #_sign. > > Pharo's implementation seems very odd. It looks like it's been that way > a long time (John Maloney in 1998?) but the comment contradicts itself. > It says > "Answer 1 if the receiver is greater than 0, -1 if less than 0, else 0. > Handle IEEE-754 negative-zero by reporting a sign of -1" > > But negative zero *is* equal to 0, so it claims to be answering both 0 > and -1 for -0.0. Leaving that aside, it's disturbingly asymmetric to > answer 0 for 0.0 but -1 for -0.0. > > Regards, > > -Martin > _______________________________________________ > Glass mailing list > Glass(a)lists.gemtalksystems.com > http://lists.gemtalksystems.com/mailman/listinfo/glass

5 4

The Inbox: Kernel-cbc.1054.mcz
by commits＠source.squeak.org 27 Jan '17

27 Jan '17

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-cbc.1054.mcz ==================== Summary ==================== Name: Kernel-cbc.1054 Author: cbc Time: 27 January 2017, 9:06:02.080673 am UUID: 4707f619-341d-7241-918f-6c3215f93fce Ancestors: Kernel-eem.1053 Fixes Behaviour>>basicNew: to recognize and invalid arugment and raise an appropriate error (not an 'out of memory' error). =============== Diff against Kernel-eem.1053 =============== Item was changed: ----- Method: Behavior>>basicNew: (in category 'instance creation') ----- basicNew: sizeRequested "Primitive. Answer an instance of this class with the number of indexable variables specified by the argument, sizeRequested. Fail if this class is not indexable or if the argument is not a positive Integer, or if there is not enough memory available. Essential. See Object documentation whatIsAPrimitive. If the primitive fails because space is low then the scavenger will run before the method is activated. Check args and retry via handleFailingBasicNew: if they're OK." <primitive: 71 error: ec> + (ec == #'insufficient object memory') ifTrue: - (ec == #'insufficient object memory' or: [ec == #'bad argument']) ifTrue: [^self handleFailingBasicNew: sizeRequested]. + (ec == #'bad argument') ifTrue: + [self error: self printString, ' called #basicNew: with invalid arugment ', sizeRequested]. self isVariable ifFalse: [self error: self printString, ' cannot have variable sized instances']. self primitiveFailed!

1 0

The Trunk: Files-cmm.166.mcz
by commits＠source.squeak.org 24 Jan '17

24 Jan '17

Chris Muller uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-cmm.166.mcz ==================== Summary ==================== Name: Files-cmm.166 Author: cmm Time: 24 January 2017, 3:47:38.072033 pm UUID: 1591ae96-17e3-4d5c-9e96-f5cb0a4e26e7 Ancestors: Files-tfel.165 - FileDirectory>>#assureExistence must not silently fail to assure the existence. =============== Diff against Files-tfel.165 =============== Item was changed: ----- Method: FileDirectory>>assureExistence (in category 'file directory') ----- assureExistence "Make sure the current directory exists. If necessary, create all parts in between" + self exists ifFalse: + [ self containingDirectory + assureExistence ; + createDirectory: self localName. + self exists ifFalse: [ Error signal: self fullName, ' could not be created. Permissions?' ] ]! - - self exists ifFalse: [ - self containingDirectory - assureExistence; - createDirectory: self localName]!

1 0

The Inbox: System-monty.907.mcz
by commits＠source.squeak.org 24 Jan '17

24 Jan '17

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-monty.907.mcz ==================== Summary ==================== Name: System-monty.907 Author: monty Time: 22 January 2017, 10:54:27.872661 am UUID: 96a2d0cb-8ed1-467d-9e62-24b719b285cc Ancestors: System-mt.906 Removed sends of the old XMLParser's applyLanguageInfomation: (sic) from MOFile that I don't believe is still needed (it's leadingChar-based) and breaks installation of the newer SqueakMap XMLParser. If MOFile really needs this, the applyLanguageInfomation: (sic) extension methods on String and ByteString should be moved out of the old XMLParser package and into those classes. =============== Diff against System-mt.906 =============== Item was changed: ----- Method: MOFile>>loadStrings:pointers:encoding:languageEnvironment: (in category 'private') ----- loadStrings: strm pointers: tupple encoding: encodingName languageEnvironment: env | strings rawStr str offsetTable lenTable | offsetTable := tupple first. lenTable := tupple second. strings := Array new: nStrings. 1 to: nStrings do: [:index | rawStr := self loadString: strm pointer: (offsetTable at: index) length: (lenTable at: index). str := encodingName isNil ifTrue: [rawStr] ifFalse: [ encodingName = 'utf8' + ifTrue: [rawStr utf8ToSqueak] - ifTrue: [rawStr utf8ToSqueak applyLanguageInfomation: env] ifFalse: [self error: 'this encoding isn''t supported'] ]. strings at: index put: str. ]. ^strings.! Item was changed: ----- Method: MOFile>>translatedString: (in category 'private') ----- translatedString: index "KNOWN PROBLEM: conversion is executed everytimes this method called" | str | str := translatedStrings at: index. + ^str utf8ToSqueak. - ^str utf8ToSqueak applyLanguageInfomation: (Locale localeID: localeID) languageEnvironment. !

3 2

The Inbox: Kernel-maga.1054.mcz
by commits＠source.squeak.org 23 Jan '17

23 Jan '17

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-maga.1054.mcz ==================== Summary ==================== Name: Kernel-maga.1054 Author: maga Time: 23 January 2017, 1:22:40.269653 pm UUID: 32d479b9-040c-4441-ad6c-528dc7845676 Ancestors: Kernel-eem.1053 Provide altTrue as an alternative to false. May be required for US government approved use of Squeak starting 2017. =============== Diff against Kernel-eem.1053 =============== Item was added: + False subclass: #AlternateTrue + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Kernel-Objects'! + + !AlternateTrue commentStamp: 'maga 1/23/2017 12:40' prior: 0! + AlternateTrue defines the behavior of its single instance, altTrue -- the opposite of true. It can be used in place of false whenever facts are inconvenient. + + 3 = 4 ifAltTrue: [Transcript show: 'Great!!'; cr]! Item was added: + ----- Method: AlternateTrue class>>initialize (in category 'class initialization') ----- + initialize + Smalltalk globals at: #altTrue ifAbsentPut: [self basicNew]. + ! Item was added: + ----- Method: AlternateTrue>>ifAltTrue: (in category 'controlling') ----- + ifAltTrue: alternativeBlock + "Answer the value of alternativeBlock." + + ^alternativeBlock value! Item was added: + ----- Method: AlternateTrue>>ifTrue: (in category 'controlling') ----- + ifTrue: alternativeBlock + "Since the condition is altTrue, answer the value of the alternate-true block, + which is nil." + + ^nil! Item was added: + ----- Method: AlternateTrue>>ifTrue:ifAltTrue: (in category 'controlling') ----- + ifTrue: trueBlock ifAltTrue: alternateTrueBlock + "Since the condition is altTrue, answer the value of alternateTrueBlock." + + ^alternateTrueBlock value! Item was added: + ----- Method: AlternateTrue>>printOn: (in category 'printing') ----- + printOn: aStream + aStream nextPutAll: 'altTrue'! Item was added: + ----- Method: Boolean>>ifAltTrue: (in category 'controlling') ----- + ifAltTrue: alternativeBlock + "If the receiver is true (i.e., the condition is true), then the value is the + true alternative, which is nil. Otherwise answer the result of evaluating + the argument, alternativeBlock. Create an error notification if the + receiver is nonBoolean." + + self subclassResponsibility! Item was added: + ----- Method: Boolean>>ifTrue:ifAltTrue: (in category 'controlling') ----- + ifTrue: trueBlock ifAltTrue: alternateTrueBlock + "If the receiver is true (i.e., the condition is true), then answer the value + of the argument trueBlock. If the receiver is altTrue, answer the + result of evaluating the argument alternateTrueBlock. If the receiver + is a nonBoolean then create an error notification." + + self subclassResponsibility! Item was added: + ----- Method: False>>ifAltTrue: (in category 'controlling') ----- + ifAltTrue: alternativeBlock + "Answer the value of alternativeBlock." + + ^alternativeBlock value! Item was added: + ----- Method: False>>ifTrue:ifAltTrue: (in category 'controlling') ----- + ifTrue: trueBlock ifAltTrue: alternateTrueBlock + "Answer the value of alternateTrueBlock." + + ^alternateTrueBlock value! Item was added: + ----- Method: True>>ifAltTrue: (in category 'controlling') ----- + ifAltTrue: alternativeBlock + "Since the condition is true, the value is the true alternative, which is nil." + + ^nil! Item was added: + ----- Method: True>>ifTrue:ifAltTrue: (in category 'controlling') ----- + ifTrue: trueBlock ifAltTrue: alternateTrueBlock + "Answer with the value of trueBlock." + + ^trueBlock value!

2 1