Squeak-dev June 2012

squeak-dev@lists.squeakfoundation.org

41 participants
155 discussions

The Trunk: Kernel-nice.692.mcz
by commits＠source.squeak.org 03 Jun '12

03 Jun '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.692.mcz ==================== Summary ==================== Name: Kernel-nice.692 Author: nice Time: 22 May 2012, 10:58:15.58 pm UUID: 11e38193-788b-4aa2-8480-a04d6afb2ec5 Ancestors: Kernel-nice.691 Let Fraction readFrom: '1/2' and Fraction readFrom: '0.1' answer the expected fractions. The sign, if any, must be attached to numerator. =============== Diff against Kernel-nice.691 =============== Item was added: + ----- Method: ExtendedNumberParser>>nextFraction (in category 'parsing-public') ----- + nextFraction + | numerator denominator numberOfTrailingZeroInIntegerPart | + base := 10. + neg := self peekSignIsMinus. + (integerPart := self nextUnsignedIntegerOrNilBase: base) + ifNil: [numberOfTrailingZeroInIntegerPart := 0] + ifNotNil: [ + numberOfTrailingZeroInIntegerPart := nDigits - lastNonZero. + (sourceStream peekFor: $r) + ifTrue: ["<base>r<integer>" + (base := integerPart) < 2 + ifTrue: [ + sourceStream skip: -1. + ^ self expected: 'an integer greater than 1 as valid radix']. + self peekSignIsMinus + ifTrue: [neg := neg not]. + integerPart := self nextUnsignedIntegerBase: base. + numberOfTrailingZeroInIntegerPart := nDigits - lastNonZero]]. + (sourceStream peekFor: $.) + ifTrue: + [^self readFractionPartNumberOfTrailingZeroInIntegerPart: numberOfTrailingZeroInIntegerPart]. + integerPart + ifNil: + ["No integerPart, raise an error" + ^ self expected: 'a digit']. + numerator := neg + ifTrue: [integerPart negated] + ifFalse: [integerPart]. + self readExponent ifTrue: [numerator := numerator * (base raisedToInteger: exponent)]. + (sourceStream peekFor: $/) ifFalse: [^numerator]. + base := 10. + (denominator := self nextUnsignedIntegerOrNilBase: base) + ifNil: + [sourceStream skip: -1. "Not a valid denominator, ungobble / and return numerator" + ^numerator]. + (sourceStream peekFor: $r) + ifTrue: ["<base>r<integer>" + (base := denominator) < 2 + ifTrue: [ + sourceStream skip: -1. + ^ self expected: 'an integer greater than 1 as valid radix']. + denominator := self nextUnsignedIntegerBase: base]. + self readExponent ifTrue: [denominator := denominator * (base raisedToInteger: exponent)]. + ^numerator / denominator! Item was added: + ----- Method: ExtendedNumberParser>>readFractionPartNumberOfTrailingZeroInIntegerPart: (in category 'parsing-private') ----- + readFractionPartNumberOfTrailingZeroInIntegerPart: numberOfTrailingZeroInIntegerPart + "at this stage, sign integerPart and a fraction point have been read. + try and form a number with a fractionPart" + + | numberOfNonZeroFractionDigits numberOfTrailingZeroInFractionPart mantissa value | + fractionPart := self nextUnsignedIntegerOrNilBase: base. + fractionPart + ifNil: [ + "No fractionPart found, but can be an extended 1.e2 syntax" + integerPart ifNil: ["No integerPart, nor fractionPart found, ungobble the fraction point and raise an error" + sourceStream skip: -1. + ^self expected: 'a digit']. + fractionPart := 0. + numberOfNonZeroFractionDigits := 0. + numberOfTrailingZeroInFractionPart := 0] + ifNotNil: [. + numberOfNonZeroFractionDigits := lastNonZero. + numberOfTrailingZeroInFractionPart := nDigits - lastNonZero]. + self readExponent. + integerPart ifNil: [integerPart := 0]. + + fractionPart isZero + ifTrue: [mantissa := integerPart + // (base raisedToInteger: numberOfTrailingZeroInIntegerPart). + exponent := exponent + numberOfTrailingZeroInIntegerPart] + ifFalse: [mantissa := integerPart + * (base raisedToInteger: numberOfNonZeroFractionDigits) + (fractionPart // (base raisedToInteger: numberOfTrailingZeroInFractionPart)). + exponent := exponent - numberOfNonZeroFractionDigits]. + + value := exponent positive + ifTrue: [mantissa * (base raisedToInteger: exponent)] + ifFalse: [mantissa / (base raisedToInteger: exponent negated)]. + ^ neg + ifTrue: [value negated] + ifFalse: [value]! Item was added: + ----- Method: Fraction class>>readFrom: (in category 'instance creation') ----- + readFrom: stringOrStream + "Answer a fraction as described on aStream. + The fraction may be specified as numerator/denominator, or just a numerator, or as integerPart.fractionPart. + In numerator/denominator form, both parts may have a radix specification and an exponent, but only numerator can have a sign. + In fractional digits form, an alternate radix and an exponent can also be provided, the integer or fraction part being optional." + + ^(ExtendedNumberParser on: stringOrStream) nextFraction! Item was added: + ----- Method: Fraction class>>readFrom:base: (in category 'instance creation') ----- + readFrom: stringOrStream base: aRadix + "Answer a Fraction as described on aStream. + The Fraction may be specified as numerator/denominator, or just with numerator. + Both numerator and denominator can have an exponent, but only numerator can have a sign." + + ^(ExtendedNumberParser on: stringOrStream) nextFractionBase: aRadix! Item was added: + ----- Method: NumberParser>>nextInteger (in category 'parsing-public') ----- + nextInteger + "Read an Integer from sourceStream, asnwser that Integer. + This is a generic version dealing with an optional sign and a simple sequence of decimal digits. + Subclass might define extended syntax." + + base := 10. + ^self nextIntegerBase: base ifFail: [^self expected: ('a digit between 0 and ' copyWith: (Character digitValue: base - 1))]! Item was added: + ----- Method: NumberParser>>nextUnsignedInteger (in category 'parsing-public') ----- + nextUnsignedInteger + "Read an Integer from sourceStream, asnwser that Integer. + This is a generic version dealing with a simple sequence of decimal digits. + Subclass might define extended syntax." + + base := 10. + ^self nextUnsignedIntegerBase: base ifFail: [^self expected: ('a digit between 0 and ' copyWith: (Character digitValue: base - 1))]! Item was added: + ----- Method: SqNumberParser>>nextFraction (in category 'parsing-public') ----- + nextFraction + | numerator denominator numberOfTrailingZeroInIntegerPart | + base := 10. + neg := self peekSignIsMinus. + (integerPart := self nextUnsignedIntegerOrNilBase: base) + ifNil: ["No integerPart, raise an error" + ^ self expected: 'a digit']. + numberOfTrailingZeroInIntegerPart := nDigits - lastNonZero. + (sourceStream peekFor: $r) + ifTrue: ["<base>r<integer>" + (base := integerPart) < 2 + ifTrue: [ + sourceStream skip: -1. + ^ self expected: 'an integer greater than 1 as valid radix']. + self peekSignIsMinus + ifTrue: [neg := neg not]. + integerPart := self nextUnsignedIntegerBase: base. + numberOfTrailingZeroInIntegerPart := nDigits - lastNonZero]. + (sourceStream peekFor: $.) + ifTrue: + [^self readFractionPartNumberOfTrailingZeroInIntegerPart: numberOfTrailingZeroInIntegerPart]. + numerator := neg + ifTrue: [integerPart negated] + ifFalse: [integerPart]. + self readExponent ifTrue: [numerator := numerator * (base raisedToInteger: exponent)]. + (sourceStream peekFor: $/) ifFalse: [^numerator]. + base := 10. + (denominator := self nextUnsignedIntegerOrNilBase: base) + ifNil: + [sourceStream skip: -1. "Not a valid denominator, ungobble / and return numerator" + ^numerator]. + (sourceStream peekFor: $r) + ifTrue: ["<base>r<integer>" + (base := denominator) < 2 + ifTrue: [ + sourceStream skip: -1. + ^ self expected: 'an integer greater than 1 as valid radix']. + denominator := self nextUnsignedIntegerBase: base]. + self readExponent ifTrue: [denominator := denominator * (base raisedToInteger: exponent)]. + ^numerator / denominator! Item was added: + ----- Method: SqNumberParser>>nextFractionBase: (in category 'parsing-public') ----- + nextFractionBase: aRadix + | numerator denominator | + base := aRadix. + neg := self peekSignIsMinus. + (integerPart := self nextUnsignedIntegerOrNilBase: base) + ifNil: [^self expected: 'a digit between 0 and ' , (Character digitValue: aRadix)]. + numerator := neg + ifTrue: [integerPart negated] + ifFalse: [integerPart]. + self readExponent ifTrue: [numerator := numerator * (base raisedToInteger: exponent)]. + (sourceStream peekFor: $/) ifFalse: [^numerator]. + (denominator := self nextUnsignedIntegerOrNilBase: base) + ifNil: + [sourceStream skip: -1. "Not a valid denominator, ungobble / and return numerator" + ^numerator]. + self readExponent ifTrue: [denominator := denominator * (base raisedToInteger: exponent)]. + ^numerator / denominator! Item was added: + ----- Method: SqNumberParser>>nextInteger (in category 'parsing-public') ----- + nextInteger + "Read an Integer from sourceStream, asnwser that Integer. + In Smalltalk syntax, a radix can be specified, and an exponent too." + + | numberOfTrailingZeroInIntegerPart | + base := 10. + neg := self peekSignIsMinus. + integerPart := self nextUnsignedIntegerOrNilBase: base. + numberOfTrailingZeroInIntegerPart := nDigits - lastNonZero. + (sourceStream peekFor: $r) + ifTrue: ["<base>r<integer>" + (base := integerPart) < 2 + ifTrue: [ + sourceStream skip: -1. + ^ self expected: 'an integer greater than 1 as valid radix']. + self peekSignIsMinus + ifTrue: [neg := neg not]. + integerPart := self nextUnsignedIntegerBase: base. + numberOfTrailingZeroInIntegerPart := nDigits - lastNonZero]. + ^ self makeIntegerOrScaledInteger! Item was added: + ----- Method: SqNumberParser>>nextUnsignedInteger (in category 'parsing-public') ----- + nextUnsignedInteger + "Read an unsigned Integer from sourceStream, asnwser that Integer. + In Smalltalk syntax, a radix can be specified, and an exponent too." + + base := 10. + neg := false. + integerPart := self nextUnsignedIntegerOrNilBase: base. + (sourceStream peekFor: $r) + ifTrue: ["<base>r<integer>" + (base := integerPart) < 2 + ifTrue: [ + sourceStream skip: -1. + ^ self expected: 'an integer greater than 1 as valid radix']. + integerPart := self nextUnsignedIntegerBase: base]. + ^ self makeIntegerOrScaledInteger! Item was added: + ----- Method: SqNumberParser>>readFractionPartNumberOfTrailingZeroInIntegerPart: (in category 'parsing-private') ----- + readFractionPartNumberOfTrailingZeroInIntegerPart: numberOfTrailingZeroInIntegerPart + "at this stage, sign integerPart and a decimal point have been read. + try and form a number with a fractionPart" + + | numberOfNonZeroFractionDigits numberOfTrailingZeroInFractionPart mantissa value | + fractionPart := self nextUnsignedIntegerOrNilBase: base. + fractionPart ifNil: ["No fractionPart found, ungobble the decimal point and return the integerPart" + sourceStream skip: -1. + ^ neg + ifTrue: [integerPart negated] + ifFalse: [integerPart]]. + numberOfNonZeroFractionDigits := lastNonZero. + numberOfTrailingZeroInFractionPart := nDigits - lastNonZero. + self readExponent. + fractionPart isZero + ifTrue: [mantissa := integerPart + // (base raisedToInteger: numberOfTrailingZeroInIntegerPart). + exponent := exponent + numberOfTrailingZeroInIntegerPart] + ifFalse: [mantissa := integerPart + * (base raisedToInteger: numberOfNonZeroFractionDigits) + (fractionPart // (base raisedToInteger: numberOfTrailingZeroInFractionPart)). + exponent := exponent - numberOfNonZeroFractionDigits]. + + value := exponent positive + ifTrue: [mantissa * (base raisedToInteger: exponent)] + ifFalse: [mantissa / (base raisedToInteger: exponent negated)]. + ^ neg + ifTrue: [value negated] + ifFalse: [value]!

1 0

The Trunk: KernelTests-nice.222.mcz
by commits＠source.squeak.org 03 Jun '12

03 Jun '12

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.222.mcz ==================== Summary ==================== Name: KernelTests-nice.222 Author: nice Time: 22 May 2012, 10:59:50.142 pm UUID: bf545579-1414-4840-b6b3-a846c58251b5 Ancestors: KernelTests-nice.221 Provides tests for Fraction readFrom: =============== Diff against KernelTests-nice.221 =============== Item was added: + ----- Method: FractionTest>>testFractionReading (in category 'tests - printing') ----- + testFractionReading + "Numerator literal syntax" + self assert: (Fraction readFrom: '4') equals: 4. + self assert: (Fraction readFrom: '45') equals: 45. + self assert: (Fraction readFrom: '-45') equals: -45. + self assert: (Fraction readFrom: '4e2') equals: 400. + self assert: (Fraction readFrom: '33e-2') equals: 33/100. + self assert: (Fraction readFrom: '4r123') equals: 1 * 4 + 2 * 4 + 3. + self assert: (Fraction readFrom: '-4r123e5') equals: 1 * 4 + 2 * 4 + 3 * (4 raisedTo: 5) negated. + + "Numerator/Denominator literals syntax" + self assert: (Fraction readFrom: '23/17') equals: 23/17. + self assert: (Fraction readFrom: '-122/17') equals: -122/17. + self assert: (Fraction readFrom: '-3r21e4/8r57e6') equals: (2 * 3 + 1 * (3 raisedTo: 4)) negated /(5 * 8 + 7 * (8 raisedTo: 6)). + + "Decimal integer part.fraction part literal syntax" + self assert: (Fraction readFrom: '0.1') equals: 1/10. + self assert: (Fraction readFrom: '0.071') equals: 71/1000. + self assert: (Fraction readFrom: '-0.071e2') equals: -71/10. + self assert: (Fraction readFrom: '0.07100e-2') equals: 71/100000. + + "Extended syntax" + self assert: (Fraction readFrom: '+4') equals: 4. + self assert: (Fraction readFrom: '.13') equals: 13/100. + self assert: (Fraction readFrom: '30.e-2') equals: 3/10. + self assert: (Fraction readFrom: '+30.e+4') equals: 300000.! Item was added: + ----- Method: FractionTest>>testFractionReadingBase (in category 'tests - printing') ----- + testFractionReadingBase + {17/25. -132/271. 127. -1000} do: [:fraction | + #(2 3 8 10 16) do: [:base | + | printed | + printed := (fraction printStringBase: base) copyWithoutAll: '()'. + self assert: (Fraction readFrom: printed base: base) equals: fraction]].!

1 0

The Trunk: Tools-fbs.410.mcz
by commits＠source.squeak.org 02 Jun '12

02 Jun '12

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.410.mcz ==================== Summary ==================== Name: Tools-fbs.410 Author: fbs Time: 2 June 2012, 8:51:27.787 pm UUID: 9a35a890-56aa-4f90-9c6f-ff07f70f2919 Ancestors: Tools-cmm.409 Just a spelling correction: acceptDroppedMorphss -> acceptDroppedMorphs. =============== Diff against Tools-cmm.409 =============== Item was changed: StringHolder subclass: #Workspace instanceVariableNames: 'bindings acceptDroppedMorphs acceptAction mustDeclareVariables shouldStyle' classVariableNames: 'LookupPools ShouldStyle' poolDictionaries: '' category: 'Tools-Base'! + !Workspace commentStamp: 'fbs 6/2/2012 20:46' prior: 0! - !Workspace commentStamp: 'ls 10/14/2003 12:13' prior: 0! A Workspace is a text area plus a lot of support for executable code. It is a great place to execute top-level commands to compute something useful, and it is a great place to develop bits of a program before those bits get put into class methods. To open a new workspace, execute: Workspace open A workspace can have its own variables, called "workspace variables", to hold intermediate results. For example, if you type into a workspace "x := 5" and do-it, then later you could type in "y := x * 2" and y would become 10. + Additionally, in Morphic, a workspace can gain access to morphs that are on the screen. If acceptDroppedMorphs is turned on, then whenever a morph is dropped on the workspace, a variable will be created which references that morph. This functionality is toggled with the window-wide menu of a workspace. - Additionally, in Morphic, a workspace can gain access to morphs that are on the screen. If acceptDroppedMorphss is turned on, then whenever a morph is dropped on the workspace, a variable will be created which references that morph. This functionality is toggled with the window-wide menu of a workspace. The instance variables of this class are: bindings - holds the workspace variables for this workspace + acceptDroppedMorphs - whether dropped morphs should create new variables! - acceptDroppedMorphss - whether dropped morphs should create new variables!

1 0

[URGENT] ESUG Conference in Gent: Student volunteers and call for presentations
by Damien Cassou 01 Jun '12

01 Jun '12

Less than 10 slots left for the ESUG student volunteer program. Apply now! http://www.esug.org/Conferences/2012/StudentVolunteers Only 2 weeks left to propose your presentation for ESUG http://www.esug.org/Conferences/2012/Call-for-Presentations -- Damien Cassou http://damiencassou.seasidehosting.st "Lambdas are relegated to relative obscurity until Java makes them popular by not having them." James Iry

1 0

ClassBoxes... bitrotted, or usable?
by Frank Shearar 01 Jun '12

01 Jun '12

I mused with a colleague about how I'd like to see "lexically scoped monkey patching", and he pointed me to some guys that want to add that to Ruby (http://timelessrepo.com/refinements-in-ruby). Note the inspiration for their work: ClassBoxes! (http://scg.unibe.ch/research/classboxes) I remember reading the paper years ago, and started working through it again now. Something that's not clear to me is this: does ClassBoxes require VM-side changes? (Because it changes the method lookup, after all, searching packages for methods before working up the inheritance tree.) If so, how invasive are they? If not, do we have a ball-park estimate of how much work it would be to update ClassBoxes to a more recent Squeak/Pharo? I'm more than happy to do the dogwork. I'd just like to know whether I'm signing up for months of work or not. Thanks! frank

1 0

Jump to page: